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类 型 系统 是 一 个 可 行 的 语法 工具 , 根据 程序 所 计算 值 的 种 类 将 程序 词语 进行 分 类 , 从 而 自动 检查 
出 错误 行为 。 类 型 系统 的 研究 和 从 类 型 理论 角度 对 程序 设计 语言 的 研究 , 在 软件 工程 语言 的 设计 、 高 
性 能 编译 器 和 安全 性 方面 都 有 着 重要 的 应 用 。 


本 书 对 计算 机 科学 和 程序 设计 语言 基础 理论 中 的 类 型 系统 进行 了 详细 地 介绍 。 所 提 和 到 的 方法 都 很 
实用 , 每 个 新 的 概念 都 以 程序 实例 加 以 解释 , 偏重 理论 的 方面 根据 实现 的 需要 有 所 取舍 。 每 章 都 附 有 
大 量 的 练习 和 相应 的 解答 , 并 且 可 在 Web 上 找到 相应 的 实现 程序 。 章节 之 间 的 关系 有 明确 的 指示 , 读 
者 可 以 据 此 选择 适合 自己 的 内 容 进行 阅读 。- 


类 型 是 计算 机 程序 语言 的 酵母 , 若 少 了 它 , 程序 难以 被 计算 机 消化 。 这 本 优秀 的 图 书 集 应 用 、 理 论 和 
实现 为 一 体 , 通过 类 型 指引 我 们 走 进 丰 富 的 程序 语言 世界 。 本 书 的 作者 在 应 用 、 理 论 和 实现 方面 有 着 丰富 
的 经 验 。 

一 一 Robin Milner， 剑 桥 大 学 计算 机 实验 室 

只 有 出 色 的 学 者 才能 写 出 如 此 严 说、 清晰 的 书籍 ， 才 能 将 理论 与 实现 技术 融 为 一 体 , 才能 体现 出 丰富 的 
教学 经 验 ， 才 能 算得 上 该 领域 的 专家 。 





John Reynolds， 卡 内 基 ' 梅 隆 大 学 计算 机 学 院 


Pierce 的 书 不 但 对 程序 语言 中 的 类 型 进行 了 详细 介绍 , 而 且 将 理论 和 实践 有 机 地 结合 起 来 , 提供 了 一 个 
成 功 的 典范 。 未 来 许多 年 间 ， 此 书 必 将 成 为 权威 参考 书目 。 





Robert Harper， 卡 内 基 . 梅 隆 大 学 计算 机 系 教 授 
本 书 是 经 过 了 对 多 个 问题 仔细 推 鼓 、 选 择 后 写成 的 。 它 侧重 于 实用 ， 同 时 也 不 缺乏 必要 的 理论 。 书 中 的 

练习 充分 考虑 了 初级 读者 、 高 级 读者 、 程 序 员 和 理论 研究 人 员 的 不 同 需要 。 
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内 容 简 介 


类 型 理论 在 程序 设计 诸 言 的 发 展 中 起 着 举足轻重 的 作用 ,成 熟 的 类 型 系统 可 以 帮助 完善 程序 设计 本 身 , 帮 
助 运行 系统 检查 程序 中 的 语义 错误 - 

要 理解 类 型 系统 在 程序 设计 语言 中 发 挥 的 作用 , 本 书 将 是 首选 读物 - 本 书 内 容 咱 盖 基 本 操作 语义 及 其 相关 
证 明 技 巧 、 无 类 型 lambda 演算 、 简 单 类 型 系统 、 全 称 多 态 和 存在 多 态 、 类 型 重 构 、 子 类 型 化 、 困 界 量词 、 递 
归 类 型 、 类 型 算 子 等 内 容 、 本 书 既 注重 内 容 的 广度 , 也 注重 内 容 的 深度 , 实用 性 强 : 在 引入 语言 的 语法 对 象 时 
先 举例 , 然后 给 出 形式 定义 及 基本 证 明 , 在 对 理论 的 进 -- 步 研究 后 给 出 了 类 型 检查 算法 , 并 对 每 种 算法 都 给 出 
了 0OCami 程 序 的 具体 实现 。 本 书 对 类 型 理论 中 的 概念 都 有 详细 的 病 述 , 为 读者 提供 了 一 个 进一步 理论 学 习 的 革 
础 。 本 书 内 容 广泛 ， 读 者 可 以 根据 自己 的 需要 有 选择 地 深 和 人 阅读 。 

本 书 适 合 从 事 程序 设计 的 研究 人 员 和 开发 人 员 , 以 及 程序 设计 语言 和 类 型 理论 的 研究 人 员 阅 读 。 可 作为 计 
算 机 专业 高 年 级 学 生 、 研 究 生 的 学 习 教材 。 


@ 2002 Benjamin C. Pierce 
All rights reserved. No part of this book may be reproduced in any form by any electronic or mechanical means (including 
pbhotocopying, recording. or information storage and retrieval) without permission in writing from the publisher, 
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出 版 说 明 


21 世纪 初 的 5 双 10 年 是 我 国 国 民 经 济 和 社会 发 展 的 重要 时 期 ， 也 是 信息 产业 快速 发 展 的 关键 
时 期 。 在 我 国 加 入 WTO 后 的 今天 , 培养 一 支 适应 国际 化 竞争 的 一 流 IT 人 才 队 伍 是 我 国 高 等 教育 的 
重要 任务 之 一 。 信 息 科学 和 技术 方面 人 才 的 优 劣 与 多 赛 ， 是 我 国 面 对 国际 竞争 时 成 败 的 关键 因素 。 

当前 , 正 值 我 国 高 等 教育 特别 是 信息 科学 领域 的 教育 调整 、 变 革 的 重大 时 期 , 为 使 我 国教 育 体 
制 与 国际 化 接轨 ,有 条 件 的 高 等 院 校 正在 为 某 些 信息 学 科 和 技术 课程 使 用 国外 优秀 教材 和 优秀 原版 
教材 ， 以 使 我 国 在 计算 机 教学 上 尽快 赶 上 国际 先进 水 平 。 

电子 工业 出 版 社 乖 承 多 年 来 引进 国外 优秀 图 书 的 经 验 ， 翻 译 出 版 了 “国外 计算 机 科学 教材 系 
列 ” 欠 书 ， 这 套 教 材 覆 盖 学 科 范 围 广 、 领 域 宽 、 层 次 多 ,， 既 有 本 科 专 业 课程 教材 ， 也 有 研究 生 课程 
教材 ,以 适应 不 同 院 系 、 不 同 专业 、 不 同 层次 的 师 生 对 教材 的 需求 , 广大 师 生 可 自由 选择 和 自由 组 
合 使 用 。 这 些 教材 涉及 的 学 科 方 向 包括 网 络 与 通信 、 操 作 系统 、 计 算 机 组 织 与 结构 、 算 法 与 数据 结 
构 、 数 据 库 与 信息 处 理 、 编 程 语言 、 图 形 图 像 与 多 媒体 、 软 件 工程 等 。 同 时 , 我 们 也 适当 引进 了 一 
些 优 秀 英文 原版 教材 , 本 着 翻译 版 本 和 英文 原版 并 重 的 原则 , 对 重点 图 书 既 提供 英文 原版 又 提供 相 
应 的 翻译 版 本 。 

在 图 书 选 题 上 , 我 们 大 都 选择 国外 著名 出 版 公司 出 版 的 高 校 教材 ,如 Pearson Education 培 生 教 
育 出 版 集团 、 麦 格 劳 - 希 尔 教育 出 版 集团 、 麻 省 理工 学 院 出 版 社 、 剑 桥 大 学 出 版 社 等 。 撰写 教 材 的 
许多 作者 都 是 碍 声 世 界 的 教授 .学 者 ,如 道格拉斯 . 科 默 ( Douglas E. Comer ) 威廉. 斯 托 林 斯 ( Wiliam 
Stallings )、 哈 维 . 戴 特 尔 ( Harvey M. Deitel )、 尤 利 斯 - 布莱克 ( Uyless Black ) 等 。 

为 确保 教材 的 选 题 质 量 和 翻译 质量 , 我 们 约请 了 清华 大 学 、 北 京 大 学 、 北 京 航空 航天 大 学 、 复 
旦 大 学 、 上 海 交 通 大 学 、 南 京 大 学 、 浙 江 大 学 、 哈 尔 滨 工业 大 学 、 华 中 科技 大 学 、 西 安 交通 大 学 、 
国防 科学 技术 大 学 、 解 放 军 理工 大 学 等 著名 高 校 的 教授 和 骨干 教师 参与 了 本 系列 教材 的 选 题 .翻译 
和 审 校 工作 . 他 们 中 既 有 讲授 同类 教材 的 骨干 教师 、 博 士 , 也 有 积累 了 几 十 年 教学 经 验 的 老 教授 和 
博士 生 导 师 。 

在 该 系列 教材 的 选 题 、 翻 译 和 编辑 加 工 过 程 中 , 为 提高 教材 质量 ,我 们 做 了 大 量 细致 的 工作 ， 
包括 对 所 选 教材 进行 全 面 论 证 ; 选择 编辑 时 力求 达到 专业 对 口 ; 对 排版 、 印 制 质量 进行 严格 把 关 。 
对 于 英文 教材 中 出 现 的 错误 ， 我 们 通过 与 作者 联络 和 网 上 下 载 勘误 表 等 方式 ， 逐 一 进行 了 修订 。 

此 外 , 我 们 还 将 与 国外 著名 出 版 公司 合作 , 提供 - 些 教材 的 教学 支持 资料 , 希望 能 为 授课 老师 
提供 帮助 。 今 后 , 我 们 将 继续 加 强 与 各 高 校 教师 的 密切 联系 , 为 广大 师 生 引进 更 多 的 国外 优秀 教材 
和 参考 书 ， 为 我 国 计 算 机 科学 教学 体系 与 国际 教学 体系 的 接轨 做 出 努力 。 
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类 型 系统 的 研究 , 以 及 从 类 型 论 的 角度 研究 程序 语言 已 经 是 一 个 充满 活力 的 研究 领域 , 主 
要 应 用 于 软件 工程 、 语言 设计 、 高 性 能 编译 器 的 实现 和 安全 。 本 书 以 一 种 很 容易 理解 的 方式 介 
绍 这 一 领域 所 涉及 的 基本 定义 、 理 论 结果 ( 从 基本 lambda 演 算 、 类 型 理论 和 程序 语言 理论 ) 和 
实现 技术 。 

现代 软件 工程 广泛 地 使 用 形式 化 方法 ,确保 系统 按照 隐 式 或 显 式 的 说 明 方 式 运行 。 这 方面 
出 现 过 一 些 过 于 理论 化 的 框架 ， 如 Hoare 逻辑 、 代 数 说 明 语言 、 模 态 逻 辑 和 指称 语义 等 。 由 于 
这 些 理论 实用 性 不 强 , 尤其 难以 被 程序 员 所 接受 , 所 以 出 现 了 一些 实 用 的 技术 , 如 将 自动 检查 
器 放 到 编译 器 、 连接 器 或 程序 分 析 器 中 的 技术 。 至今 最 流行 、 最 完善 的 轻 量 级 形式 化 方法 是 类 
型 系统 ， 也 正 是 作者 在 本 书 中 讨论 的 主要 内 容 。 

作者 将 类 型 系统 定义 为 “一 种 可 行 的 语法 工具 ， 它 可 以 根据 计算 值 的 种 类 对 词语 进行 分 
类 ， 从 而 证 明 某 程序 行为 不 会 发 生 "。 形 式 的 定义 可 能 会 误导 读者 认为 类 型 系统 只 是 在 理论 上 
重要 。 事实 上 , 类 型 系统 已 经 成 为 程序 语言 设计 的 一 个 重要 方面 。 类 型 系统 为 编译 器 提供 了 类 
型 检查 的 手段 , 可 以 检测 程序 员 犯 下 的 由 于 类 型 错误 而 引起 的 语义 错误 , 这 样 就 可 避免 不 规范 
行为 的 产生 , 如 程序 骨 溃 。 我 们 在 互联 网 上 遇 到 的 许多 安全 漏洞 其 实 就 是 由 于 没有 正确 检测 到 
类 型 错误 而 引起 的 。 通常 转 而 使 用 类 型 成 熟 语言 的 程序 员 开 始 时 都 会 觉得 十 分 惊讶 , 因为 他 们 
的 程序 无 需 额 外 的 调试 立即 就 能 运行 ， 可 见 类 型 系统 有 多 么 重要 。 

本 书 带领 读者 走 进 了 一 个 关于 类 型 系统 设计 、 推 理 和 实现 的 有 趣 领域 。 作 者 通过 使 用 操作 
语义 和 0Caml 语 言 举例 ( 这 些 例子 在 书 上 提供 的 相关 网 站 上 都 可 以 查 到 ), 将 理论 问题 表达 得 清 
晰 、 易 民 。 

作者 按照 通常 的 方式 介绍 带 有 类 型 的 程序 语言 中 的 语法 对 象 , 全 书 贯穿 许多 启发 性 例子 、 
严格 的 定义 、 基 本 性 质 的 证 明 、 类 型 检查 算法 的 描述 、 可 靠 性 、 完 备 性 和 可 终止 性 的 证 明 , 并 
给 出 算法 的 具体 实现 。 讨 论 的 问题 涵盖 了 lambda 演算、 简单 类 型 、 子 类 型 、 递 归 类 型 、 多 态 
和 高 阶 类 型 。 尽 管 强调 的 重点 是 函数 式 语言 ， 如 Haskell 和 ML 的 类 型 系统 ， 但 是 也 谈 到 了 与 
理论 发 展 有 关 的 主流 语言 , 如 Java 和 C++ 语言 之 间 的 关系 。 本 书 理论 与 实践 结合 得 非常 紧密 ， 
对 学 习 程序 语言 及 培养 语言 设计 人 员 来 说 帮助 很 大 。 从 无 类 型 系统 到 有 类 型 系统 ， 从 简单 类 
型 到 复杂 类 型 ， 对 各 类 语言 特征 都 进行 了 详细 地 阐述 ， 对 命题 和 定理 的 证 明 也 十 分 严谨 。 作 
者 还 开发 了 一 套 TinkerType 系 统 ， 完 成 对 书 中 所 举 的 每 个 例子 进行 类 型 检查 器 的 检查 ， 并 给 
出 执行 结果 。 该 书 如 果 有 欠缺 之 处 ,， 那 就 是 没有 将 流行 的 程序 语言 的 特色 、 优 点 及 缺点 加 以 
严格 评论 。 

本 书 采用 合适 的 排版 式样 和 丰富 的 字体 提高 可 读 性 ， 例 如 可 以 清晰 地 表达 复杂 元 长 的 
lambda 归 约 序列 、 操 作 语义 和 程序 实例 ; 同时 给 出 了 程序 、 规 则 和 性 质 在 表示 上 的 差别 。 本 书 





包括 不 同 层次 难度 的 练习 , 并 提供 了 详细 的 参考 文献 , 以 帮助 高 年 级 本 科 生 、 研 究 生 以 及 相关 
学 者 学 习 和 参考 。 初 读本 书 的 读者 如 果 感 到 理解 上 有 些 困 难 , 这 并 不 奇怪 。 因 为 正确 理解 书 中 
的 内 容 需 要 读者 具有 一 定 的 理论 基础 和 程序 设计 的 实践 经 验 , 融会 贯通 则 更 需要 下 一 鼻 功 夫 。 

毫 无 疑问 ， 本 书 是 关于 类 型 理论 程序 设计 的 重要 著作 ,在 此 领域 中 的 地 位 是 无 可 和 蔡 
代 的 。 

北京 航空 航天 大 学 博士 生 导 师 马 世 龙 教授 及 中 科 院 计算 所 博士 生 导 师 肝 九 飞 教授 组 织 
土 研 究 生 和 硕士 研究 生 对 类 型 理论 进行 了 长 期 的 研究 和 讨论 ,在 此 过 程 中 翻译 了 本 书 。 其 中 
主要 翻译 者 有 : 前 言及 第 1 章 到 第 14 章 由 上 圣 妈 飞 翻译 ， 第 15 章 到 第 21 章 由 马 丽 和 王 婷 翻 
译 ， 第 22 章 到 第 26 章 由 马 丽 翻 译 ， 第 27 章 到 第 30 章 由 马 骏 翻 译 ， 第 31 章 到 第 32 章 及 附 
录 由 陈 铁 翻 译 。 全书 由 马 世 龙 教授 统 稿 , 肝 牙 飞 教授 审定 。 另 外 感谢 毛 俏 琳 在 前 期 统 稿 中 所 
做 的 工作 。 

由 于 译 者 水 平 有 限 ， 以 及 一 些 术 语 的 翻译 目前 尚 缺乏 规范 ,错误 之 处 望 广大 读者 批评 
指正 。 





前 襄 


对 类 型 系统 的 研究 ,以 及 从 类 型 理论 的 角度 研究 程序 语言 已 成 为 一 种 充满 活力 的 领域 , 它 
们 主要 应 用 于 软件 工程 .语言 设计 高 性 能 编译 器 的 实现 和 安全 。 本 书 将 对 该 领域 的 基本 概 
念 ,研究 成 果 及 技术 手段 展开 全 面 的 阐述 。 
读者 对 象 

本 书 针对 两 类 读者 :(1) 从 事 程序 语言 和 类 型 理论 研究 的 研究 生 和 研究 人 员 ;(2) 希 望 了 解 
程序 语言 理论 中 关键 概念 的 计算 机 科学 领域 研究 生 和 高 年 级 本 科 生 。 对 于 前 一 类 读者 ,本 书 
柳 盖 了 该 领域 的 大 部 分 内 容 , 为 读者 深入 研究 提供 了 依据 。 对 于 后 一 类 读者 ,提供 了 介绍 性 的 
材料 和 例子 以 及 分 析 。 本 书 既 可 以 作为 一 般 研 究 生 水 平 的 教材 ,也 可 以 作为 程序 语言 的 高 级 
研讨 班 的 教材 。 


本 书 的 目标 


目标 之 一 :在 内 容 上 力求 覆盖 一 些 核心 概念 , 如 基本 操作 语义 及 相关 证 明 技 巧 .无 类 型 
lambda 演算 ,简单 类 型 系统 .全 称 多 念 和 存在 多 念 .类 型 重 构 . 子 类 型 化 . 男 量 词 .递归 类 型 .类 
型 算 子 ,以 及 许多 其 他 问题 的 简短 讨论 。 

目的 之 二 :从 语 用 的 角度 ,注重 程序 语言 中 类 型 系统 的 使 用 ,用 大 量 的 篇 幅 对 一 些 可 能 包 
括 在 类 型 化 lambda 演算 中 的 更 精确 问题 (如 指称 语义 ) 进 行 讨论 。 其 中 计算 基础 是 值 调用 
lambda 演算 , 它 与 当前 大 部 分 语言 相符 ,并 且 容 易 扩 展 为 引用 和 异常 等 命令 式 结构 。 对 每 种 语 
言 的 特征 ,关注 它 的 实用 价值 .语言 所 含 安全 性 的 证 明 技巧 ,以 及 如 何 具体 实现 等 方面 的 内 容 ， 
尤其 是 类 型 检查 算法 的 设计 和 分 析 。 

目标 之 三 :关注 领域 的 多 样 性 。 本 书 覆 盖 了 许多 独立 的 问题 和 几 个 深刻 理解 的 复合 问题 ， 
但 没有 试图 将 所 有 的 问题 都 游人 一 个 单一 的 系统 中 。 只 是 对 这 些 问题 的 子 集 所 出 了 统一 的 表 
示 方 式 , 比 如 ,虽然 箭头 类 型 变化 多 样 ,但 在 纯 类 型 系统 中 均 以 统一 的 方式 处 理 , 由 于 整个 领域 
发 展 太 快 ,无 法 对 其 完全 系统 化 。 

本 书 在 设计 上 充分 考虑 方便 读者 学 习 , 无 论 是 在 课堂 上 还 是 以 自学 的 方式 。 对 大 部 分 习 
题 都 给 出 了 全 面 的 解答 。 核 心 定义 组 织 成 一 个 图 表 以 便于 参考 。 概 念 和 系统 之 间 的 依赖 关系 
表现 得 尽 可 能 清晰 明了 。 在 书 的 最 后 还 提供 了 大 量 的 参考 书目 。 

最 后 ,本 书 恪 守 诚 实 的 原则 。 书 中 讨论 的 所 有 系统 ( 除 个 别 稍微 提 及 的 系统 外 ) 均 有 实现 。 


“每 章 都 有 从 机 器 的 角度 检查 所 举例 子 的 类 型 检查 器 和 解释 器 。 这 些 实现 方式 均 可 从 本 书 的 网 


站 上 获得 ,可 用 做 编程 练习 ,进行 扩充 实验 以 及 作为 更 大 的 课堂 报告 内 容 。 

为 达到 这 些 目标 ,其 他 的 一 些 因素 往往 被 忽略 了 。 比 如 ,最 重要 的 一 点 就 是 内 容 的 全 面 
性 。 在 一 本 书 中 想 履 盖 编程 语言 和 类 型 系统 的 所 有 领域 是 不 可 能 的 ,本 书 也 不 例外 。 本 书 只 
关注 核心 概念 的 详细 讨论 。 还 有 ,本 书 不 考虑 类 型 检查 算法 实际 的 效率 ,因为 它 并 非 一 本 关于 
如 何 实现 具有 工业 力度 的 编译 器 或 类 型 检查 器 的 书籍 。 

。 了 ， 





本 书 的 组 织 结构 


本 书 的 第 一 部 分 讨论 无 类 型 系统 。 在 一 个 非常 简单 的 仅 含 数字 型 和 布尔 型 的 语言 中 引 人 
一 些 基 本 概念 :抽象 语法 .归纳 定义 和 证 明 、 椎 论 规则 和 操作 语义 ,然后 对 无 类 型 lambda 演算 
重复 引入 这 些 概念 进行 讨论 。 第 二 部 分 考虑 简单 类 型 lambqa 演算 和 一 些 基本 语言 特征 ,如 乘 
积 ` 求 和 记录 、 变 式 . 引 用 和 蜡 常 等 。 其 中 包括 关于 类 型 算术 表达 式 一 章 引 人 了 类 型 安全 性 的 
思想 。 还 包括 一 章 (可 选 学 ) 用 Tait 的 方法 给 出 了 简单 类 型 lambda 演算 的 规范 化 证 明 。 第 三 
部 分 讨论 子 类 型 的 基本 机 制 :包括 一 个 元 理论 和 两 个 扩展 的 实例 研究 。 第 四 部 分 讨论 递归 类 
型 ,包含 了 简单 同 构 递 归 和 复杂 相等 递归 形式 。 该 部 分 的 第 21 章 讨 论 了 在 共 归 纳 的 数学 框架 
中 含 相 等 递归 和 子 类 型 的 系统 元 理论 。 第 五 部 分 讨论 多 态 性 ,包括 ML 形式 的 类 型 重 构 , 功 能 
更 强大 系统 了 和 不 可 预言 的 多 态 性 ,存在 量词 及 其 与 抽象 数据 类 型 的 联系 , 带 园 量 词 的 系统 中 
多 态 与 子 类 型 的 组 合 , 等 等 。 第 六 部 分 讨论 了 类 型 算 子 。 其 中 一 章 讨 论 基 本 概念 ; 接 下 来 的 一 
章 研 究 系统 也 及 其 元 理论 ;下 一 章 将 类 型 算 子 与 转 量 词 结合 起 来 提出 系统 习 , ;最 后 一 章 为 
一 个 实例 学 习 。 

图 P.1 给 出 了 章节 之 间 的 依赖 关系 。 浅 色 箭 头 表示 后 一 章 部 分 依赖 于 前 一 章 。 





图 P.1 章节 之 间 的 依赖 关系 


本 书 对 每 个 语言 特征 都 采用 统一 的 处 理 模式 。 先 举 一 个 例子 ,然后 是 形式 定义 ;基本 性 质 
的 证 明 ,如 类 型 安全 性 ;通常 另 一 章 对 理论 进一步 研究 ,得 到 类 型 检查 算法 及 其 可 靠 性 ,完备 性 
，8 。 


， 








和 终止 性 的 证 明 ; 最 后 (在 另 一 章 中) 给 出 这 些 算 法 的 OCaml 程序 具体 实现 。 

本 书 中 的 例子 主要 是 对 面向 对 象 程序 进行 特征 分 析 和 设计 的 。 有 4 个 实例 学 习 章节 , 详 
细 地 讨论 了 不 同 的 内 容 ; 常 规 命令 性 对 象 和 类 的 一 个 简单 模型 (参见 第 18 章 ); 基 于 Java 的 一 
个 核心 演算 (参见 第 19 章 ); 用 较量 词 对 命令 性 对 象 的 一 个 更 细致 说 明 ( 参 见 第 27 章 ), 以 及 用 
存在 类 型 处 理 纯 函 数 式 的 系统 玫 , 中 的 对 象 和 类 (参见 第 32 章 )。 

为 使 本 书 适合 一 学 期 的 教材 ,必须 忽略 掉 一 些 有 意义 和 重要 的 论题 。 在 本 书 中 ,指称 和 公 
理 语义 完全 忽略 掉 了 ; 类 型 系统 与 逻辑 之 间 的 联系 在 几 个 地 方 提 到 但 没有 详细 讨论 。 程序 语 
言 和 类 型 系统 的 许多 新 的 特征 只 是 提 及 而 已 ,如 依赖 类 型 ,交叉 类 型 ,以 及 Cury-Howard 对 应 ; 
只 用 了 人 少量 的 篇 幅 对 这 些 特征 做 了 介绍 以 供 日 后 有 兴趣 的 读者 自己 深入 学 习 。 最 后 ,除了 简 
单 介绍 Java 形式 的 核心 语言 外 (参见 第 19 章 ) ,本 书 完全 注重 基于 lambda 演算 的 系统 ;但 是 ， 
这 样 处 理 的 概念 和 机 制 可 以 直接 转换 到 像 类 型 并 发 语言 ,类 型 汇编 语言 ， 以 及 特别 对 象 演算 的 
相关 领域 中 。 

要 求 的 背景 知识 

本 书 不 要 求 有 程序 语言 理论 的 背景 知识 ， 但 读者 应 该 具有 一 定 的 数学 基础 一 一 特别 是 学 
过 大 学 课程 的 离散 数学 .算法 和 基础 逻辑 等 。 

读者 应 该 至 少 熟悉 一 种 高 阶 函 数 式 程序 语言 (如 Scheme,ML,Haskell 等 ) \ 程 序 语 言 和 编译 
器 的 基本 概念 (抽象 语法 ,BNF 语法 , 求 值 ,抽象 机 器 等 )。 这 些 在 许多 大 学 教材 中 可 以 找到 ; 作 
者 特别 推荐 Friedman, Wand 和 Haynes (2001 ) 的 “Essentials of Programming Languages” 和 Scott 
《1999) 的 “Programming Language Pragmatics 。 本 书 中 有 儿 章 以 面向 对 象 语言 ,如 Java 为 例 来 说 
明 一 些 问 题 十 分 有 效 。 

为 使 本 书 成 为 浓缩 的 一 学 期 的 高 级 教材 , 且 为 减轻 大 部 分 研究 生 的 负担 , 书 中 没有 将 许多 
有 趣 且 重要 的 问题 包括 进来 ， 也 完全 忽略 了 指称 语义 与 公理 语义 ， 但 有 许多 关于 这 方面 的 好 
书 , 可 供 查阅 ,如 果 在 本 书 中 将 它们 包括 进来 ,会 违背 本 书 尽量 实现 的 初衷 。 

关于 类 型 检查 器 的 具体 实现 中 的 几 个 重要 概念 是 用 OCaml 语言 编写 的 ,其 中 OCaml(Ob- 
jective Caml 的 缩写 ) 为 ML 语言 的 另 一 个 俗称 。 在 这 几 章 中 介绍 一 些 OCaml 的 预备 知识 对 理 
解 代码 是 有 帮助 的 ,但 不 一 定 有 这 个 必要 ;本 书 中 只 用 到 了 语言 的 一 小 部 分 。 上 且 有 些 特征 在 刚 
开始 出 现时 就 解释 过 了 。 所 以 这 几 章 与 本 书 的 其 他 部 分 编写 方式 截然 不 同 ,完全 可 以 略 过 。 

目前 关于 OCaml 的 最 好 教材 是 Cousineau 和 Mauny(1998) 撰 写 的 。 随 OCaml 发 布 的 资料 也 
可 在 网 上 查阅 (http://cami.inria. 人 和 http://www.ocaml.org)。 

熟悉 ML 另 一 种 称 法 一 一 Standard ML 的 读者 可 以 很 容易 地 理解 OCaml 代码 。 关 于 Sandard 
ML 的 教材 有 Paulson(1996) 和 Ulman(1997) 。 
课程 安排 

一 个 中 级 或 高 级 研究 生 的 教材 (一 个 学 期 ) 可 以 覆盖 本 书 的 大 部 分 内 容 。 图 P 2 给 出 了 在 
Pennseylvania 大 学 博士 生 高 级 课程 的 一 个 教学 大 网 ( 一 周 两 次 90 分 钟 课时 ， 假定 以 快速 的 方式 
覆盖 了 程序 语言 理论 的 最 小 预备 知识 )。 

对 于 大 学 或 初级 研究 生 教 材 ,有 几 个 方案 可 以 选择 。 程序 中 类 型 系统 的 课程 可 以 注重 引 人 


各 种 类 型 特征 和 说 明 它 们 如 何 使 用 的 章节 ,而 忽略 了 大 部 分 元 理论 和 实现 的 章节 。 另外 ,基本 
。 9 。 


理论 和 类 型 系统 实现 的 课程 可 以 选择 前 面 的 章节 ,大 概 掠 过 第 12 章 ( 以 及 第 18 章 和 第 21 章 )， 
牺 竹 书后 面 的 章节 。 较 短 课 程 可 以 选择 依赖 关系 图 P,1 中 的 有 关 章 节 。 

本 书 也 是 适合 程序 诸 言 理论 更 一 般 的 研究 生 课程 的 主要 教材 。 这 样 一 个 课程 可 以 花 半 个 
或 三 分 之 二 个 学 期 学 习 本 书 的 主要 部 分 ,然后 将 剩 下 的 时 间 用 于 学 习 一 节 基 于 Milner(1999) 的 
pi 演算 的 并 发 理论 , 它 介 绍 了 Hoare 逻辑 和 公理 语义 (如 Winskel,1993) 或 研究 一 下 一 些 高 级 语 


言 特征 ,如 连续 或 模块 系统 。 





课程 论题 阅读 
1 课程 概论 ;历史 ;组 织 1 (2) 
2. 基础 :语法 ,操作 语义 3,4 

3. 介绍 lambda 演算 5.1,3.2 
4. 形式 化 lamhda 演算 5.3,6,7 
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17. 类 型 重 构 22 
18 . 全 称 多 态 23 
19. 存在 多 态 ;ADT 24,(25) 
20， 圈 量 词 26,27 
21. 曾 量 词 的 元 理论 28 
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26. 补充 课程 


图 P.2 一 个 高 级 研究 生 课 程 的 教学 大 纲 样 例 


在 本 课程 中 ,学 期 报告 起 了 很 大 的 作用 ,所 以 它 可 能 会 推 延 某 些 理论 部 分 的 学 习 ( 如 规范 
化 及 某 些 元 理论 的 章节 ) ,在 学 生 选 择 报告 的 内 容 之 前 可 以 阅读 大 量 的 例子 。 


练习 


大 部 分 章节 包括 许多 练习 一 一 一 些 需要 动笔 ,一 些 包含 所 讨论 的 演算 程序 ,以 及 关于 这 些 
演算 的 ML 实现 。 每 个 练习 的 困难 程度 用 下 面 的 符号 表示 ， 


妇 快速 检查 30 秒 到 5 分 钟 
去 页 容易 反 1 小 时 
二 真 广 中 等 <3 小 时 
xx* 太 具有 挑战 性 >3 小 时 


标记 为 * 的 练习 是 用 于 对 重要 概念 的 实时 检查 。 建 议 读 者 在 读 后 面 的 内 容 之 前 在 此 稍微 停 一 
会 ,思考 一 下 这 些 问 题 。 在 每 个 章节 中 ,可 作为 课外 作业 的 练习 标记 为 “推荐 ”。 
附录 A 给 出 了 大 部 分 练习 的 答案 。 标 记 姑 表示 练习 的 答案 没有 在 附录 A 中 给 出 。 
。 10 。 


本 书 约定 

大 部 分 章节 以 一 种 散漫 的 形式 引入 某 类 型 系统 的 特征 ,然后 在 一 个 或 多 个 图 表 中 将 推论 
规则 集中 起 来 对 系统 进行 形式 化 定义 。 为 参考 方便 ,这 些 定义 通常 不 仅 包 括 目前 还 在 讨论 的 
新 特征 和 新 规则 ,同时 也 给 出 构建 完整 演算 所 需要 的 其 余 规则 。 

本 书 的 另 一 特色 是 在 编写 过 程 中 所 有 的 例子 都 经 过 了 类 型 检查 器 的 检查 ,原稿 经 过 仔细 
检查 ,例子 被 抽取 出 ,产生 并 编译 出 包含 所 讨论 的 特征 的 类 型 检查 器 ,并 将 其 用 于 检查 这 些 例 
子 , 然 后 将 检查 结果 插 人 到 文本 中 。 完 成 这 一 艰巨 任务 的 系统 称 为 Tinkerfype, 是 由 Michael 
Levin 和 作者 本 人 (2001) 开 发 的 ,由 (美国 ) 国 家 自然 科学 基金 CCR-9701826,“Principled Founda- 
tons for Programming with Objects 和 CCR-9912352，Modular Type Systems "所 资助 。 


Web 资源 
与 本 书 相关 的 网 站 是 : 
http: //www,cis.upenn,edu/ ~ bcpierce/tap] 


这 个 网 站 中 的 资源 包括 本 书 的 勘误 表 , 课 程 计划 建 议 ,读者 提供 的 附加 材料 ,以 及 每 章 演 算 的 
实现 (类 型 检查 器 和 简单 翻译 器 ) 集 合 。 

这 些 实现 提供 了 本 书 中 的 例子 和 检查 练习 答案 的 一 个 环境 。 它 们 也 可 以 用 于 阅读 和 修 
改 , 已 成 功 地 由 参加 作者 课程 的 学 生 用 做 小 实现 练习 和 大 课程 计划 的 基础 。 实 现 是 用 OCaml 
编写 的 。OCaml 编译 器 可 以 免费 在 http:/eaml.inria.fr 中 下 载 ,并 可 安装 在 大 部 分 平台 中 。 

本 网 站 还 为 读者 提供 了 类 型 论坛 (Types Forum) ,一 个 Email 列表 涵盖 类 型 系统 及 其 应 用 
的 所 有 方面 。 列 表 确 保 低 容量 和 高 信 噪 比 。 存 档 和 预定 指令 在 http:/www.ecis. upenn. edu/ 
~ bcpierce/types 中 。 
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第 1 章 引 论 


1.1 计算 机 科学 中 的 类 型 


现代 软件 工程 应 用 广泛 的 形式 方法 来 确保 系统 按照 那些 对 其 应 有 的 行为 进行 隐 式 或 显 式 
的 说 明 方式 来 实现 。 一 方面 是 强 有 力 的 框架 理论 , 像 Hoare 逻辑 .代数 说 明 语言 、 模 态 逻 辑 和 
指称 语义 ;这 些 框架 虽然 能 表述 十 分 普遍 且 正 确 的 性 质 ,但 难以 使 用 , 且 对 程序 员 也 提出 更 高 
的 要 求 。 另 一 方面 是 能 力 适 度 的 技术 一 一 适度 到 能 够 将 自动 检查 器 放 到 编译 器 .连接 器 或 程 
序 分 析 器 中 ,这样 能 被 不 熟悉 所 基于 的 理论 的 程序 员 所 使 用 。 这 种 轻 量 级 形式 方法 的 一 个 典 
型 实例 就 是 模型 检查 器 ,作为 芯片 设计 或 通信 协议 这 样 的 有 限 状 态 系统 中 搜索 错误 的 工具 。 
另 一 个 越 来 越 引 起 重视 的 实例 是 实时 监测 ,使 一 个 系统 能 动态 地 监测 到 它 的 部 件 是 否 处 在 说 
明 所 要 求 的 状态 中 的 技术 。 但 至 今 最 流行 的 和 发 展 最 完善 的 轻 量 级 的 形式 方法 是 类 型 系统 ， 
这 是 本 书 的 中 心 议题 。 

如 大 型 社团 共享 许多 术语 一 样 ,程序 语言 设计 人 员 及 实现 人 员 对 “类 型 系统 ”的 定义 包括 
了 它 的 非 正 式 用 法 ,能 做 到 这 一 点 是 十 分 不 容易 的 事 , 尽 管 如 此 ,该 定义 仍 存在 一 些 争议 。 下 
面 是 一 个 比较 正确 的 定义 

类 型 系统 是 指 一 种 根据 所 计算 出 值 的 种 类 对 词语 进行 分 类 从 而 证 明 某 程序 行为 不 会 

发 生 的 可 行 语法 手段 。 

关于 这 个 定义 有 几 点 评论 。 首 先 , 这 个 定义 确立 类 型 系统 作为 程序 的 推理 工具 。 这 句 话 
反映 了 本 书 对 竺 程序 语言 中 类 型 系统 的 态度 。 更 一 般 地 ,类 型 系统 (或 类 型 理论 ) 是 指 在 逻辑 、 
数学 和 哲学 中 更 广泛 的 一 类 研究 领域 。 这 个 意义 下 的 类 型 系统 最 时 形式 化 于 1900 年 左右 ,是 
作为 一 种 避免 威胁 数学 基础 的 逻辑 迟 论 ,如 Russell 悖 论 (Russell ,1902) 的 办 法 。 在 20 世纪 ,类 
型 成 为 逻辑 ,特别 是 证 明 论 (人 参见 Gandy,1976 以 及 Hindley,1997) 中 的 标准 工具 ,并 渗透 到 哲学 
和 科学 的 语言 中 。 这 一 领域 的 主要 里 程 碑 包 括 Russel 原始 的 类 型 分 支 理 论 (Whitehead 和 
Russell,1910 ) , Ramsey 简单 类 型 理论 (Ramsey, 1925) , Chureh 简单 类 型 lambda 演算 的 基础 
(1940) ,MarinLif 构造 性 类 型 理论 (1973, 1984) ,以 及 Berardi, Terlouw 和 Barendregt 的 纯 类 型 系 
统 (Berardi ,1988; Terlouw,1989; Barendregt, 1992 ) 。 

即使 在 计算 机 科学 里 ,有 两 种 研究 类 型 系统 的 重要 分 支 。 本 书 关注 的 是 更 实用 的 分 支 ,因为 
它 涉及 程序 语言 的 应 用 。 偏 于 抽象 的 分 支 关 注 的 是 如 何 通 过 Cury-Howard 对 应 (参见 9.4 节 ) 
将 多 种 " 纯 类 型 lambda 演算 "与 不 同 的 逻辑 联系 在 一 起 。 两 个 分 支 采用 类 似 的 概念 .符号 和 技 
术 , 但 在 方向 上 有 着 重要 的 差别 。 比 如 ,类 型 lambda 演算 的 研究 通常 关心 的 系统 是 每 个 良 类 
型 的 计算 是 可 终止 的 ,但 大 部 分 程序 语言 为 了 保留 像 递归 函数 定义 这 样 的 特征 而 忽略 了 这 个 
性 质 。 

上 述 定 义 中 另 一 个 重点 是 强调 项 (语法 词 ) 的 分 类 , 即 执行 时 根据 项 所 计算 的 值 的 性 质 来 
对 项 分 类 。 一 个 类 型 系统 可 以 看 做 是 用 一 个 程序 中 项 的 基态 计算 来 模拟 项 的 执行 时 间 行 为 





2 类 型 和 程序 设计 语言 


(此 外 ,指派 给 项 的 类 型 通常 是 可 复合 计算 的 , 即 一 个 表达 式 的 类 型 只 依赖 它 的 子 表达 式 的 


类 型 )。 

术语 “静态 "有 时 是 有 意 加 上 的 ,如 我 们 说 一 个 “静态 类 型 程序 语言 "是 为 了 将 这 里 的 编译 
时 间 分 析 与 某 些 语言 中 的 动态 或 潜在 类 型 区 分 开 来 ,如 语言 Scheme(Sussman 和 Steele, 1975; 
Kelsey, Clinger 和 Rees,1998; Dybvig,1996) , 它 的 运行 时 类 型 标记 是 用 来 区 分 堆 中 不 同 种 类 的 结 
构 。 术 语 "动态 类 型 化 "有 点 用 词 不 当 , 应 当 换 为 “动态 检查 ”, 但 用 法 是 按 标 准 进行 的 。 

静态 的 类 型 系统 必然 保守 :它们 能 泛泛 地 证 明 某 些 坏 的 程序 行为 不 会 出 现 , 但 不 能 证 明 这 
些 坏 的 程序 行为 的 出 现 ,并 且 它们 有 时 还 会 拒绝 在 执行 时 间 行 为 良好 的 程序 。 比 如 ,一 个 像 : 


让 < complex test > then 9 else < type error > 


的 程序 被 认为 不 是 良 类 型 的 ,即使 < complex test > 总 是 求 值 为 tue, 因 为 一 个 静态 分 析 不 能 确 
定 是 这 种 情况 。 保 守 性 和 表达 方式 之 间 的 矛盾 是 类 型 系统 设计 中 一 个 基本 事实 。 企 图 使 更 多 
的 程序 类 型 化 (通过 指派 更 精确 的 类 型 到 程序 中 ) 就 成 为 这 个 领域 研究 的 主要 动力 。 

相关 的 一 点 是 能 人 在 大 部 分 类 型 系统 中 的 相对 直接 的 分 析 , 不 能 阻止 任意 意 想 不 到 的 程 
序 行为 ;他 们 只 能 保证 良 类 型 程序 没有 某 类 错误 行为 。 比 如 ,大 部 分 类 型 系统 能 静态 地 检查 初 
始 算术 运算 的 变量 总 是 数字 ,在 一 个 方法 调用 中 的 接受 对 象 能 提供 所 要 求 的 方法 ,等 等 ,但 不 
能 检查 到 除法 运算 中 的 第 二 个 变量 是 否 非 零 ,或 对 数组 的 访问 是 否 未 越界 。 

给 定语 言 中 类 型 系统 能 消除 的 不 良 行为 常常 称 为 执行 时 间 类 型 错误 。 记 住 这 一 点 很 重 
要 :每 种 语言 都 存在 这 类 行为 ,尽管 不 同 语言 执行 时 间 错 误 的 行为 之 间 有 着 本 质 的 重 豆 部 分 ， 
原则 上 每 个 类 型 系统 有 着 各 自 要 阻止 的 行为 定义 。 每 个 类 型 系统 的 安全 性 (或 可 靠 性 ) 必 须根 
据 自 己 的 执行 时 间 错 误 集 合 来 判定 。 

类 型 分 析 发 现 的 不 良 行为 不 限于 低层 错误 ,如 调用 一 个 不 存在 的 方法 :类 型 系统 也 用 来 加 
强 高 层 模块 性 质 ,保护 用 户 定义 的 抽象 完整 性 。 违 反 信息 隐藏 ,如 直接 访问 抽象 数据 值 区 域 ， 
将 与 一 个 整数 处 理 为 一 个 指针 ,从 而 使 机 器 崩溃 一 样 ,都 是 执行 时 间 错 误 。 

类 型 检查 器 专门 置 于 编译 器 或 连接 器 中 。 这 意味 着 它们 必须 能 自动 完成 它们 的 工作 ,不 
需要 人 工 于 预 或 程序 员 的 介 人 一 一 即 它们 必须 体现 计算 可 行 性 分 析 。 尽 管 如 此 ,仍然 有 许多 
地 方 需要 程序 员 的 引导 , 即 在 程序 中 加 入 明显 的 类 型 注释 。 通 常 ,这 些 注 释 会 相对 少 些 ,使 得 
程序 更 容易 写 和 读 。 但 原则 上 ,程序 符合 某 些 规范 的 一 个 完整 证 明 可 以 在 类 型 的 注释 中 编码 ; 
这 种 情况 下 ,类 型 检查 器 将 相应 地 变 成 一 个 证 明 检查 器 。 如 扩展 静态 检查 技术 (Dele&s, Leino， 
Nelson 和 Saxe, 1998) 是 类 型 系统 用 来 对 一 个 全 面 程 序 进行 验证 的 方法 :只 需 通过 少量 合理 的 
程序 注释 来 帮助 实现 某 些 正 确 性 的 全 自动 检查 。 

由 于 同样 的 原因 ,我 们 最 感 兴趣 的 不 是 自动 实现 方面 ,而 是 能 得 出 有 效 类 型 检查 算法 的 方 
法 。 但 是 ,什么 是 有 效 的 仍 是 争论 的 焦点 。 即 使 广泛 使 用 的 类 型 系统 ,如 ML(Damas 和 Milner， 
1982) ,可 能 在 病态 情况 下 (Henglein 和 Mairson, 1991) 需 要 大 量 的 类 型 检查 时 间 。 也 有 一 些 语 
言 , 它 们 的 类 型 检查 或 类 型 重 构 问 题 是 不 可 判定 的 ,但 对 那些 在 “大 部 分 实际 情况 下 ?可 以 很 快 
停止 的 程序 可 以 找 出 有 效 的 算法 (如 Pieree 和 Tumer,2000; Nadathur 和 Milner， 1988; Pfenning， 
1994)。 








1.2 类 型 系统 的 优点 


侦 测 错误 


静态 类 型 检查 最 明显 的 优点 是 它 总 能 早早 地 侦 测 程序 错误 。 早 期 侦 测 出 的 错误 可 以 立刻 
定位 ,而 不 会 隐藏 在 代码 中 待 以 后 发 现 ( 即 当 程序 员 忙于 其 他 事情 或 甚至 在 程序 被 配置 以 后 )。 
此 外 ,在 事情 开始 变 粳 之 前 错误 的 作用 不 是 很 明显 的 情况 下 ,类 型 检查 时 发 现 的 错误 比 在 执行 
时 间 发 现 的 错误 更 精确 。 

在 实际 中 ,静态 类 型 检查 可 暴露 多 得 令 人 惊讶 的 错误 。 使 用 丰富 类 型 语言 的 程序 员 常常 
感到 他 们 的 程序 一 旦 通过 类 型 检查 器 就 会 马上 运行 ,在 他 们 还 来 不 及 想 下 一 步 怎 么 做 时 ,这 种 
情况 已 经 多 次 出 现 了 。 一 个 可 能 的 解释 是 ,这 不 但 是 平凡 的 人 为 事故 (如 忘记 在 求 平方 根 之 前 
将 串 转 换 为 一 个 数 ) ,而 且 是 更 深 的 概念 性 错误 (如 忽略 了 一 个 复杂 情况 分 析 中 的 一 个 边界 条 
件 ,或 混淆 一 个 科学 计算 中 的 单位 ) ,都 会 通过 类 型 不 一 致 体现 出 来 。 效 果 如 何 依 赖 于 类 型 系 
统 的 表达 能 力 和 具体 的 程序 :处 理 各 种 数据 结构 的 程序 (如 编译 器 这 样 的 符号 处 理应 用 ) 比 起 
只 涉及 很 少 简单 类 型 的 程序 ,如 科学 应 用 中 的 数值 计算 [尽管 如 此 ,支持 维度 分 析 (Kennedy， 
1994) 的 改进 类 型 系统 也 可 以 非常 有 用 ] ,常常 更 需要 类 型 检查 。 

从 类 型 系统 得 到 的 最 大 好 处 包括 将 注意 力 放 在 程序 员 的 方面 ,以 及 可 以 充分 利用 语言 
供 的 一 切 工具 ;比如 ,一 个 将 所 有 的 数据 结构 编译 为 列表 的 复杂 程序 ,无 法 获得 与 将 每 个 数据 
结构 定义 为 不 同 数据 类 型 或 抽象 类 型 的 程序 从 编译 器 得 到 的 帮助 一 样 多 。 表 达能 力 强 的 类 型 
系统 提供 多 种 用 类 型 编码 结构 信息 的 “技巧 "。 

对 某 些 程序 ,一 个 类 型 检查 器 也 可 能 成 为 一 个 无 价 的 维护 工具 。 比 如 , 当 程序 员 想 改变 复 
杂 数 据 结构 定义 时 不 需要 手工 在 一 个 大 程序 中 查找 所 有 出 现 这 个 结构 的 位 置 。 一 旦 数据 类 型 
改变 ,所 有 这 些 位置 都 将 变 成 类 型 不 一 致 ,这 时 能 执行 编译 器 将 类 型 检查 失效 的 位 置 列 举 
出 来 。 


抽象 


类 型 系统 支持 程序 设计 的 另 一 个 重要 方法 是 强化 规范 编程 。 特 别 是 ,在 大 型 软件 集成 的 
环境 中 ,类 型 系统 是 用 来 将 大 系统 的 组 件 打包 和 捆 在 一 起 的 模块 语言 的 主干 。 类 型 出 现在 模 
块 的 接口 (及 相关 的 结构 ,如 类 ) 中 ;的 确 , 一 个 接口 本 身 能 看 做 是 “一 个 模块 类 型 " ,提供 模块 大 
概 完成 的 功能 一 一 一 种 实现 者 与 用 户 之 间 的 部 分 契约 。 

用 带 清晰 接口 的 模块 来 结构 化 大 型 系统 会 产生 一 个 更 为 抽象 的 设计 形式 ,其 中 接口 的 设 
计 和 讨论 与 最 终 的 实现 方式 无 关 。 对 接口 思考 得 越 抽象 越 有 利于 设计 。 


文档 


读 程序 时 类 型 也 有 用 。 在 程序 头 和 模块 接口 中 的 类 型 声明 形成 一 个 文档 , 对 程序 的 行为 
给 出 了 有 用 提示 。 此 外 ,不 像 嵌 人 在 注释 中 的 描述 ,文档 的 这 种 形式 不 会 过 时 ,因为 在 编译 器 
的 每 次 执行 时 都 要 检查 它 。 类 型 的 这 个 作用 对 模块 基调 特别 重要 。 
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语言 安全 性 

遗 司 的 是 ,术语 "安全 语言 " 比 起 “类 型 系统 "有 着 更 多 的 争议 。 尽 管 人 们 都 认为 是 按照 自 
己 的 想法 去 理解 的 ,但 是 实际 上 语言 安全 性 概念 的 形成 很 大 程度 上 受到 了 其 所 属 的 语言 团体 
的 影响 。 非 形式 地 ,安全 语 育 可 以 定义 为 在 编程 时 不 可 能 危害 到 自身 语言 。 

将 这 个 说 法 再 深入 一 点 ,我 们 可 以 说 一 个 安全 的 语言 是 保护 它 自己 的 抽象 的 语言 。 每 个 
高 层 语言 提供 机 器 服务 的 抽象 。 安 全 性 是 指 语言 具备 保证 这 些 抽象 ,以 及 程序 员 用 语言 的 定 
义工 具 引 人 高 层 抽象 的 完整 性 的 能 力 。 比 如 ,一 个 语言 可 以 提供 数组 ,具有 访问 和 更 新 操作 ， 
作为 基础 内 存 抽象 。 一 个 使 用 这 个 语言 的 程序 员 期 望 数 组 只 用 更 新 操作 才能 改变 一 一 而 不 必 
接 在 其 他 数据 结构 末尾 修改 。 类 似 地 ,程序 员 期 望 语 义 范 围 的 变量 只 可 以 在 它们 的 语义 范围 
内 访问 ,调用 堆栈 的 行为 真正 地 像 一 个 堆栈 等 。 在 一 个 安全 语言 中 ,这 样 的 抽象 可 以 抽象 地 使 
用 ;在 一 个 不 安全 的 语言 中 则 不 能 ,为 了 完全 理解 一 个 程序 怎样 (错误 ) 操 作 ,必须 记 住所 有 的 
低层 细节 ,如 内 存 中 数据 结构 的 布局 ,以 及 由 编译 器 分 配 的 次 序 等 。 总 之 ,不 安全 语言 写 出 的 
程序 不 但 可 能 破坏 自己 的 数据 结构 ,而 且 可 能 破坏 那些 执行 时 间 系 统 的 数据 结构 ;在 这 种 情况 
下 的 结果 完全 无 法 确定 了 。 

语言 安全 性 与 静态 类 型 安全 性 不 是 一 回 事 。 语 言 安全 性 可 以 由 静态 检查 来 保证 ,也 可 以 
由 执行 时 间 检查 来 保证 ,因为 执行 时 间 检查 在 无 意义 操作 企图 执行 时 会 捕获 这 些 操作 ,然后 停 
止 程序 或 提升 一 个 异常 。 比 如 ,Seheme 是 一 个 安全 语言 ,即使 它 设 有 静态 类 型 系统 。 

反之 ,不 安全 的 语言 常常 提供 “最 佳 效果 "的 静态 类 型 检查 器 ,来 帮助 程序 员 消 除 至 少 是 最 
明显 的 错误 ,但 根据 定义 ,这 样 的 语言 本 身 也 不 是 类 型 安全 的 ,因为 它们 一 般 不 能 保证 良 类 型 
程序 是 良 行为 的 一 一 这 些 语 言 的 类 型 检查 器 能 提示 会 出 现 哪些 执行 时 间 类 型 错误 (显然 比 提 
不 出 要 好 ) ,但 不 能 证 明 它们 不 会 出 现 。 
静态 检查 


ML, Haskell , java 等 
C,C++ 等 















动态 检查 
Eisp, Scheme, Perl ,Postscript 等 

















在 这 个 表 中 的 右 下 角 是 空 的 ,因为 一 旦 检查 工具 用 来 可 以 加 强大 部 分 操作 在 执行 时 间 的 安全 
性 ,将 没有 附加 的 代价 用 于 检查 所 有 的 操作 (实际 上 ,存在 几 个 动态 检查 的 语言 ,如 带 有 最 小 操 
作 系 统 的 微型 计算 机 的 BASIC 语言 ,提供 对 任意 内 存 位 置 进行 读 写 操 作 的 低层 原 语 ,一 旦 错误 
地 使 用 就 会 破坏 执行 时 间 系 统 的 完整 性 )。 

通常 不 能 仅 依靠 静态 类 型 化 来 保证 运行 时 间 的 安全 。 例 如 ,上 表 中 所 列 的 所 有 安全 语言 
实际 上 都 动态 地 执行 数组 越界 检查 。 类 似 地 ,静态 检查 语言 有 时 也 会 选择 采用 一 些 操作 (如 
Java 中 的 向 下 转型 算 子 ,参见 15.5 节 ) ,这 些 操作 中 的 类 型 检查 规则 实际 上 并 不 可 靠 , 所 以 还 
需要 在 使 用 每 种 结构 时 进行 动态 检查 以 保证 语言 的 安全 性 。 


@ 数组 越界 检查 的 静态 消除 是 类 型 系统 设计 者 的 一 个 长 期 目标 。 原 则 上 ,大 家 都 能 理解 有 必要 增加 一 些 机 制 (基于 
依赖 类 型 ,参见 30.5 节 ) ,但 如 何 把 这 些 机 制 统一 起 来 ,使 之 能 达到 表达 能 力 强 ,类 型 检查 可 预言 性 强 和 可 行 性 好 ， 
以 及 程序 注释 的 复杂 度 小 ,等 等 ,都 将 是 一 个 巨大 的 挑战 。 此 领域 的 一 些 最 新 的 进展 可 参见 Xi 和 Pfenning(1998， 
1999) 等 人 的 著作 。 
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语言 安全 性 很 少 是 绝对 的 。 安 全 语言 常常 给 程序 员 提供 “安全 舱 口 " ,比如 外 部 函数 调用 
其 他 可 能 用 不 安全 语言 写 的 代码 。 的 确 ,这 样 的 安全 舱 口 有 时 在 语言 内 部 以 受 限 的 形式 提供 ， 
如 OCaml 的 Obj.magie( Leroy,2000) ,在 Standard ML 的 New Jersey 实现 中 的 Unsafe. cast, 等 等 。 
Modula-3(Cardelli 等 ,1989; Nelson,1991) 和 C# (Wile,2000) 提 供 一 个 “不 安全 的 子 语 言 ”用 于 
实现 低级 执行 时 间 完 成 的 功能 , 如 塘 圾 收集 。 这 个 子 语言 的 特点 可 能 只 能 用 于 明显 注 明 
unsafe 的 模块 。 

Cardelli(1996) 明确 提出 关于 语言 安全 的 一 个 不 同 观点 ,区 别 所 谓 的 捕获 的 和 未 捕获 的 执 
行 时 间 错 误 。 一 个 捕获 错误 引起 一 个 计算 立即 停止 (或 提升 一 个 异常 ,这 个 异常 可 以 在 程序 内 
部 彻底 处 理 ) ,而 未 捕获 的 错误 可 以 允许 计算 继续 (至 少 持续 一 会 ) 进 行 。 一 个 未 捕获 错误 会 造 
成 如 C 语言 中 访问 超过 数组 最 大 下 标的 数据 。 在 这 个 观点 下 ,一 个 安全 语言 是 可 以 防止 出 现 
在 执行 时 间 未 捕获 错误 的 语言 。 

还 有 一 种 观点 关注 可 移植 性 ;其 宗 骨 是 :一 个 安全 语言 完全 是 由 它 的 程序 员 手 册 所 定义 
的 。 假 设 一 种 语言 的 定义 是 程序 员 为 了 预测 语言 中 所 有 程序 应 实现 的 功能 而 想 出 的 概念 集 
合 。 那 么 ,一 个 像 C 语言 的 手册 不 构成 这 个 定义 ,因为 某 些 程序 的 行为 (如 包含 未 经 检查 的 数 
组 访问 或 指针 算术 ) 在 不 知道 一 个 具体 的 C 编译 器 如 何 配 置 内 存 中 数据 结构 之 前 ,是 不 能 被 
项 测 的 ,并且 同 样 的 程序 由 不 同 编译 器 执行 时 可 以 有 不 同 的 行为 。 相 比 之 下 ,Java, Scheme 以 
及 ML 的 手册 说 明了 (在 不 同 严格 程度 下 ) 语 言 中 所 有 程序 的 精确 行为 。-- 个 良 类 型 程序 在 这 
些 语言 的 正确 执行 下 将 产生 相同 的 结果 。 


有 效 性 


计算 机 科学 中 的 第 一 个 类 型 系统 ,是 20 世纪 50 年 代 的 FORTRAN( Backus, 1981) 语 言 , 
过 区 别 整数 值 算术 表达 式 和 实数 值 算术 表达 式 来 改善 数值 计算 的 有 效 性 ,这 使 得 编译 器 可 以 
用 不 同 的 表示 形成 ,生成 合适 的 原始 运算 机 器 指令 。 在 安全 语言 中 , 若 消 除 许多 保证 安全 性 
〈 通 过 静态 证 明 它 们 总 是 满足 的 ) 的 动态 检查 ,可 以 进一步 改善 有 效 性 。 今 天 ,大 部 分 高 性 能 纺 
译 器 主要 依赖 在 优化 和 原 码 生成 阶段 由 类 型 检查 器 收集 的 信息 。 即 使 没有 类 型 系统 的 语言 编 
译 器 ,本 质 上 也 在 努力 获得 这 些 类 型 信息 。 

类 型 信息 还 能 在 其 他 令 人 意 想不到 的 地 方 改善 有 效 性 。 比 如 ,最 近 证 明 : 在 并 行 科学 程序 
中 不 但 原 码 生成 决策 ,而 且 指 针 表 示 方 式 可 以 用 类 型 分 析 生 成 的 信息 得 到 改善 。Titanium 语 
言 (Yeliek 等 ,1998) 所 用 的 类 型 推理 技术 分 析 指针 的 辖 域 ,能 够 做 出 比 程序 员 手 工 调试 程序 更 
好 的 决定 。ML Kit 编译 器 用 一 个 强 有 力 的 区 域 推论 算法 (Giftford,Jouvelot, Lucassen 和 Shelqon ， 
1987; Jouvelot 和 Gifford, 1991; Talpin 和 Jouvelot, 1992;Tofte 和 Talpin,1994 ,1997; Tofte 和 Birkedal， 
1998) 来 替代 大 部 分 (在 有 些 程 序 中 是 所 有 的 ) 基 于 堆栈 的 内 存 管理 方式 的 垃圾 收集 。 


进一步 应 用 


除了 在 程序 和 语言 设计 中 使 用 之 外 ,类 型 系统 还 以 许多 特殊 的 方式 应 用 于 计算 机 科学 和 
相关 领域 (我 们 将 列举 几 个 )。 

类 型 系统 应 用 的 一 个 重要 领域 是 计算 机 和 网 络 安全 。 静 态 类 型 化 是 Java 和 Jini 的 网 络 设 
备 的 即 插 即 用 体系 (Amold 等 ,1999) 的 安全 模型 的 核心 ,并 且 是 携带 证 明代 码 的 一 个 关键 授权 
技术 (Necula 和 Lee,1996,1998; Necula, 1997) 。 同 时 ,许多 安全 领域 的 基础 性 想法 在 程序 语言 
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的 环境 中 重新 研究 ,而 常常 采用 的 方法 是 类 型 分 析 ( 如 Abadi, Banerjee, Heintze 和 Riecke, 1999; 
Abadi,1999;Leroy 和 Rouaix,1998 等 )。 反 之 ,将 程序 语言 理论 直接 应 用 于 在 安全 领域 也 是 目前 
的 研究 趋势 (Abadi ,1999 ;Sumii 和 Pierce,2001 ) 。 

除 编译 器 之 外 ,类 型 检查 和 推论 算法 还 会 出 现在 许多 程序 分 析 的 工具 中 。 比 如 ,AnnoDo- 
mini, 一 个 Cobol 程序 的 千年 虫 转换 工具 ,是 基于 一 个 ML 形式 的 类 型 推论 引擎 (Eidorff 等 ， 
1999) 。 类 型 推论 技术 也 用 于 别名 分 析 (0"7 Callahan 和 Jackson, 1997) 和 异常 分 析 (Leroy 和 Pes- 
saux,2000)。 

在 自动 定理 证 明 中 ,类 型 系统 (通常 基于 依赖 类 型 的 系统 ) 用 来 表示 逻辑 命题 和 证 明 。 几 
个 常用 的 证 明 辅 助 器 ,包括 Nupz( Constable 等 ,1986) ,Lego(Lue 和 Pollack, 1992; Pollack, 1994 ) ， 
Coq(Barras 等 ,1997) ,以 及 AIf(Magnusson 和 Nordstrsm, 1994) , 是 直接 基于 类 型 理论 的 。Consta- 
ble(1998) 和 Penning(1999) 讨 论 了 这 些 系统 的 历史 。 

在 数据 库 领 域 , 随 着 文档 类 型 定义 形成 (XML 1998) 和 其 他 描述 XML 的 数据 结构 的 模式 
(如 XML-Schema 标准 [XS 2000]) 中 “Web 元 数据 ”的 发 展 , 人 们 对 类 型 系统 的 兴趣 越 来 越 浓 。 
查询 和 处 理 XML 的 新 语言 提供 了 直接 基于 这 些 模式 语言 的 强大 的 静态 类 型 系统 (Hosoya 和 
Pierce ,2000; Hosoya, Vouillon 和 Pierce,2001; Hosoya 和 Pierce ,2001; Relax,2000; Shields ,2001 ) 。 

类 型 系统 还 应 用 于 一 个 完全 不 同 的 领域 一 一 计算 语言 学 领域 ,其 中 类 型 lambdqa 演算 形成 
了 形式 体系 ,如 范畴 语法 (van Benthem, 199$; van Benthem 和 Meulen, 1997; Ranta, 1995; 等 ) 的 
基础 。 


1.3 类 型 系统 和 语言 设计 


设计 语言 若 没 有 考虑 到 类 型 检查 ,然后 再 将 类 型 系统 补充 进来 会 有 很 多 的 困难 ;所 以 理想 
的 做 法 是 ,语言 设计 与 类 型 系统 设计 并 行进 行 。 

其 中 一 个 因素 是 不 含 类 型 系统 的 语言 (即使 是 安全 的 ,可 以 动态 检查 的 语言 ) 倾 向 于 增加 
某 些 特征 或 采用 某 些 编程 习惯 ,从 而 使 类 型 检查 变 得 困难 或 不 可 行 。 的 确 ,在 类 型 化 的 语言 
中 ,在 考虑 设计 的 方方面面 时 类 型 系统 本 身 常 常 看 做 是 设计 的 基础 和 组 织 原 则 。 

另 一 个 因素 是 与 无 类 型 语言 做 比较 ,类 型 语言 的 具体 语法 更 复杂 , 因为 必须 考虑 类 型 注 炎 。 
而 在 类 型 化 语言 中 , 当 所 有 问题 一 起 考虑 时 ,设计 一 个 清晰 且 易 理解 的 语法 会 变 得 更 容易 。 

类 型 应 该 是 一 个 程序 语言 的 不 可 或 缺 的 部 分 ,这 个 断言 应 该 与 程序 员 必 须 在 哪里 写 类 型 
注释 ,以 及 这 些 注 释 在 娜 里 由 编译 器 推导 的 问题 分 开 来 理解 。 一 个 设计 良好 的 静态 类 型 语言 
绝 不 要 求 写 出 大 晤 需要 由 程序 员 维护 的 类 型 信息 。 关 于 多 少 类 型 信息 才 算 太 多 这 个 问题 一 直 
都 有 争论 。ML 系列 的 语言 设计 者 努力 使 注释 最 少 , 并 用 类 型 推论 方法 恢复 必要 的 信息 。C 系 
列 的 语言 (包括 Java) , 则 采用 了 稍 元 长 的 形式 。 


1.4 历史 概要 
在 计算 机 科学 中 ,最 早 的 类 型 系统 用 来 对 数字 的 整数 和 浮 点 表示 (如 在 FORTRAN 中 ) 做 


简单 的 区 分 。 在 20 世纪 50 年 代 后 期 和 20 世纪 60 年 代 早 期 ,这 种 分 类 扩展 到 了 结构 数据 ( 记 
录 数 组 等 ) 和 高 阶 函 数 。 在 20 世纪 70 年 代 , 引 和 人 了 几 个 更 丰富 的 概念 (参数 化 多 态 ,抽象 数据 
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类 型 ,模块 系统 和 子 类 型 ), 并 且 类 型 系统 作为 一 个 领域 独立 地 出 现 了 。 同 时 ,计算 机 科学 家 开 
始 意识 到 程序 语言 中 类 型 系统 与 数理 逻辑 中 研究 的 类 型 系统 之 间 的 联系 ,开始 了 两 方面 的 交 


又 研究 。 


图 1.1 给 出 了 计算 机 科学 中 类 型 系统 历史 的 一 些 重点 (也 许 并 不 完整 ) 年 表 。 右 边栏 中 列 
出 的 索引 可 以 在 参考 文献 中 找到 。 





-一 一 
19 世纪 80 年 代 

20 世纪 初 

20 世纪 30 年 代 

20 地 纪 40 年 代 

20 世纪 50 年 代 


20 世纪 60 年 代 


20 世纪 70 年 代 





20 世纪 80 年 代 





20 世纪 9 年 代 


形式 逻辑 的 起 海 
数学 的 形式 化 . 
无 类 型 演算 
简单 类 型 化 演算 
FORTRAN 

4Algol 60 

Automath 计划 
Simula 
Cury-Howard 对 应 
Algol 68 

Pascalj 

Marin Lif 类 型 理论 
系统 F, F“ 

多 态 lambda 演算 


NuPRL 计划 

子 类 更 

作为 存在 类 型 的 ADT 
构造 演算 

线性 逻辑 

关 重 词 


Edinburgh 逻辑 基础 框架 
Forsythe 

纯 类 型 系统 
依赖 类 型 和 模块 化 
Quest 

效果 系统 

行 变量 ,可 扩展 记录 


高 阶 子 类 型 

类 型 化 中 间 语 言 
对 象 演算 

种 明 类 型 和 模块 化 
类 型 化 汇编 语言 


Frege(1879) 

Whitehead 和 Russell (1910) 

Church(1941) 

Church(1940) , Curry 和 Feys(1958) 
Backus(1981) 

Naur 等 (1963) 

de Bruijn( 1980) 

Birtwistle 等 (1979) 

Howard(1980) 

(van Wijngaarden 等 (1975) 

Wirth(1971) 

Martin-Laf( 1973 ,1982) 

Girard( 1972) 

Reynolds(1974) 

Liskov 等 (1981 》 

Mimer(1978) ,Damas 和 Milner( 1982) 
Cordon,Milner 和 Wadsworth( 1979) 

Coppo 和 Dezani(1978》 

Coppo, Dezani 和 Sallk( 1979) , Pottinger( 1980) 
Conatable 等 (1986) 

Reynolds(1980) , Cardelli(1984) ,Mitchell(1984a) 
Mitehell 和 Hiotkin( 1988) 

Cognand( 1985) , Coquand 和 Huet(1988) 
Girard( 1987) ,Cimard 等 (1989) 

Cardelli 和 Wegner(1985) 

Curen 和 Ghelli(1992) ,Cardelli 等 (1994) 
Hamer, Honsell 和 Piotkin(1992) 
Reynolds(1988) 

Teqouw(1989) , Berardi(1988) , Barendregt(1991) 
Burstal 和 Lampson(1984) ,MacQueen(1986) 
Cardelli(1991) 

Gifford 等 (1987) ,Talpin 和 Jouvelot( 1992) 
Wand(1987) ,Remy(1989) 

Cardelli 和 Mitehell( 1991) 

Cardelli(1990) ,Cardeli 和 Longo( 1991) 
Tarditi, Morrisett 等 (1996) 

Abadi 和 Cardelli(1996) 

Harper 和 Lillibridge(1994) ,Leroy(1994》 
Morrisett 等 (1998) 





1.5 相关 阅读 


图 1.1 类 型 在 计算 机 科学 和 多 辑 中 的 历史 概要 





本 来 是 希望 读者 只 阅读 本 书 就 能 掌握 其 中 的 内 容 , 但 这 反而 会 使 读者 更 难以 理解 ; 因为 对 
于 一 本 书 来 说 ,这 个 领域 太 大 了 ,可 以 从 太 多 的 角度 来 考虑 。 所 以 本 节 列 出 几 本 好 的 参考 


书籍 。 
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Cardelli(1996) 和 Mitehell(1990b) 的 手册 对 这 一 领域 做 了 简要 介绍 。Barendregt(1992) 的 文 
章 更 注重 数学 方面 。Mitehell 关于 “Foundations for Programming Languages”( 1996) 的 教材 涵盖 了 
基本 lambda 演算 ,类 型 系统 和 语义 等 许多 方面 。 重 点 在 语义 而 不 是 在 实现 问题 。Reynolds 的 
“Theories of Programming Languages”(1998b) ,是 一 本 程序 语言 理论 的 研究 生 教 材 ,包括 了 多 态 、 
子 类 型 和 交叉 类 型 。Schmidt(1994) 的 “The Structure of Typed Programming Languages ”研究 了 在 语 
言 设计 的 上 下 文中 的 类 型 系统 的 核心 概念 ,包括 几 章 关于 约定 性 指令 语言 。Hindley 的 专著 
“Basic Simple Type Theor ”(1997) 概 要 介绍 了 简单 类 型 lambda 演算 和 密切 与 之 相关 的 系统 。 它 
更 注重 覆盖 的 深度 而 不 是 广度 。 

Abadi 和 Cardelli 的 “A Theory of Objects ”讨论 了 几 个 与 本 书 相同 的 问题 ,但 重点 不 在 实现 方 
面 ,而 是 这 些 思想 在 面向 对 象 程序 的 基础 处 理 中 的 应 用 。Kim Bruce 的 "Foundations of Object- 
Oriented Languages: Types and Semantics”(2002) 洱 盖 了 类 似 的 方面 。Palsherg 和 Schwartzbach 
(1994) ,以 及 Castagna(1997) 中 也 给 出 了 面向 对 象 类 型 系统 的 基础 介绍 。 

Gunter( 1992) , Winskel(1993) 以 及 Mitehell(1996) 的 教材 深 人 讨论 了 无 类 型 和 类 型 语言 的 语 
义 基础 。Hennessy(1990) 讨 论 了 操作 语义 。 有 许多 图 书 都 介绍 了 范畴 论 数学 框架 中 的 类 型 语 
义 基 础 ,包括 Jacobs(1999) ,Asperti 和 Longo(1991) ,以 及 Crole(1994) 的 著作 “Basie Category The- 
ory for Computer Scientists”(Pierce, 1991a) 中 介绍 了 这 方面 的 初步 知识 。 

Girard, Lafont 和 Taylor 的 “Proofs and Types”(1989) 讨 论 类 型 系统 的 逻辑 方面 (Cury-Howard 
对 应 ,等 等 ) , 它 包 括 系 统 的 描述 和 线性 逻辑 介绍 性 的 内 容 。Pfenning 的 “Computation and Deduc- 
tion”(2001) 进 一 步 讨 论 了 类 型 和 逻辑 之 间 的 联系 。Thompson 的 “Type Theory and Functional Pro- 
gramming"“(1991) 和 Tumer 的 “Constmuctive Foundations for Functional Languages”(1991 ) 从 一 个 逻辑 
角度 看 函数 式 程序 (在 Haskell 或 Miranqa 的 “ 纯 函 数 式 程序 "的 意义 下 ) 和 构造 类 型 论 之 间 的 联 
系 。Goubault-Larrecqd 和 Mackie 的 “Proof Theory and Automated Deduction”(1997) 讨 论 了 几 个 与 证 
明 论 相关 的 主题 。 在 Constable(1998) , Wadler(2000) , Huet(1990) 和 Ptenning(1999) 的 书 中 ,Laan 
的 博士 论文 (1997) , Grattan-Guinness(2201) ,以 及 Sommaruga(2000) 的 书 中 都 详细 地 描述 逊 辑 
学 及 哲学 中 类 型 的 发 展 史 。 


在 说 明 程 序 语 言 的 类 型 可 靠 性 方面 ,需要 进行 大 量 的 详细 分 析 来 避免 产生 错误 和 令 人 奴 坎 
的 提 法 。 因 此 ,对 类 型 系统 的 分 类 ,描述 和 研究 已 成 为 一 种 形式 方法 。 





Luca Cardelli(1996) 





第 2 章 数学 基础 


在 进入 正题 之 前 ,我 们 需要 介绍 一 些 基本 概念 和 几 个 基本 数学 事实 。 大 部 分 读者 可 以 跳 


过 这 一 章 ,需要 时 再 回来 翻阅 。 


2.1 


《 


集合 .关系 和 函数 


2.1.1 定义 :我 们 用 标准 的 符号 表示 集合 :大 括号 用 于 列 出 一 个 集合 的 元 素 (|… 几 ) ,或 
者 用 包含 的 方式 从 一 个 集合 构造 另 一 个 集合 (lxe S$1… 有 ,人 表示 空 集 ,S \7 表示 8 和 了 
的 集合 差 ( 不 在 了 中 而 在 $ 中 的 元 素 集合 )。 一 个 集合 $ 的 长 度 记 为 181。$ 的 罕 集 , 即 
S 的 所 有 子 集 的 集合 , 记 为 2(S)。 

2.1.2 ”定义 :自然 数 集 10,1,2,3,4,5…:} 记 为 N。 如 果 它 的 元 素 可 以 与 自然 数 一 一 对 应 

则 一 个 集合 称 为 可 数 的 。 

2.1.3 定义 :集合 S ,$ ,…,S,， 上 的 一 个 半 元 关系 是 S, 到 $, 的 二 元 组 的 集合 尺 cSx 
S x…xg。 我 们 说 元 素 %eS seS, 是 尺 关 联 的 ,如 果 (* ,…,。 ) 是 尺 的 元 素 。 


2.1.4 定义 :集合 S 上 的 一 个 一 元 关系 称 为 9 上 的 一 个 谓词 。( 如 果 se P) , 称 户 对 元 
素 se $ 是 真 的 。 为 了 强调 这 一 点 ,我 们 常常 用 P(s) 表 示 se 己 , 将 己 看 成 是 将 8 的 元 素 
有 映射 为 真 假 值 的 一 个 函数 。 

2.1.5 ”定义 :集合 S,7 上 的 关系 尺 称 为 二 元 关系 。 常 常用 * 尺 it 表示 (si 门 c 丸 。 当 3,7 
为 相同 集合 忆 时 ,我 们 称 尺 为 尽 上 的 一 个 二 元 关系 。 

2,1.6 ”定义 :为 了 可 读 性 ,三 元 或 三 元 以 上 的 关系 常常 用 混合 记 法 ,其 中 用 关系 将 关联 
的 元 素 分 开 。 比 如 ,在 第 9 章 中 简单 类 型 lambda 演算 中 类 型 关系 ,我 们 用 下 F s:T 表示 
“三 元 组 (T,s,T) 是 类 型 关系 关联 的 ”。 

2.1.7 ”定义 :$, 了 上 的 一 个 关系 丸 的 定义 域 , 记 为 dom( 有 R) ,是 元 素 se 8 的 集合 ,使 得 对 
某 个 已 有 (seR。 灵 的 值 域 , 记 为 ronge( 及 ) ,是 元 素 te 7 的 集合 ,使 得 对 某 个 ，, 有 
(Siec 尺 。 

2.1.8 定义 :8, 了 上 的 一 个 关系 称 为 $ 到 7 的 一 个 部 分 函数 只 ,如 果 , 当 (s,i )e 尽 且 
(s, 忆 )E 及 , 则 有 所 = 所。 如 果 dom(R) = 3, 则 民 称 为 一 个 3 到 了 的 全 函数 (简称 为 函数 )。 


2.1.9 定义 :一 个 S 到 了 的 部 分 函数 尺 , 对 元 素 se 9, 若 有 se dom(R) 则 称 届 为 有 定义 
的 。 否 则 称 为 无 定义 (发 散 的 )。 我 们 用 /(x*) + 或 ,Fr(x) = 人 表示 让 在 * 上 无 定义 ,用 
xz)y 表示 太 在 * 上 有 定义 。 


在 讨论 实现 的 章节 中 ,我 们 将 定义 在 某 输入 下 失败 的 函数 (如 图 22.2 所 示 )。 区 别 失败 


一 个 合法 可 见 的 结果 ) 和 发 散 是 重要 的 ;一 个 可 能 失败 的 函数 可 以 是 部 分 函数 ( 即 在 某 些 元 素 
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seS 上 它 可 能 发 散 ) 也 可 以 是 全 函数 ( 它 总 是 输出 一 个 结果 或 者 明确 的 失败 )。 的 确 ,我 们 将 
常常 需要 证 明 全 函数 性 。 用 /Lx) = /ai 表示 /在 输入 * 下 输出 一 个 失败 的 结果 。 

形式 地 ,SS 到 了 的 可 能 失败 的 函数 实际 上 是 $ 到 了 U 1 Ai 的 一 个 函数 ,其 中 我 们 假定 Ai 
不 属于 了 。 

2.1.10 定义 :假设 尺 是 一 个 集合 $ 上 的 二 元 关系 ,已 是 $ 上 的 一 个 谓词 。 如 果 Rs 和 P(s) 

满足 , 则 P(s') 也 满足 ,那么 说 尸 在 尺 下 是 保持 的 。 


2.2 有 序 集合 


2.2.1 定义 :如 果 玉 关联 8 的 每 个 元 素 到 其 自身 , 即 对 所 有 的 seS,sRs( 或 (5，s)eERR)， 
则 一 个 集合 S 上 的 二 元 关系 只 是 自 反 的 。 尺 是 对 称 的 ,如 果 对 所 有 的 ,有 4iES,sRi 昔 
涵 Rs。 如 果 RL 和 上 尺 z 草 涵 * 玉 2 , 则 玉 是 传递 的 。 如 果 RL 和 :Rs 列 涵 = 上 则 玉 
是 反对 称 的 。 

2.2.2 ”定义 :一 个 集合 S 上 的 自 反 ,传递 关系 尺 则 称 为 $S 上 的 一 个 前 序 ( 也 称 伪 序 )( 当 
我 们 说 一 个 前 序 集合 8 时 ,总 是 指 $ 上 某 个 特殊 的 前 序 尺 )。 前 序 通常 用 符号 和 或 E 表 
示 。 我 们 用 < ts 严格 小 于 中 表示 过 上 As 夭 t 

一 个 (在 集合 $S 上 的 ) 前 序 ,如 果 是 反对 称 的 , 则 称 为 $ 上 的 一 个 偏 序 。 如 果 对 $ 中 的 每 
个 * 和 上 或 者 和 上 或 者 上 < , 则 一 个 偏 序 和 称 为 一 个 全 序 。 

2.2.3 ”定义 :假设 丢 是 一 个 集合 S 上 的 偏 序 , 且 ,上 是 $S 的 元 素 。 一 个 元 素 je $ 称 为 
和 的 合 (最 小 上 界 ) ,如 果 : 

1. 三) 入), 且 

2. 对 任何 元 素 Fe $ 满足 ys< 且 < 大 , 则 有 7<。 

类 似 地 ,一 个 元 素 me $ 称 为 * 和 上 的 交 ( 最 大 下 界 ) ,如 果 : 


1. 严 运 5 丸和 过 纯 且 
2. 对 任何 元 素 ne $ 使 得 mn 过 * 且 m 过 纺 则 有 m 过 mm 
2.2.4 ”定义 :一 个 集合 S 上 自 反 ,传递 和 对 称 的 关系 则 称 为 $ 上 的 一 个 等 价 关 系 。 
2.2.5 ”定义 :假设 尺 是 集合 $ 上 一 个 二 元 关系 。 及 的 自 反 闭 包 是 包含 尺 的 最 小 的 自 反 
关系 六 ( “最 小 "是 指 如 果 司 是 某 个 其 他 包含 尽 的 自 友 关系 , 则 有 尺 E 居 )。 类 似 地 ,并 的 
“传递 闭 包 ”是 包含 尺 的 最 小 的 传递 关系 玉 。 妨 的 传递 闭 包 常 常 记 为 六: 。 尺 的 自 反 和 
传递 闭 包 是 包含 尺 的 最 小 的 自 反 和 传递 关系 , 记 为 屎 "。 
2.2.6 ”练习 [xx 刀 ] :假设 给 定 集 合 $S 上 一 个 关系 民 , 定 义 关 系 民 ' 为 ， 

RR' = 民 Uss)1se31 
即 , 玉 ' 包 含 尺 中 的 所 有 的 序 对 及 (s,s*)。 证 明 产 是 玉 的 自 反 闭 包 。 
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2.2.7 ”练习 [xx 大] :下 面 是 一 个 关系 只 的 传递 闭 包 的 构造 定义 。 首 先 , 我 们 定义 下 列 序 
对 的 序列 ， 

及。 = 妨 

展 =RUISz)I 对 某 个 1 te 玉 且 (zz)eERR | 
即 ,R; 加 上 玉 中 由 序 对 一 步 传 递 得 到 的 所 有 序 对 集合 ,得 到 新 的 尺 ,,。 最 后 ,定义 尺 * 为 
所 有 玲 : 的 并 ; 

慌 ”= UAR。 
证 明 R` 是 届 的 传递 闭 包 , 即 它 满足 定义 (2.2.5) 中 给 出 的 条 件 。 
2.2.8 ”练习 [*x 产 ] :假设 尽 是 集合 $ 上 的 一 个 二 元 关系 , 且 己 是 9 上 在 尺 下 保持 的 一 
个 谓词 。 证 明 己 在 及 下 也 是 保持 的 。 


2.2.9 定义 :假设 在 集合 $S 上 有 一 个 前 序 寺 。 友 的 一 个 降 链 是 $ 的 元 素 序列 。,s ,5 
使 得 序列 的 每 个 成 员 严格 小 于 它 的 前 驱 :对 每 个 ji,s,, < si[ 链 可 以 是 有 限 的 ,也 可 以 是 
无 限 的 ,但 我 们 常常 对 无 限 的 链 感 兴趣 ,如 定义 (2.2.10) 所 示 ]。 

2.2.10 ”定义 :假设 有 集合 S 上 的 一 个 前 序 入。 我 们 称 达 是 良 定 的 ,如 果 它 不 包含 无 限 
的 降 链 。 比 如 ,自然 数 的 序 ,0< 1<2<3<… 是 良 定 的 ,但 整数 上 的 序 ,…< -3< -2< 
-1<0<1<2<3<… 则 不 是 。 我 们 有 时 不 特意 提起 三 ,只 说 $ 是 一 个 良 定 的 集合 。 


2.3 序列 


2.3.1 ”定义 :一 个 序列 即 为 元 素 的 列 , 中 间 用 逗号 隔 开 。 我 们 用 去 导 表示 序列 上 的 cons 
操作 (加 一 个 元 素 到 序列 的 任意 两 端 ) 和 序列 的 添加 (append) 运 算 。 比 如 ,如 果 we 是 一 个 
序列 3,2,1 且 4 是 序列 5,6, 则 0,a 表示 序列 0,3,2,1, 而 c,0 表 示 3,2,1,0 且 ea 表示 
5,6,3,2, 攻 (只 要 我 们 不 讨论 序列 本 身 的 顺序 ,逗号 表示 cons 和 append 这 两 个 运算 不 会 导 
致 混淆 )。 从 1 到 的 自然 数 序列 简 记 为 1. .mn( 只 用 两 个 点 )。 我 们 Le1 用 表示 序列 。 的 
长 度 。 空 序列 记 为 。 或 空格 。 一 个 序列 称 为 是 另 一 个 序列 的 置换 ,如 果 它 们 包含 了 相同 
的 元 素 ,只 是 次 序 不 同 。 


2.4 归纳 


如 同 在 大 部 分 计算 机 科学 中 一 样 ,归纳 证 明 在 程序 语言 理论 中 是 普 适 的 证 明 方法 。 许 多 


这 样 的 证 明 是 基于 下 列 原理 之 一 。 


2.4.1 公理 [自然 数 上 一 般 的 归纳 原理 ] :假定 忆 是 自然 数 上 一 个 谓词 , 则 | 
如 果 P(0) 

且 对 所 有 的 P( 芒 草 涵 PCi+1) 

则 PE(Cn) 对 所 有 的 成立 。 
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2.4.2 ”公理 [自然 数 上 的 完全 归纳 原理 ] :假定 已 是 自然 数 上 一 个 谓词 , 则 : 
如 果 对 每 个 自然 数 mn 

假定 P( 让 对 所 有 的 关 < 

我 们 能 证 明 P(zr) 
则 P(nz) 对 所 有 的 于 成 立 。 


2.4.3 ”定义 :自然 数 序 对 上 的 字典 序 定义 如 下 :(m;z)s(m 2) 当 且 仅 当 或 者 mm < m， 
或 者 下 = 加 上 且 塘 于。 
2.4.4 公理 [字典 序 归 纳 原理 ] :假设 已 是 自然 数 序 对 上 一 个 谓词 
如 果 对 每 个 自然 数 序 对 (m ,=) 
假定 P(m' ,mw ) 对 所 有 的 (mm)<(myn) 
我 们 能 证 明 P(m,m) 
则 尼 ( 亚 ,mz) 对 所 有 的 普 ,m 成 立 。 


字典 序 归纳 原理 是 内 套 归纳 证 明 的 基础 ,其 中 一 个 归纳 证 明 的 某 个 情况 是 由 一 个 “内 部 归 
纳 “证 明 给 出 的 。 这 可 以 推广 到 自然 数 的 三 元 组 、 四 元 组 等 上 的 字典 序 归 纳 ( 序 对 上 的 归纳 是 
相当 普 遍 的 ;有 时 可 以 见 到 有 用 的 三 元 组 上 的 归纳 证 明 ; 三 元 组 以 上 的 归纳 证 明 很 少 )。 

第 3 章 的 定理 (3.3.4) 将 引进 归纳 证 明 的 另 一 种 形式 : 称 为 结构 归纳 ,这 方法 对 树 结 构 ,如 
项 或 类 型 推导 的 证 明 特 别 有 用 。 归 纳 推理 的 数学 基础 将 在 第 21 章 中 讨论 ,在 那里 我 们 将 看 到 
所 有 这 些 特别 的 归纳 原理 是 更 深刻 思想 的 一 个 体现 。 


2.5 背景 知识 阅读 
如 果 读 者 不 熟悉 这 章 的 内 容 , 可 能 需要 阅读 某 些 背景 材料 。 有 许多 这 方面 的 资料 ,其 中 


Winskel(1993) 写 的 一 本 关于 归纳 法 概念 的 书籍 特别 好 。Davey 和 Priestley(1990) 写 的 前 几 章 很 
好 地 综述 了 有 序 集合 。Halmos(1987) 写 了 一 本 很 好 的 关于 集合 论 的 人 门 书籍 。 


一 个 证 明 就 是 具有 说 服 力 的 可 重复 实验 。 


Jim Horning 
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为 了 严格 地 讨论 类 型 系统 和 它们 的 性 质 , 首先 需 要 形式 地 讨论 程序 语言 的 某 些 基础 方面 。 
特别 是 ,我们 需要 一 个 清晰 的 、 精 确 的 和 数学 上 可 行 的 工具 来 表示 和 推理 程序 的 语法 和 语义 。 

本 章 和 下 一 章 将 给 出 讨论 仪 含 自然 数 和 布尔 值 的 小 型 语言 所 需要 的 工具 。 这 个 语言 非常 
平凡 ,但 它 是 引入 几 个 基本 概念 的 有 效 载体 ,如 抽象 语法 .归纳 定义 和 证 明 求 值 和 执行 时 间 错 
误 的 建 模 等 。 第 5 章 至 第 7 章 将 对 更 强 的 语言 一 一 无 类 型 lambqa 演算 进行 同样 的 定义 , 而且 
在 无 类 型 lambda 演算 中 必须 考虑 名 称 绑 定 和 代 换 。 第 8 章 将 开始 研究 类 型 系统 ,并 回 到 本 章 
的 简单 语言 ,用 它 来 介绍 静态 类 型 的 基本 概念 。 第 9 章 将 这 些 概 念 推广 到 lambda 演算 。 


3.1 导论 
本 章 用 到 的 语言 包含 几 个 语法 形式 :布尔 值 常量 tue 和 false, 条 件 表 达 式 ,数值 常量 0, 算 


术 算 子 succe( 后 继 ) ,pred( 前 驱 ) 和 一 个 测试 操作 iszer, 当 运用 于 0 时 输出 值 tue, 运 用 于 其 他 数 
时 输出 值 为 fase。 这 些 可 以 综述 为 下 列 语法 : 





七 “::= 项 ， 
true 常量 真 
false 常量 假 
iftthentelset 条 件 表 达 式 
0 常量 0 
succt 后 继 
predt 前 驱 
jiszerot 0 测试 


这 个 语法 的 (以 及 整个 书 中 的 ) 记 法 接近 于 标准 BNF 的 记 法 (参见 Aho, Sethi 和 Ullman,1986)。 


第 一 行 (t:: = ) 说 明 我 们 定义 项 的 集合 ,并 且 将 用 字母 t 表 示 项 。 下 面 的 每 一 行 给 出 项 的 一 个 
语法 形式 。 在 符号 + 出 现 的 每 一 点 ,我 们 可 以 对 任何 项 进行 代 换 (右边 是 其 说 明 )。 

这 个 语法 右 端 中 的 符号 + 称 为 元 变量 。 它 是 这 种 意义 下 的 变量 :一 个 可 以 用 其 他 特殊 的 
项 来 代 换 。 “元 "是 指 它 不 是 对 象 语言 (我 们 正在 描述 其 语法 的 简单 程序 语言 ) 中 的 变量 ,而 是 
元 语言 中 的 变量 ,其 中 的 概念 已 经 描述 过 了 (事实 上 ,目前 的 对 象 语言 不 含 变量 ;我 们 将 在 
第 5 章 中 引 人 变 量 )。 前 缀 “元 "来 自 于 元 数学 (逻辑 学 的 分 支 之 一 ) ,主要 讨论 数学 和 逻辑 推理 
系统 (包括 程序 语言 ) 的 数学 性 质 。 在 元 数学 中 有 一 个 概念 一 一 “元 理论 ”, 是 指 可 以 组 成 某 种 
特殊 的 逻辑 系统 (或 者 程序 语言 ) 真 语句 的 集合 以 及 对 这 些 语 句 的 研究 。 这 样 ,在 本 书 中 的 “ 子 
类 型 的 元 理论 "这 样 的 短语 可 以 理解 为 "带子 类 型 系统 性 质 的 形式 研究 ”。 


@ ”本 章 中 讨论 的 系统 是 布尔 和 数 的 无 类 型 演算 (参见 图 3.2)。 相 关 的 OCaml 实现 ,在 Web 库 中 称 为 arith( 在 第 4 章 中 
描述 )。 可 通过 网 址 htp://www.cis.upem.edu/ ~ bepieree/tapl 下 载 并 建立 这 个 检查 器 。 








第 3 章 无 类 型 算术 表达 式 15 


在 本 书 中 ,用 元 变量 ts,u'r, 及 变 式 (variant)t ,s' 表 示 目 前 讨论 的 对 象 语言 中 的 项 ;其 他 
符号 将 用 于 表示 由 其 他 语法 范畴 中 的 表达 式 。 在 附录 B 中 给 出 了 所 有 关于 元 变量 的 约定 。 

目前 , 字 "“ 项 "和 "表达 式 " 可 以 通用 。 从 第 8 章 开 始 , 当 讨 论 带 附加 语法 范畴 , 如 类 型 的 演 
算 时 ,我 们 将 用 "表达 式 " 表 示 所 有 语法 短语 (包括 项 表达 式 , 类 型 表达 式 和 分 类 表达 式 等 ) ,而 
“项 "表示 那些 表示 计算 的 短语 ( 即 这些 短 语 可 以 取代 元 变量 b)。 

在 目前 语言 中 一 个 程序 就 是 由 上 述 语 法 定义 出 来 的 一 个 项 。 下 面 是 程序 的 例子 及 其 求 值 
的 结果 。 为 简单 起 见 ,我 们 用 普通 的 阿拉 伯 数 字 来 表示 数 ,而 数 的 正式 表示 为 suce 作用 于 0 
的 青 套 形式 。 比 如 suce(succe(succ(0))) 记 为 3。 


if false then 0 else 1; 
* 荆 
iszero (pred (succ 0)) ， 


* 立 rue 

在 本 书 中 ,符号 "* "用 于 表示 例子 中 求 值 的 结果 (为 简单 起 见 , 当 结 果 明 显 或 不 重要 时 将 省 
略 )。 在 排版 时 ,例子 将 由 所 讨论 的 形式 系统 相应 的 实现 来 自动 处 理 ( 这 里 为 arith); 所 显示 的 
结果 是 实现 的 实际 输出 。 

为 了 便于 阅读 ,在 例子 中 suce, pred,iszero 的 复合 参数 用 括号 括 起 来 D。 项 的 语法 中 没有 
提 到 括号 ,只 给 出 了 它们 的 抽象 语法 。 当 然 ,括号 出 现 与 否 对 目前 讨论 的 简单 语言 来 说 没有 差 
别 : 括 号 通常 用 来 解决 语法 中 的 歧义 性 ,但 目前 这 个 语法 没有 歧义 性 ,每 个 记号 序列 至 多 有 一 
种 方法 来 分 解 为 项 。 在 第 5 章 中 将 继续 讨论 括号 和 抽象 语法 。 

求 值 的 结果 是 某 特 殊 简 单 形式 的 项 :它们 要 么 是 布尔 常量 要 么 是 数 ( 典 套 使 用 0 或 suce)。 
这 样 的 项 称 为 值 ,它们 在 项 的 求 值 次 序 的 形式 化 中 起 着 特殊 的 作用 。 

注意 :项 的 语法 可 能 形成 某 些 看 起 来 奇怪 的 项 ,如 succ tmue 和 if0 then 0 else 0。 我 们 将 在 
以 后 讨论 这 样 的 项 。 的 确 , 在 某 种 意义 下 这 正 是 我 们 对 这 个 小 语言 感 兴趣 的 原因 ,因为 这 些 项 
正 是 我 们 要 在 一 个 类 型 系统 去 排除 的 一 类 无 意义 程序 。 


3.2 语法 


这 里 有 几 种 等 价 的 方法 来 定义 我 们 语言 的 语法 。 在 上 一 节 的 语法 中 已 经 看 到 了 一 种 。 这 
个 语法 实际 上 是 下 面 归纳 定义 的 一 种 紧 致 的 表示 方式 。 

3.2.1 定义 [项 ,归纳 定义 ] ;项 的 集合 是 最 小 的 集合 T ,其 中 满足 : 

1 |true,false,0| ST; 

2. 如 果 teT , 则 fsucch , pred th ,iszero 上 上 ES 三 ; 

3. 如 果 heT,beT, 且 be 二 , 则 这 tthenb elsebcT。 


纪事 实 上 ,这 里 用 来 处 理 本 章 中 例子 的 实现 (在 本 书 的 Web 站 点 上 称 为 mih) 确 实 需要 在 wucc,pred,iszero 的 复合 参数 
中 插 人 括号 ,尽管 它们 在 没有 括号 的 情况 下 可 以 无 歧义 分 解 。 这 是 为 了 与 以 后 的 演算 ,这 些 演算 在 函数 应 用 中 采 
用 类 似 的 语法 方式 。 
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由 于 归纳 定义 在 程序 语言 的 研究 中 是 普 适 的 ,值得 仔细 讨论 一 下 。 第 一 个 子 句 告诉 我 们 
3 个 简单 的 表达 式 是 在 开 中。 第 2 个 句子 和 第 3 个 子 句 给 出 规则 ,由 这 些 规则 可 以 判定 一 个 复 
合 表达 式 是 否 是 在 开 中 。 最 后 , 工 是 最 小 的 "表示 :除了 3 个子 句 要 求 的 之 外 , 工 不 含 其 他 
元 素 。 

像 上 一 节 中 的 语法 一 样 , 这 个 定义 没有 涉及 使 用 括号 来 标记 复合 子 项 。 形 式 地 ,我 们 实际 
上 定义 工作 为 树 的 集合 ,而 不 是 字符 串 的 集合 。 在 例子 中 使 用 括号 正 是 为 了 说 明 书 本 上 以 线 
性 形式 表示 的 项 与 实际 的 树 形式 的 项 之 间 的 对 应 关系 。 

另 一 种 归纳 定义 项 的 方法 是 逻辑 系统 的 “自然 演 泽 形式 "中 经 常 使 用 的 二 维 推导 规则 


3.2,2 定义 [项 ,用 推导 规则 定义 ] :项 的 集合 由 下 列 规则 定义 ， 


true E 人 fa1se <e 三 0Ee 卫 
tl ET tl ET tl 生生 
SucctlE pred tl E 于 1Szerotl ET 


tl ET 七 > E 克 七 3 所 三 
证 ti thent2 elseta ET 
前 3 个 规则 重 述 了 定义 (3.2.1) 的 第 一 个 子 句 ;下面 4 个 规则 等 价 于 子 名 (2) 和 子 名 (3)。 每 个 
规则 读 为 :如 果 线 上 所 列 的 前 提成 立 , 则 可 以 推导 出 线 下 的 结论 "。 这 里 我 们 常常 不 明确 说 明 
开 是 满足 这 些 规则 的 最 小 集合 。 

这 里 ,需要 提起 两 个 术语 。 第 一 ,没有 前 提 的 规则 ( 像 上 述 前 3 个 规则 ) 通 常 称 为 公理 。 在 
本 书 中 ,术语 "推导 规则 "一般 包括 公理 和 带 一 个 或 多 个 前 提 的 “ 真 规则 ”。 通 常 公 理 表示 中 不 
需要 使 用 线 ,因为 没有 东西 在 线 上 。 第 二 (严格 地 ) ,我 们 所 称 的 推导 规则 ”实际 上 是 规则 模 
式 , 因 为 它们 的 前 提 和 结论 可 以 含 元 变量 。 形 式 地 ,每 个 规则 模式 表示 无 限 多 个 具体 规则 , 通 
过 用 合适 的 语法 范畴 中 的 短语 一 致 地 代 换 元 变量 而 得 到 具体 规则 , 即 在 上 述 规则 中 , 可 用 每 个 
可 能 的 项 代 换 t。 

最 后 ,还 有 一 种 定义 项 的 方法 ,更 具体 地 给 出 了 产生 人 中 元 素 的 步骤 。 


3.2.3 定义 [项 ,具体 定义 ] ;对 每 个 自然 数 六, 定义 集合 8 为; 


430 = 他 
Si+1 = {true, false, 0} 
U fsucc ti,pred tt, jszerotl ltceSil 
U_ fiftlithent2zelseta |tit2t3eESil 
最 后 , 设 : 


3 = 93i 
So 是 空 集 ; S, 只 包含 常量 ; S, 包含 常量 及 由 常量 通过 succ, pred , iszero 残 让 其 中 一 个 生成 的 短 
语 ; 3; 包含 9 中 的 短语 以 及 由 $, 中 的 短语 用 一 个 succ,pred, iszero 或 计生 成 的 短语 ,依次 类 推 。 
S 为 这 样 定义 的 所 有 短语 , 即 由 常量 通过 有 限 次 使 用 算术 和 条 件 算 子 得 到 的 短语 集合 。 
3.2.4 练习 [xx]: S; 有 多少 个 元 素 ? 
3.2.5 练习 [xx]: 证 明 集合 3 是 可 累积 的 , 即 对 每 个 让 有 S cSi,io 
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上 面 这 些 定 义 从 不 同 的 方面 刻画 了 项 的 集合 :定义 (3.2.1) 和 定义 (3.2.2) 将 这 个 集合 简 
单 地 刻画 为 满足 某 些 “ 封 闭 性 质 " 的 最 小 集合 ;定义 (3.2.3) 说 明 如 何 实际 构造 这 个 集合 为 一 个 
序列 极限 。 

最 后 ,我 们 来 验证 这 丙种 方法 实际 定义 了 相同 的 集合 。 给 出 的 证 明 相 当 详 细 ,为 了 说 明 它 
们 之 间 如 何等 价 。 

3.2.6 命题 :T= 9。 

证 明 : 工 定义 为 满足 一 定 条 件 的 最 小 集合 。 因 此 只 要 证 明 (a) $S 满足 这 些 条 件 , 并 且 (b) 任 

何 满足 这 些 条 件 的 集合 包含 $( 即 $ 是 满足 条 件 的 最 小 集合 )。 

为 证 明 (a) ,必须 验证 定义 (3.2.1) 中 每 一 个 条 件 对 $ 是 成 立 的 。 第 一 ,因为 S, = ltme,false,0|， 

很 清楚 ,常量 是 在 $ 中 的 。 第 二 ,如 果 heS, 则 (因为 S= Ui Si) 必 定 存在 某 个 ; 使 得 tes,。 

但 由 S ,的 定义 ,必定 有 succ he S ,因此 ,succ beS; 类 似 地 ,可 以 证 明 :pred he 且 iszem 

ES。 第 三 ,如 果 teS,bcS, 且 beS, 则 由 类 似 讨论 ,有 ift thenb elsebecSs。 

为 证 明 (b) ,假设 某 个 集合 8 满足 定义 (3.2.1) 中 的 3 个 条 件 。 对 做 完全 归纳 ,可 证 明 每 

个 S SS ,因而 ,SSS'。 

假设 对 所 有 7 < 区 有 8S ES S。 必 须 证 明 $， ES 8 ,因为 $; 的 定义 有 两 个 子 名 (对 ;=0 和 

i > 0) ,有 两 个 情况 要 考虑 。 如 果 =0, 则 3 = 纪 9; 因 此 ,CSS'。 否 则 ,对 某 个 )i = +1。 

设 + 是 95 ,的 某 个 元 素 。 由 于 $ ,定义 为 3 个 较 小 集合 的 并 ,t 必定 属于 这 3 个 集合 的 某 

一 个 。 这 样 有 3 种 可 能 性 要 考虑 :(1) 如 果 t 是 一 个 常量 , 则 由 条 件 (1) ,te 8 3;(2) 如 果 对 

某 个 he $% ,1 有 形式 saucet ,predti ,或 者 iszerot , 则 由 归纳 假设 ,te8S' ,并 且 由 条 件 (2), 有 

tE S ;03) 如 果 对 某 个 tb,se Si ,有 形式 :让 二 then b elseb, 则 由 归纳 假设 ,by,b 均 在 

S 中 ,并 由 条 件 (3),t 也 在 $ 中 。 

这 样 ,我 们 证 明了 每 个 8 SS 。 由 8$ 的 定义 ,$ 是 所 有 的 S; 的 并 集 , 因 此 ,8 ES'。 这 样 

命题 证 明 完 成 。 

值得 注意 的 是 ,这 个 证 明 是 对 自然 数 做 完全 归纳 ,而 不 是 大 家 更 熟悉 的 “基本 情况 /归纳 情 
况 ” 的 形式 。 对 每 个 ;假设 所 要 证 明 的 谓词 对 严格 小 于 ;的 自然 数 均 成 立 ,并 且 证 明 对 宕 也 成 
立 。 本 质 上 ,这 里 的 每 一 步 是 一 个 归纳 ,惟一 特别 的 是 ; 的 较 小 值 集合 ,根据 需要 归纳 假设 , 正 
好 是 空 集 。 这 样 的 评论 同样 适合 于 本 书 中 大 部 分 归纳 证 明 ,特别 是 “结构 归纳 ”证明 。 


3.3 对 项 的 归纳 


命题 (3.2.6) 中 项 集 了 明确 提供 了 推理 其 元 素 的 一 个 重要 原则 。 如 果 teT, 则 下 面 3 条 中 
必 有 一 个 为 真 ;(1)t 是 一 个 常量 ; (2)t 形 为 suce th ,pred 6 或 iazero h ,其 中 心 是 某 个 更 小 的 项 ; 
(3)t 形 为 让 then b else 5 ,其 中 ,bb 是 更 小 的 项 。 用 这 样 的 结论 可 以 做 两 件 事 : 给 出 项 集 
合 上 函数 归纳 定义 ,并 且 给 出 项 的 性 质 的 归纳 证 明 。 比 如 ,下 面 是 一 个 函数 的 简单 归纳 定义 ， 
其 中 函数 是 将 每 个 项 + 映射 到 该 项 + 中 所 出 现 的 常量 集合 。 


3.3.1 定义 :出 现在 项 t 中 常量 集合 , 记 为 Corsts(tb) ,定义 为 ， 
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Consis (true ) = 1true 
Consts (false) = | false| 
Consts(0) = |0| 
Consts(suce 1 ) = _ Consk(b ) 
Consfs (pred 0 ) = _ Cons6 (6 ) 
Consts (iszero 1 ) = Consts (6 ) 


Corsk (让 bi then b else b ) Cornsks ( )U Constks ()U Consts(b ) 


可 由 归纳 定义 计算 的 另 一 个 项 的 性 质 为 项 的 长 度 。 
3.3.2 定义 :一 个 项 t 的 长 度 , 记 为 szze(b ,定义 如 下 所 示 : 


size(true) = 1 
size (false) = 工 
size (0) = 1 
Size(succ bb ) = size(t)+1 
size(pred  ) = Size(b)+1 
size (iszero 0 ) = size(b)+1 


size (让 ti then tb else 日 ) Size (fi)+size(bp)+size(b)+I 


即 t 的 长 度 sze ( 避 是 它 的 抽象 语法 树 中 节点 的 个 数 。 类 似 地, 一 个 项 t 的 深度 , 记 为 
dep 态 (t) ,定义 如 下 所 示 : 


dept(true) = 1 
dep 妨 (false) = 1 
dep 雪 (0) = 1 
dep 岂 (succ ii ) = dep 妨 (ti)+1 
dep 引 (pred 6 ) = dep 太 (0 )+1 
dep 太 (iszero ti ) = dep 志 (Oh) +1 


dep 机 (iib then b elseb) max( cdep 太 (6 ) ,aep 遍 ()， dep 志 (5))+1 


根据 定义 (3.2.3) ,等 价 地 , dep 纹 (b 是 满足 tc $; 的 最 小 i。 


下 面 归纳 证 明说 明了 项 中 常量 个 数 与 项 的 长 度 之 间 的 关系 (性 质 本 身 是 完全 明显 的 ,我 们 
所 感 兴趣 的 是 归纳 证 明 的 形式 ,在 以 后 还 将 经 常 采用 这 种 形式 )。 

3.3.3 引 理 :一 个 项 t 中 不 同 常量 的 个 数 不 大 于 + 的 长 度 siz(b, 即 | Consks (ts sie(bD。 

证 明 : 对 +t 的 深度 做 归纳 。 假 设 对 所 有 比 t 小 的 项 结论 成 立 ,我 们 证 明 对 t 也 成 立 。 这 里 

有 3 种 情况 要 考虑 ; 

情况 ,t 是 一 个 常量 

直接 有 ;1 Conss 人 (1= II1=1=sie(bD。 

情况 :t= succ ft ,predt ,或 iszero 6 

由 归纳 假设 ,| Conss (6 )1< sze(t )。 可 计算 得 到 :1Conss(D1 = 1Consts(t )1ssize(t )< size(t)。 

情况 :t= 让 bb then b else 白 

由 归纳 假设 , | Consk (t )1 ssize(t) ,1Consts(b)1ssize(b), 且 1Corsks(t)1 sie (bb) ,可 计 

算得 到 : 
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1 Consb (6 ) U Consk ( 昌 )U Consts (bb ) 

| Consts (1 + 1Consks (bb)1 + 1 Corsks(b)1 
Size(f ) +size(b)+size(b) 

Size (b 


这 个 证 明 的 形式 可 以 重 述 为 一 个 一 般 推理 原则 。 包 括 两 个 项 的 证 明 中 常用 到 的 类 似 


| Consts(t)1 


A 人 人 内 扩 1 


原则 。 





3.3.4 定理 [项 上 妇 纳 原理 ] :假设 已 是 项 上 的 一 个 谓词 。 

对 深度 的 归纳 :如 果 对 每 个 项 s 

假设 对 所 有 使 得 dep 态 (r) < depi(s) 的 项 > 有 P(r ,我 们 能 证 明 P(s) 
则 P(s) 对 所 有 的 s 成 立 

对 长 度 的 归纳 :如 果 对 每 个 项 s 

假设 对 所 有 使 得 sze (r) < sze(s) 的 项 r*x 有 P(r) ,我 们 能 证 明 P(s) 

则 P(s) 对 所 有 的 s 成 立 

结构 归纳 :如 果 对 每 个 项 s 

假设 对 所 有 s 的 直接 子 项 r, P(r) 成 立 ,我 们 能 证 明 忆 (s) 

则 P(s) 对 所 有 的 s 成 立 。 


证 明 : 留 做 练习 (xx*)。 

对 项 的 座 度 或 长 度 的 归纳 类 似 于 自然 数 上 完全 归纳 方法 (2.4.2)。 通 常 结构 归纳 对 应 于 
通常 的 自然 数 归 纳 原则 (2.4.1) ,其 中 归纳 要 求 由 假设 P(m) 证 明 P(n+1l)。 

像 自然 数 归 纳 的 不 同形 式 一 样 , 项 的 归纳 方法 选择 的 是 谁 能 得 出 更 简单 的 结构 。 形 式 地 ， 
它们 是 可 相互 推导 的 。 对 于 简单 证 明 ,使 用 对 长 度 .对 深度 还 是 对 结构 做 归纳 对 证 明 影 响 
不 大 。 由 于 形式 问题 ,通常 尽 可 能 地 采用 结构 归纳 ,因为 它 直接 对 项 处 理 , 避免 使 用 自 
然 数 。 

对 项 做 归纳 的 大 部 分 证 明 有 着 类 似 的 结构 。 在 归纳 的 每 一 步 ,我 们 给 定 一 个 项 t, 假设 对 
所 有 t 的 子 项 (或 所 有 较 小 的 项 ) 有 忆 成 立 , 证 明 性 质 已 对 该 项 也 成 立 。 对 t 的 每 个 可 能 
形式 (tme,false, 条 件 ,0, 等 等 ) 分 别 进行 考虑 ,证 明 在 每 种 情况 下 已 对 + 均 成 立 。 由 于 整 
个 结构 中 归纳 证 明 中 惟一 不 同 的 部 分 是 各 种 情况 的 细节 处 理 ,通常 省 略 那些 相同 的 部 分 ， 
只 写 出 不 同 部 分 的 证 明 。 

证 明 : 对 t 做 归纳 

情况 :t = true 

… 证 明 P(tmue)… 

情况 :t = false 

… 证 明 P(false)… 

情况 :t= 让 then b else 晶 

… 用 P(6) ,Pbe) 且 P(b) ,证 明 PUift then tb else 日 )… 

(对 其 他 语法 形式 也 类 仆 ) 
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对 于 许多 归纳 讨论 [包括 定义 (3.3.3) 的 证 明 ], 不 必 这 人 么 详细 地 写 出 证 明 : 在 基本 情况 (对 
没有 子 项 的 项 日 中 P(b 是 直接 成 立 的 ,而 在 归纳 情况 中 运用 归纳 假设 于 t 的 子 项 ,结合 结果 很 
显然 地 得 到 P(bD 。 实 际 上 , 比 起 验证 一 个 证 明 ,读者 更 容易 自己 写 出 证 明 ( 记 住 归 纳 假 设 的 同 
时 ,检查 一 下 语法 )。 在 这 种 情况 下 ,直接 写 出 “对 + 做 归纳 "就 是 一 个 完全 的 可 接受 的 证 明 。 


3.4 语义 形式 


严格 地 给 出 了 语言 的 语法 以 后 ,下 面 需 要 给 出 对 项 如 何 求 值 的 精确 定义 , 即 语言 的 语义 。 
这 里 有 3 种 基本 方法 进行 语义 形式 化 : 

1. 操作 语义 通过 定义 一 个 简单 的 抽象 机 器 来 说 明 一 个 程序 谱 言 的 行为 。 这 个 机 器 是 “ 抽 

象 的 ”, 指 它 用 语言 的 项 作为 机 器 状态 ,而 不 是 某 种 低层 的 微 处 理 器 的 指令 集 。 对 于 简 
单 的 语言 ,机 器 的 状态 就 是 一 个 项 ,并 且 机 器 的 行为 由 一 个 转换 函数 来 定义 ,对 每 个 状 
态 ,要么 通过 对 项 做 一 步 简 化 给 出 下 一 个 状态 ,要 么 声明 机 器 已 经 停止 。 一 个 项 t 的 语 
义 可 以 看 做 是 机 器 在 将 ! 作为 初始 状态 时 达到 的 最 后 状态 中。 
有 时 给 出 一 个 语言 的 几 个 不 同 操作 语义 是 有 用 的 (其 中 一 些 较为 抽象 ) ,机 器 状态 类 似 
于 程序 员 写 的 项 , 另 一 些 接近 于 实际 语言 翻译 器 或 编译 器 所 处 理 的 结构 。 证 明 在 执行 
一 个 程序 时 ,不同 机 器 的 行为 在 某 种 意义 下 是 相互 对 应 的 ,等 价 于 证 明 语言 的 一 个 实 
现 的 正确 性 。 

2. 指称 语义 采用 更 为 抽象 的 语义 :一 个 项 的 语义 不 仅 是 机 器 状态 的 序列 ,而 且 是 某 个 数 
学 对 象 ,如 一 个 数 或 一 个 函数 。 一 个 语言 的 指称 语义 是 由 一 个 语义 域 的 集合 和 将 项 映 
射 到 域 中 元 素 的 解释 函数 所 组 成 。 为 各 种 语言 特征 建 模 寻 找 所 需 的 合适 语义 域 是 域 
论 的 研究 目的 ,这 是 一 个 丰富 的 研究 领域 。 
指称 语义 的 一 个 主要 优势 是 它 对 求 值 的 细节 进行 抽象 ,突出 语言 的 本 质 概念 。 所 选 的 
语义 定义 域 集合 的 性 质 可 用 来 推导 出 关于 程序 行为 推理 的 有 力 规则 一 一 这 些 规则 用 
于 证 明 两 个 程序 有 相同 的 行为 ,或 一 个 程序 的 行为 满足 某 个 规范 。 最 后 ,由 语义 定义 
域 集合 的 性 质 , 可 以 直接 得 出 在 一 个 语言 中 的 有 些 事情 (需要 的 或 不 需要 的 ) 是 不 可 能 
发 生 的 。 

3. 公理 语义 对 于 这 些 规则 采用 更 为 直接 的 处 理 方式 :不 是 首先 定义 程序 的 行为 (给 出 某 
种 操作 语义 或 指称 语义 ) ,然后 推导 出 这 个 定义 的 规则 ,而 是 公理 方法 用 规则 本 身 作为 
语言 的 定义 。 一 个 项 的 语义 就 是 关于 这 个 项 我 们 能 证 明 的 东西 。 
公理 方法 的 优美 之 处 在 于 它 关 注 程序 推理 的 过 程 。 正 是 这 个 思想 定义 了 计算 机 科学 
中 的 不 变 式 。 


在 20 世纪 60 年 代 和 20 世纪 70 年 代 , 操 作 语 义 通常 被 认为 劣 于 其 他 两 种 方法 ,因为 它 对 
快速 而 粗糙 地 定义 语言 特征 虽然 有 用 ,但 不 细致 , 旦 数学 根基 不 牢 。 但 在 20 世纪 80 年 代 , 更 
抽象 的 方法 开始 不 断 地 遇 到 技术 上 的 困难 @, 这 时 ,操作 方法 的 简单 性 和 和 灵活 性 越 来 越 受到 人 


@ 严格 地 讲 ,我 们 这 里 所 描述 的 是 所 谓 的 操作 语义 的 小 步 形 式 ,有 时 称 为 结构 操作 语义 (Plodkin,1981)。 练 习 (3.5.17) 引 
入 另 一 种 大 步 形式 ,有 时 称 为 自然 语义 (Kahn,1987) ,其 中 抽象 机 器 的 一 个 单个 转换 就 可 以 将 项 求 值 为 最 终 值 。 
@。 指称 语义 的 劣势 在 于 对 非 确定 性 和 并 发 性 的 处 理 ;对 于 公理 语义 ,劣势 为 过 程 。 
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们 的 关注 ,特别 是 这 个 领域 的 新 进展 ,如 Plotkin 结构 操作 语义 (1981) ,Kahn 的 自然 语义 (1987) ,以 
及 Milner 对 CCS 的 研究 (1980;1989;1999)。Milner 的 CCS 引入 了 更 细致 的 形式 化 并 说 明了 在 指 
称 语义 的 环境 中 有 多 少 研究 有 力 的 数学 技术 转化 为 操作 装置 。 操 作 语义 已 成 为 一 个 充满 活力 的 
研究 领域 ,常常 是 定义 程序 语言 和 研究 其 性 质 所 选择 的 方法 。 本 书 将 只 使 用 操作 语义 。 


3.5 求 值 


我 们 暂时 不 考虑 数字 ,只 讨论 布尔 表达 式 的 操作 语义 。 图 3.1 给 出 其 定义 ,下 面 将 详细 讨 
论 它 的 各 个 部 分 。 
第 (untype 才 





语法 求 值 | 


革 ) 3 项 : 


(E-IFTRUE) 





3:.1 布尔 值 (B) 


图 3.1 的 左边 一 列 是 定义 表达 式 的 语法 。 第 一 个 是 项 语法 的 重复 表示 (为 了 方便 )。 第 二 
个 定义 项 的 子 集 , 称 为 值 , 它 可 以 是 求 值 的 最 终结 果 。 这 里 , 值 就 是 常量 tue 和 f 色 se。 本 书 中 
元 变量 v 用 于 表示 值 。 

右边 一 列 定义 项 上 的 求 值 关系 吧 , 记 为 ->t, 读 做 “t 一 步 求 值 为 W”。 直 观 意思 是 如 果 + 是 
抽象 机 器 在 某 瞬 间 的 状态 , 则 机 器 能 够 做 一 步 计 算 ,并且 将 状态 改变 为 。 这 个 关系 是 由 3 个 
推导 规则 所 定义 的 (或 者 说 是 两 个 公理 和 一 个 规则 ,因为 前 两 个 没有 前 提 )。 

第 一 个 规则 E-IfTrue 意思 是 :如 果 求 值 的 项 是 一 个 条 件 句 , 它 的 条 件 是 常量 tue, 则 机 器 能 
丢掉 条 件 表达 式 ,将 then 部 分 b 作为 机 器 的 新 状态 ( 即 王 一 个 要 求 值 的 项 )。 类 似 地 ,EIftalse 
意思 是 条 件 为 false 的 条 件 句 在 一 步 求 值 中 求 值 为 它 的 else 分 支 B。 这 些 规则 的 名 称 中 的 区 只 
是 用 于 提醒 人 们 是 求 值 关系 的 一 部 分 ;其 他 关系 的 规则 将 会 有 不 同 的 前 邹 。 

第 三 个 求 值 规则 E-{f 更 有 趣 。 它 说 ,如 果 前 提 求 值 为 t , 则 整个 条 件 句 :ift then b else 
b 求 值 为 寺 t then b else bb。 借助 于 抽象 机 器 ,如 果 另 一 个 机 器 的 状态 为 ,能 一 步 到 达 状 态 
ti, 则 处 于 状态 和 th then b else b 的 机 器 能 一 步 到 达 状 态 让 Y then b else b@。 

有 些 虽然 规则 没有 说 明 , 但 同样 重要 。 常 量 tue 和 false 不 会 求 值 出 什么 结果 ,因为 它们 


@ 有 些 专家 喜欢 采用 术语 “ 归 约 "表示 这 个 关系 ,而 将 求 值 留 在 练习 (3:5.17) 中 描述 的 “大 步 变 式 ", 这 个 变 式 直接 将 项 
映射 为 最 终 值 。 
@ ”此 处 应 为 同一 个 机 器 一 一 译 者 注 。 
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不 会 出 现在 任何 规则 的 左 端 。 此 外 ,没有 规则 允许 在 求 值 二 本身 之 前 先 求 值 让 的 then 或 else 
子 表 达 式 :例如 ,项 : 
if true then (if false then false else false) else true 
不 能 求 值 为 过 tme then false else tue。 我 们 惟一 的 选择 是 用 卫 革 首先 求 值 外 边 的 条 件 句 。 与 通 
常 程序 设计 语言 求 值 顺序 的 问题 类 似 ,这 里 将 几 个 规则 集合 考虑 进来 会 得 出 条 件 句 特 殊 的 求 
值 策略 :为 求 值 一 个 条 件 句 , 先 对 它 的 条 件 求 值 ;如 果 条 件 本 身 是 一 个 条 件 句 ,必须 求 值 这 个 条 
件 的 条 件 句 ,然后 继续 下 去 。E-ITrue 和 E-IfFalse 规则 告诉 我 们 , 当 处 理 到 最 后 发 现 该 条 件 句 
的 条 件 已 经 被 求 值 后 应 该 做 什么 。 在 某 种 意义 下 ,E-IHTrmue 和 下 -IFalse 确实 起 到 了 求 值 的 作 
用 ,而 ET 帮 助 决定 在 哪里 做 求 值 。 根 据 规 则 不 同 的 特点 ,有 时 将 E-HTrue,E-ITalse 看 做 是 计 
算 规 则 ,E-I 看 做 是 同一 规则 。 
更 精确 地 ,我 们 形式 地 定义 求 值 关系 如 下 所 示 : 


3.$.1 ”定义 :推导 规则 的 一 个 实例 是 将 处 在 规则 的 结论 和 前 提 ( 如 果 有 的 话 ) 相 同位 置 
的 项 来 代 换 每 个 元 变量 所 得 到 的 结果 。 
比如 ; 

iftrue then true elSse (if false then falseelse false) 一 true 


是 E-IHTPmue 的 一 个 实例 ,其 中 心 的 出 现 由 true 代 换 ,8 的 出 现 由 放 false then false else false 代 换 。 


3.$.2 ”定义 :对 一 个 规则 和 一 个 关系 来 说 ,如 果 对 规则 的 每 个 实例 要 么 它 的 结论 在 关系 
中 ,要 么 其 中 一 个 前 提 不 在 关系 中 ,那么 就 可 说 规则 是 由 关系 所 满足 的 。 


3.5.3 ”定义 :一步 求 值 关系 “一 "是 满足 图 3.1 中 3 个 规则 的 项 上 最 小 的 二 元 关系 。 当 序 
对 (bt) 在 求 值 关 系 中 ,我们 称 求 值 语句 (或 判断 )F=t 是 可 推导 出 的 。 


这 里 “最 小 "是 指 一 个 语 名 ff 是 可 推导 的 , 当 且 仅 当 它 可 由 规则 判断 :要 么 它 是 公理 
E-IHprue 或 E-IfFalse 的 一 个 实例 ,要 么 它 是 前 提 为 可 推导 规则 ET 的 一 个 实例 的 结论 。 一 个 给 
定语 名 的 可 推导 性 能 通过 推导 树 得 出 ,这 里 推导 树 的 叶子 标记 为 E-IHrrme 或 世 Ipalse 的 实例 ， 
它 的 内 部 节点 标记 为 忆 和 的 实例 。 比 如 ,为 在 本 页 写 下 推导 ,我 们 简 记 为 : 


Ss 寞 1Tftrue then false else fa1se 


te ifsthen true elsetrue 


避 性 if false thenm true el1se true 


则 语句 ， 
iftthen falseelse false 一 ifuthenfalseelse false 


的 可 推导 性 由 下 列 推导 树 验 证 : 
E-IETRUB 


s 一 ' false 
一 一 上 -IF 
ft 一 U 
iftthen false else false 一 ifuthenfalseelse false 下 
称 这 个 结构 为 树 有 点 奇怪 ,因为 它 不 含 任 何 分 又 。 的 确 ,验证 求 值 语 名 的 推导 树 总 是 有 这 种 
“简单 "的 形式 :因为 没有 求 值 规则 有 多 于 一 个 的 前 提 , 所 以 没有 分 叉 的 推导 树 。 推 导 树 更 适合 
讨论 其 他 归纳 定义 的 关系 ,如 类 型 , 它 的 某 些 规则 有 多 个 前 提 。 
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当 推 理 求 值 关系 的 性 质 时 ,这 个 事实 常常 是 有 用 的 :一 个 求 值 语句 ft 是 可 推导 的 , 当 且 
仅 当 存在 一 个 根 标记 为 ft 的 推导 树 。 特 别 是 ,这 个 事实 直接 引出 一 个 称 为 对 推导 做 归纳 的 
证 明 技 术 。 下 面 定 理 的 证 明说 明了 这 个 技术 。 


3.5.4 定理 [一 步 求 值 的 确定 性 ] :如 果 FF>t 且 tp, 则 = 


证 明 : 对 ft 的 一 个 推导 做 归纳 。 在 归纳 的 每 一 步 ,假设 对 所 有 较 小 的 推导 结论 成 立 , 然 
后 根据 在 推导 的 根部 所 用 的 求 值 规则 进行 分 析 ( 注 意 :这 里 的 归纳 不 是 对 求 值 序列 的 长 度 
做 归纳 ,而 只 考虑 一 步 求 值 。 可 以 说 是 对 t 的 结构 做 归纳 ,因为 一 个 “ 求 值 推导 ?的 结构 直 
接 来 自 于 所 约 简 项 的 结构 。 换 言 之 ,我们 也 能 对 rt 的 推导 做 归纳 )。 

如 果 在 ft 的 推导 中 用 到 的 最 后 的 规则 是 FE-Ifrrue, 则 知道 + 有 形式 :it then pb else ,其 
中 = tmue。 但 很 明显 ft 的 推导 中 的 最 后 规则 不 可 能 是 E-Iffalse, 因为 我 们 不 可 能 同时 
有 hb =tme 和 ft =falkse。 此 外 ,在 第 二 个 推导 中 的 最 后 规则 也 不 可 能 是 E-H, 因为 这 个 规则 
的 前 提要 求 对 某 个 如 ,有 6 ,但 我 们 已 经 注意 到 tmue 不 能 求 值 到 任何 东西 。 因 此 ,在 第 
二 个 推导 中 的 最 后 规则 只 能 是 下 -HTrue, 且 直接 有 = t。 

类 似 地, 如果 ci 的 推导 中 所 用 的 最 后 规则 是 E-IFalse, 则 >t 的 推导 中 的 最 后 规则 必定 
是 相同 的 , 且 直 接 得 出 结果 。 

最 后 ,如 果 在 ft 的 推导 中 所 用 的 最 后 规则 是 E-IT, 则 这 个 规则 的 形式 告诉 我 们 + 有 形式 
计 t then b else 6 ,其 中 对 某 个 项 世 , 有 了 一 。 由 上 述 的 讨论 ,> 的 推导 中 的 最 后 规则 只 
能 是 E-I, 因 此 ,t* 有 形式 让 ft then b else (我们 早已 经 知道 的 ) 并 且 对 某 个 性 ,有 1 一。 
但 应 用 归纳 假设 (因为 一 1 和 一 攻 的 推导 是 原来 tt 和 t->b 推 导 的 子 推导 ) ,得 到 


妇 f= 世 。 因 此 ,= 让 tf thent elseb =if 必 thenbelseb=b。 
3.5.5 练习 [*]: 用 定理 (3.3.4) 的 形式 写 出 上 一 个 证 明 用 到 的 归纳 原理 。 


这 里 的 一 步 求 值 关系 说 明 一 个 抽象 机 器 在 求 值 一 个 项 时 如 何 从 一 个 状态 移动 到 下 一 个 状 
态 。 但 作为 程序 员 ,只 关心 求 值 的 最 后 结果 , 即 机 器 不 能 再 往 下 移动 的 状态 。 


3.5.6 ”定义 :如 果 没 有 求 值 规则 可 以 作用 于 项 +, 则 该 项 是 范式 , 即 不 存在 ! 使 得 >t( 有 
时 说 “是 一 个 范式 ” ,表示 “是 一 个 成 范式 的 项 ”)。 


我 们 已 经 注意 到 了 tmue 和 false 是 当前 系统 中 的 范式 (因为 所 有 的 求 值 规则 的 堪 端 最 外 构 
造 子 是 记 , 明 显 地 没有 办 法 对 任何 规则 实例 化 使 得 它 的 左 端 变 成 tmue 或 ise) 。 我 们 会 用 更 一 
般 术 语 重 述 这 个 关于 值 的 事实 。 


3.$.7 ”定理 :每 个 值 都 是 范式 。 


当 在 系统 中 加 入 算术 表达 式 ( 在 以 后 章节 中 ,还 将 加 入 其 他 构造 ), 我 们 总 能 使 定理 (3.5.7) 
成 立 : 值 ( 即 一 个 完全 求 值 后 的 结果 ) 的 特点 之 一 就 是 它 为 一 个 范式 ,任何 语言 的 定义 如 果 没 有 
这 个 结论 , 则 定义 就 不 成 立 。 

在 当前 的 系统 中 ,定理 (3.5.7) 的 北 也 是 成 立 的 :每 个 范式 都 是 一 个 值 ,但 推广 开 来 ,情况 
就 不 是 这 样 ;事实 上 ,在 后 面 将 讨论 算术 表达 式 时 ,不 是 值 的 范式 在 运行 时 间 错 误 分 析 中 起 着 
极其 重要 的 作用 。 


吕 
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3.5.8 定理 :如 果 t 是 范式 , 则 t+ 是 一 个 值 。 


证 明 : 假 设 :不 是 一 个 值 。 由 对 做 结构 归纳 ,很 容易 证 明 (不 是 一 个 范式 。 
由 于 t 不 是 一 个 值 , 它 必 年 有 形式 :对 某 些 项 tb 和 避 ,it thenb elseb。 考 虑 0 的 可 


能 形式 。 
如 果 = tue 则 显然 上 不 是 一 个 范式 ,因为 它 与 也 ITe 的 左 端 匹 配 。 类 似 地 ,考虑 情况 
恒 = false。 


如 果 既 不 是 tmue 也 不 是 false, 则 它 不 是 一 个 值 。 运 用 归纳 假设 ,得 到 b 不 是 一 个 范式 ， 
即 存在 某 个 攻 使 得 nu>ff。 但 这 意味 着 我 们 能 用 FE-E 推 导 fifti then b elseb ,所 以 t 也 不 
是 一 个 范式 。 

有 时 能 将 多 步 求 值 看 做 一 大 步 状态 转换 是 很 方便 的 。 我 们 定义 一 个 多 步 求 值 关 系 , 将 一 
个 项 与 所 有 能 由 它 通过 零 步 或 几 步 求 值 推导 出 的 项 建立 关系 。 

3.$.9 ”定义 :多 步 求 值 关系 “一 ” "是 一 步 求 值 关 系 的 自 反 ,传递 闭 包 。 即 它 是 最 小 的 关 
系 ,使 得 (1 如果 tb, 则 tb (2) 对 所 有 的 贡 有 t 是 且 (3) 如 果 t> 上 且 立 一 也 
则 > 。 

3.5.10 练习 [*]: 将 定义 (3.5.9) 表 达 为 推导 规则 集 。 

有 了 多 步 求 值 这 个 概念 以 后 ,就 很 容易 陈述 下 面 的 定理 : 

3.$.11 定理 [范式 的 惟一 性 ] :如 果 Fu 旦 Fo 其 中 和 耶 是 范式 , 则 u=u。 

证 明 : 根 据 一 步 求 值 的 确定 性 [定理 (3.5.4) ] 进 行 推论 可 证 。 


在 考虑 算术 表达 式 之 前 我 们 所 要 考虑 关于 求 值 的 最 后 一 个 性 质 是 :每 个 项 能 被 求 值 到 一 
个 值 。 显 然 , 这 是 另 一 个 性 质 , 但 在 更 丰富 的 语言 特征 ,如 递归 函数 定义 中 不 一 定 成 立 。 即 使 
在 它 成 立 的 情况 下 , 它 的 证 明 比 我 们 将 看 到 的 要 更 加 复杂 。 在 第 12 章 中 ,将 回 到 这 一 点 ,说 明 
一 个 类 型 系统 如 何 为 某 种 语言 的 一 个 可 终止 证 明 起 关键 作用 。 

计算 机 科学 中 大 部 分 停机 证 明 有 相同 的 基本 形式 :首先 ,选择 某 个 良 定 集合 $ 和 一 个 将 
机 器 状态 (这 里 指 项 ) 映 射 到 $ 的 函数 / 然后 ,证 明 任何 时 候 只 要 一 个 机 器 状态 + 能 一 步 到 达 
另 一 个 状态 ,就 有 At) < AD。 注意 到 从 t+ 开始 的 求 值 步骤 的 无 穷 序列 通过 三 能 映射 到 $ 元 
素 的 无 限 递减 序列 。 由 于 3 是 良 定 的 ,不 存在 这 样 的 无 限 递 减 链 , 因此 没有 无 限 求 值 序列 。 
函数 /常常 称 为 求 值 关 系 的 一 个 “终止 度量 函数 "。 


3.5.12 定理 [ 求 值 终止 性 ] :对 每 个 项 t, 存 在 某 个 范式 [使 = tb。 


证 明 : 注 意 到 每 求 值 一 步 , 项 的 长 度 都 在 减少 ,因为 项 的 长 度 (自然 数 的 序 是 良 定 的 ) 是 个 
终止 度量 ,所 以 求 值 结 果 为 某 个 范式 时 , 求 值 就 终止 了 。 


3.$.13 练习 [推荐 ,**]: 
1. 假定 在 图 3.1 中 加 入 一 个 新 规则 : 


iftrue then tz elset3 一 t3 . (E-Funny1l ) 


@ 在 第 12 章 中 ,将 看 到 一 个 更 复杂 结构 的 停机 证 明 。 
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上 述 定理 [定理 (3.5.4) ,定理 (3.5.7) ,定理 (3.5.8) ,定理 (3.5.11) 和 定理 3.5.12)] 中 哪些 
仍 成 立 ? 
2. 假定 在 图 3.1 中 加 这 个 规则 : 
t2 一 七 2 
if tl then tz elset3 一 iftl thent? elset3 
上 面 定 理 中 哪些 仍 成 立 ?” 这 些 证 明 需 要 改变 吗 ? 


下 面 我 们 将 求 值 的 定义 推广 到 算术 表达 式 。 图 3.2 给 出 定义 中 新 的 部 分 (图 3.2 右上 和 角 
的 记 法 提醒 我 们 将 这 个 图 看 做 是 图 3.1 的 扩展 ,而 不 是 自身 独立 的 语言 )。 


(E-Funny2) 


B 泣 ; (无 类 型 ) 扩展 B G3.1 
站 rt 
新 语法 形式 新 求 值 规则 t -一 人/ 





常量 0 
后 继 
前 驱 

零 测 试 


(E-Succ) 


(E-PREDZERO) 





(E:PREpSucc) 
2 数值 
(E-PRFD) 
注 咯 := 数值 : 
1 0 什 
ev 后 继 值 


(E-IszERoZERO) 


(E-JszERoSucc) 


(E-TSZERO) 


图 3.2 ”算术 表达 式 (NB) 


可 以 看 出 项 的 定义 就 是 3.1 节 中 语法 的 重复 。 值 的 定义 有 点 意思 , 因为 它 引入 了 一 个 新 
的 语法 范畴 一 一 数值 。 直 观 理解 是 求 值 一 个 算术 表达 式 的 最 后 结果 可 以 是 一 个 数 ,这 个 数 要 
么 是 0, 要 么 是 另 一 个 数 的 后 继 [ 但 不 是 任何 值 的 后 继 ; 我 们 认为 succ(tmue) 是 一 个 错误 ,不 是 
二 在 午 访 

图 3.2 的 右边 一 列 中 的 求 值 规则 与 图 3.1 中 形式 相同 。 这 里 有 4 个 计算 规则 (EPredZero， 
FE-PredSucc,E-IszeroZero 和 下 -IszeroSucc ) 说 明 算 子 pred, iszero 如 何 运 用 于 数 , 且 3 个 同一 规则 
(E-Succ,E-Pred 和 E-Iszero) 将 求 值 转 为 复合 项 的 “第 一 个 " 子 项 。 

产 格 地 讲 , 我 们 应 当 重 复 定义 (3.5.3)(“ 算 术 表达 式 的 一 步 求 值 关系 是 满足 图 3.1 和 
图 3.2 中 规则 的 所 有 实例 的 最 小 关系 ")。 为 避免 浪费 空间 在 重复 上 ,通常 将 推导 规则 作为 关 
系 来 定义 ,默认 是 “包含 所 有 实例 的 最 小 关系 ”。 

数值 (nv) 的 语法 范畴 在 这 些 规 则 中 起 着 重要 的 作用 。 比 如 ,在 了 PredSuce 中 , 左 端 是 pred 
(succ nvi) [而 不 是 pred(succ t )] 意 味 着 这 个 规则 不 能 用 于 求 值 pred(succ(pred 0) ) 到 pred(0) ， 
因为 这 将 要 求 用 pred 0 实例 化 元 变量 nw ,但 pred 0 不 是 一 个 数值 。 项 pred(succ(pred 0) ) 的 求 
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值 中 惟一 的 下 一 步 以 下 列 推导 树 形 式 表 示 ; 
一 一 一 EPREDZERO 
pred0 一 0 

一 一 一 ESUcC 

Succ (pred 0)] 一 Succ0 

一 一 一 EPRED 

pred (succ (pred 0)) 一 pred (succ 0) 

3.5.14 ”练习 [xx]: 证 明定 理 (3.5.4) 对 算术 表达 式 的 求 值 关 系 也 成 立 : 如 果 ft 且 F=P， 


则 妃 =t。 

形式 化 一 个 语言 的 操作 语义, 需要 说 明 所 有 项 的 行为 ,包括 刚 用 到 的 项 ,如 pred 0 和 suce 
false。 在 图 3.2 的 规则 下 ,0 的 前 驱 定 义 为 0。 另 一 方面 ,false 的 后 继 不 能 求 值 到 任何 东西 ( 因 
它 是 一 个 范式 )。 我 们 称 这 样 的 项 受阻 。 


3.5. 生 ”定义 :如 果 一 个 封闭 项 是 一 个 范式 但 不 是 一 个 值 , 则 称 该 项 受阻 。 


“受阻 状态 "给 出 了 简单 机 器 的 运行 时 间 错 误 的 一 个 简单 概念 。 直 观 地 , 它 描述 了 这 样 的 
情况 :操作 语义 不 知道 做 什么 ,因为 程序 到 达 了 一 个 "无 意义 状态 ”。 在 语言 更 为 具体 的 实现 
中 ,这些 状 态 可 以 对 应 于 各 种 机 器 失误 :分 段 失误 和 非法 指令 的 执行 等 。 这 里 ,我 们 将 所 有 各 
种 不 良 行为 归 为 简单 的 “受阻 状态 "概念 。 

3.5.16 ”练习 [推荐 ,*x*j: 另 一 种 形式 化 抽象 机 器 无 意义 状态 的 办 法 是 引信 一 个 新 的 

项 , 称 为 wrong, 并 讨论 在 当前 诸 义 受阻 的 所 有 情况 下 明确 生成 wong 的 规则 及 其 操作 语 

义 。 为 此 ,我们 引入 两 个 新 的 语法 范畴 ; 


badnat := 非 数 值 范式 : 
wrong 运行 时 间 错 误 
true 常量 真 
false 常量 假 
badboo1 := | 非 布尔 范式 ; 
wrong 运行 时 间 错 误 
nv 数值 

以 及 含 下 列 规则 的 求 值 关 系 ， 
ifbadbool then tl elset2 一 Wrong (人 上 -IF-WRONG) 
succ badnat 一 wrong (上 E-SUCC-WRONG) 
pred badnat 一 wrong (上 -PRED-WRONG) 
1szero badnat 一 Wrong (E-ISZERO-WRONG) 


证 明 两 个 执行 时 间 错 误 的 处 理 是 相同 的 :(1) 找 一 个 精确 的 方法 陈述 “两 个 处 理 是 相同 
的 ";(2) 证 明 它 。 通 常 在 证 明 关 于 程序 语言 的 性 质 时 ,困难 一 点 的 是 对 要 证 明 的 精确 语言 
进行 形式 化 ,而 证 明 本 身 直 接 可 得 到 。 


3.5.17 ”练习 [推荐 ,xx**] :操作 语义 的 两 个 形式 是 通用 的 。 在 本 书 中 采用 的 称 为 小 步 形 
式 ,因为 求 值 关 系 的 定义 说 明 计 算 的 各 个 步 又 如 何 用 于 一 步 一 步 地 重 写 项 ,直到 它 最 终 变 
成 一 个 值 。 然 后 ,定义 一 个 多 步 求 值 关系 ,这 人 允许 我 们 讨论 可 以 (多 步 ) 求 值 到 值 的 项 。 另 
一 种 形式 , 称 为 大 步 语 义 ( 或 有 时 称 为 自然 语义 ), 直接 形式 化 概念 “该 项 求 值 为 最 终 的 
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值 ”, 记 为 tv。 布 尔 和 算术 表达 式 语 言 的 大 步 求 值 规则 为 : 


VyUV (B-VALUE) 


tl true t2  Vv2 





- (B-IFTRUE) 
jiftli thentz elset3ayv2 
tl 4 failse t3 JU V3 
-一 一 一 一 一 一 一 一 一 一 (B-IFFALSE) 
iftl then tz elset3 UVv3 
tl 4 nvi 
(B-SUCC) 


SUcC tl 业 SUCC nV1 


tlyU0 


predtiy0 (了 B-P REDZERO) 
工 


tl 沙 Succ nvi 
一 一 一 一 (B-PREDSUCC) 
pred tl  nvl 


tl yn0 


一 一 一 一 一 一 一 一 一 (B-ISZEROZERO) 
1Szero tl 由 七 rue 


tl 灿 SucC nvi1 
iszero tl 由 false 


证 明 这 个 语言 的 小 步 和 大 步 语 义 是 一 致 的 , 即 F> v, 当 且 仅 当 tv。 


3.5,18 练习 [xx 产 ] :假设 我 们 要 改变 语言 的 求 值 策略 使 得 一 个 让 表 达 式 的 then 和 
else 分 支 在 条 件 求 值 之 前 被 求 值 。 说 明 如 何 改变 求 值 规则 来 做 到 这 一 点 。 


3.6 注释 


抽象 和 具体 语法 .分析 等 想法 在 许多 关于 编译 的 书籍 都 有 定义 。 归 纳 定 义 ,推导 规则 系统 
和 归纳 证 明 参 见 Winskel(1993) 和 Hennessy( 1990) 。 

我 们 这 里 所 用 的 操作 语义 的 形式 来 自 Potkin(1981) 的 技术 报告 。 大 步 形式 [练习 (3.5. 17)] 
来 自 Kahn(1987)。 进 一 步 具 体 研 究 参 见 Astesiano(1991 ) 和 Hennessy(1990) 。 

结构 归纳 是 由 Burstall(1969) 引 入 到 计算 机 科学 中 来 的 。 


(B-ISZEROSUCC) 


问 :为 什么 要 对 程序 语言 进行 证 明 ? 如 果 定 义 是 正确 的 ,这 些 证 明 总 是 令 人 厌烦 的 。 
答 : 定义 几乎 总 是 错误 的 O 
一 一 佚名 
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形式 定义 ,如 前 一 章 采 用 的 形式 , 若 能 用 一 个 具体 的 实现 作为 它 成 立 的 基础 , 则 使 用 起 来 
更 容易 。 我 们 这 里 描述 实现 布尔 和 算术 表达 式 的 语言 的 关键 部 分 (不 想 了 解 后 面 章节 描述 的 
类 型 检查 器 实现 方式 的 读者 可 以 跳 过 这 一 章 及 后 面 所 有 关于 ML 实现 的 章节 )。 

这 里 给 出 (和 本 书 关于 实现 的 章节 中 ) 的 原 码 是 用 ML 系列 (Gordon,Milner 和 Wadsworth ， 
1979) 中 的 语言 编写 的 ,这 个 语言 称 为 Objective Caml (0OCaml) ( Leroy, 2000; Cousineau 和 Mauny， 
1998)。 这 里 ,只 用 到 了 完整 语言 的 一 小 子 集 ; 可 以 很 容易 地 将 例子 转换 成 大 部 分 其 他 语言 。 
最 主要 的 要 求 是 自动 存储 管理 (垃圾 收集 ) 和 通过 在 结构 数据 类 型 上 的 模式 匹配 来 定义 递归 函 
数 的 简易 工具 。 其 他 函数 式 语 言 , 像 Standard ML(Milner, Tofte, Harmper 和 MacQueen, 1997 ) ， 
Haskell (Hudak 等 ,1992; Thompson, 1999 ) , Scheme(Kelsey, Clinger 和 Rees, 1998; Dybvig, 1996) ( 含 
某 模式 匹配 扩充 形式 ) 均 可 用 来 实现 本 章 的 内 容 。 带 有 垃圾 收集 但 没有 模式 匹配 的 语言 , 像 
Java(Amold 和 Gosling,1996) 和 纯 Scheme , 对 我 们 要 做 的 程序 有 点 困难 。 既 没有 垃圾 收集 又 没 
有 模式 匹配 的 语言 , 像 C 语 言 (Kermighan 和 Ritchie ,1988) ,就 更 不 合适 了 @。 


4.1 语法 


我 们 的 第 一 件 事 是 定义 用 来 表示 项 的 DCaml 值 的 类 型 。OCaml 数据 类 型 定义 机 制 很 容易 
做 到 这 一 点 :下 面 的 说 明 就 是 对 3.1 节 的 语法 的 另 一 种 表示 方式 。 


type term = 

TmTrue of info 

TmFalse of info 

TmIf of info * term * term * 二 erm 
TmZzero of info 

TmSucc of info * term 

TmPred of info * term 

TJmIszero of info * term 


构造 子 从 TmTrue 到 TmisZer 都 是 给 类 型 term 的 抽象 语法 树 上 不 同 种 类 的 节点 命名 ;在 每 种 情 
况 下 of 后 面 的 类 型 说 明 该 节点 类 型 上 子 树 的 个 数 。 
每 个 抽象 语法 树 节点 标记 一 个 类 型 为 info 的 值 , 它 描 述 节点 起 源 于 哪里 ( 源 文件 所 在 的 位 置 )。 
这 个 信息 是 由 语法 分 析 器 在 扫描 输 入 文件 时 产生 的 ,打印 函数 用 它 指 明 用 户 错误 出 现在 
娜 里 。 为 了 理解 求 值 . 类 型 检查 等 基本 算法 ,这 个 信息 也 是 可 以 忽略 的 ; 它 写 在 这 里 是 为 了 让 
希望 自己 实现 的 读者 可 以 看 见 与 本 书 中 讨论 的 形式 相同 的 原 代 码 。 


@ 中 ”本 章 中 的 代码 可 以 在 http:/Wwww,cisupenn.edu/ ~ bcpierceltapl 的 arih 实现 中 找到 ,可 以 按 提示 下 载 和 建立 这 些 
实现 。 

@ 当然 ,语言 的 口味 是 变化 的 ,并 且 好 的 程序 员 会 用 任何 可 以 使 用 的 工具 来 完成 任务 ;读者 可 以 自由 地 使 用 任何 喜欢 
的 语言 。 但 注意 :一 个 类 型 检查 器 需要 处 理 各 种 符号 ,为 此 手工 完成 存储 管理 是 一 件 繁 融和 易 出 错 的 事情 。 
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在 求 值 关 系 的 定义 中 ,我 们 需要 检查 一 个 项 是 个 是 一 个 数值 : 


1]et rec isnumericval 直 = match tt with 
TmZzero(CC) 一 true 
| TmesuccKC_ ,tl) 一 isnumerjcval t1 
| -一 false 
这 是 一 个 OCaml 中 由 模式 匹配 来 递归 定义 的 典型 例子 : isnumericval 定义 为 函数 , 当 应 用 于 
TmZero 时 ,输出 true, 而 应 用 于 带子 树 tt 的 TmSucc 时 ,将 做 一 个 递归 调用 来 检查 tt 是 否 是 一 个 
数值 ;并 且 当 应 用 于 任何 其 他 项 时 ,输出 flse。 下 划 线 (_) 表 示 任 意 与 此 处 的 项 匹配 的 内 容 ; 它 
们 用 在 头 两 个 子 句 中 只 是 为 了 避 开 遇 到 info 注释 ,用 于 最 后 的 子 句 用 来 匹配 任何 项 。rec 关键 
字 告 诉 编译 器 这 是 一 个 递归 函数 定义 , 即 在 它 的 体 中 对 isnumerieval 的 引用 是 指向 正在 定义 的 
函数 ,而 不 是 某 个 以 前 的 有 着 相同 名 称 的 绑 定 。 
注意 上 面 定义 中 的 ML 原 代 码 ,为 了 易 读 性 并 保持 与 lambda 演算 的 例子 一 致 ,在 排版 时 可 
以 有 几 种 方法 来 美化 。 比 如 ,用 一 个 实 箭头 符号 (一 ) ,而 不 用 两 个 字符 (- > ) 的 序列 。 这 些 美 
化 后 的 符号 完整 列表 可 以 在 本 书 的 网 站 中 找到 。 
检查 项 是 否 为 值 的 函数 类 似 : 
let rec isval t = match t with 


TmTrue(C) 一 true 
| TmFalse(C_) 一 true 


| t when isnumericval t 一 true 

| _ -false 
第 3 个 子 句 是 一 个 “条 件 模式 ":, 只 有 布尔 表达 式 isanumericval t 结果 为 me, 它 才 与 任何 项 匹配 。 
4.2 求 值 


求 值 可 以 完全 按照 图 3.1 和 图 3.2 中 单 步 求 值 规则 来 实现 。 如 我 们 所 见 , 这 些 规则 定义 
一 个 部 分 函数 , 当 将 它们 应 用 于 还 不 是 值 的 项 时 ,产生 这 个 项 的 下 一 步 求 值 。 当 应 用 于 一 个 值 
时 , 求 值 函数 不 产生 任何 结果 。 为 了 将 求 值 规则 转换 为 0Caml ,需要 找 出 相应 的 解决 办 法 。 一 
个 直接 的 办 法 是 写 单 步 求 值 函 数 evall , 当 没 有 求 值 规则 可 应 用 于 所 给 的 项 时 它 提升 一 个 异常 
( 另 一 个 可 能 的 办 法 是 使 单 步 求 值 送 回 一 个 temn option ,指明 求 值 是 否 成 功 了 ,如 果 成 功 , 给 
结果 项 ;这 种 方法 也 能 成 功 实现 ,只 是 需要 多 一 点 信息 文档 )。 我 们 首先 定义 当 没有 求 值 规则 
可 运用 时 会 出 现 的 异常 ; 


exception NoRu1leApp1ies 


现在 可 以 写 出 单 步 求 值 器 了 ， 


et rec evallL +t = match t with 
TmIf(_,TmTrue(C_) ,t2,t3) 一 
七 2 
| TmIf( ,TmFalse(K_),t2,t3) 一 
t3 
| TmIfCfi ,tlL,t2,t3) 一 








30 类 型 和 程序 设计 语言 


let tl = evall tl in 
TmIfCfi ，tl1' ，t2，t3) 
TmSuccdCfi ,t1L) ~ 
1et tl1' = eval1 tl in 
TmSsuccCfi，tl'7) 
TmpPred(_ ,TmZzero(_)) 一 
TmZeroCdummyinfo) 
Tmpred(_,TmSucc(C_,nv1)) when (isnumericval nv1L) 一 
nvI 
TmPred(Cfi ,tL) 一 
et tl1' = evall tl in 
TmpPredCfi，tl) 
TmIsZero( ,TmZzero(_))] 一 
TmTrueCdummyinfo) 
TmIsZero(_,TmSucc(_,nvlL)) when (isnumericval nv1) 一 
TmFalseKCdummyinfo) 
TmISZero(Cfi tl) 一 
let t1:' = evall tl in 
TmISZero(Cfi，tl') 
| 一 


raise NOoRu1leApp1ies 


注意 有 几 处 的 项 是 随意 构造 的 ,并 不 是 将 已 存在 的 项 重新 组 合 。 因 为 这 些 新 项 在 用 户 原 来 的 
源 文 件 中 并 不 存在 ,它们 的 info 注释 没有 用 处 。 在 这 些 项 中 常量 dummyinfo 起 到 了 info 注释 的 
作用 。 文 件 信息 的 变量 名 称 在 用 于 在 模式 中 匹配 info 注释 。 

在 evall 的 定义 中 , 另 一 点 需要 注意 的 是 在 模式 中 使 用 when 子 句 来 捕捉 元 变量 名 称 , 如 v 
”和 m 在 图 3.1 和 图 3.2 求 值 关 系 表 示 中 的 效果 。 比 如 ,在 求 值 TmPred(_,TmSuce(_,nvl)) 的 子 
句 中 ,0OCaml 模式 的 语义 允许 nvl 去 匹配 任何 不 是 我 们 所 要 的 项 ;用 when(isnumericval nvl) 来 
限制 规则 ,这样 只 有 当 由 nvl 匹配 的 项 实际 是 一 个 数值 时 才 调 用 这 个 规则 (如 果 需 要 ,我 们 可 
以 用 与 ML 模式 相同 的 形式 来 重 写 原 来 的 推导 规则 ,将 元 变量 名 称 中 的 隐 含 约束 转 为 规则 上 
明显 的 边界 条 件 : 


tl1 是 一 个 数值 


pred (succ tl) 一 ti 


但 这 样 做 会 影响 紧 致 性 和 可 读 性 。 

最 后 ,eval 函数 取 一 个 项 ,通过 重复 调用 evall 找到 它 的 范式 。 只 要 evall 返回 一 个 新 项 ， 
就 继续 对 eval 递归 调用 , 求 值 Y。 当 evall 最 后 到 达 没 有 规则 可 运用 时 , 它 提升 异常 
NoRuleApplies ,造成 eval 中 断 循环 ,并 返回 序列 中 的 最 后 一 个 项 中 : 


et rec eval]1 七 = 
try 1et t' = eval11 七 
了 n eval f' 
with NOoRu1eApp1ies 一 七 


4.2.1 练习 [xx] :什么 才 是 eval 更 好 的 写法 ? 


(上 -PredSsuce) 


@ ”我们 这 样 使 用 eval 是 为 了 简化 ,但 将 一 个 ty 句柄 放 在 一 个 递归 回路 中 在 ML 中 不 是 非常 好 的 形式 。 
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显然 ,这 个 简单 求 值 器 是 为 了 与 求 值 的 数学 定义 相 比 较 , 而 不 是 尽快 地 找到 范式 。 一 个 更 
有 效 的 算法 可 以 用 练习 (4.2.2) 中 的 大 步 求 值 规则 。 


4.2.2 ”练习 :[ 推 荐 ,xxy 六] :在 arith 的 实现 中 改变 函数 eval 的 定义 为 练习 (3.5.17) 中 引 
人 的 大 步 形 式 。 


4.3 其 余部 分 


当然 ,除了 我 们 这 里 讨论 的 之 外 ,解释 器 或 编译 器 还 有 许多 其 他 部 分 一 即使 这 些 部 分 非 
常 简单 。 实 际 上 , 求 值 的 项 在 文件 中 开始 时 是 一 个 字符 的 序列 。 在 我 们 已 知 的 函数 实际 求 值 
它们 之 前 ,必须 从 文件 系统 中 读 出 ,由 一 个 词法 分 析 器 生成 符号 流 , 然 后 由 一 个 语法 分 析 器 生 
成 抽象 语法 树 。 此 外 ,在 求 值 之 后 ,结果 需要 打印 出 来 
区 丰 了 9 有 而 革 分 柯 知 后 法 分 员 - 天 你 图 告 
感 兴趣 的 读者 可 以 看 一 下 在 线 解释 器 的 OCaml 原 代码 。 
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这 一 章 我 们 将 回顾 无 类 型 或 纯 lambda 演算 的 定义 和 基本 性 质 ,这 是 本 书 将 描述 的 大 部 分 
类 型 系统 的 “计算 基础 ”。 

在 20 世纪 60 年 代 中 期 , Peter Lanqin 注意 到 -- 个 复杂 程序 语言 可 以 这 样 来 理解 :将 它 形式 
化 为 反映 语言 基本 机 制 的 微小 核心 演算 ,加 上 一 个 便利 的 推导 形式 的 集合 ,其 推导 行为 可 以 转 
换 到 核心 演算 中 (参见 Landin 1964, 1965, 1966; 也 可 参见 Tennent 1981)。Landin 用 的 核心 语言 
是 lambda 演算 ,由 Alonze Churcoh(1936,1941) 于 20 世纪 20 年 代 发 明 的 一 个 形式 系统 ,其 中 所 有 
的 计算 归 约 为 函数 定义 和 应 用 的 基本 运算 2。 由 于 Landin 的 见解 和 John MecCarthy 于 20 世纪 
70 年 代 在 LISP(1959, 1981) 方 面 的 开创 性 工作 ,lambda 演算 广泛 用 于 程序 语言 特征 的 说 明 , 语 
言 设 计 和 实现 ,以 及 类 型 系统 的 研究 。 它 的 重要 性 在 于 它 既 可 作为 描述 计算 的 一 个 简单 程序 
语言 ,同时 也 可 作为 一 个 数学 对 象 , 其 中 的 严格 语句 能 得 到 证 明 。 

lambda 演算 只 是 有 着 类 似 目 的 的 许多 核心 演算 之 一 。Milner, Parrow 和 Walker(1992, 1991 ) 
的 pi 演算 已 经 成 为 定义 基于 消息 并 发 语言 的 语义 核心 语言 ,而 Abadi 和 Cardelli 的 对 象 演算 
(1996) 精 炼 出 面向 对 象 语言 的 核心 特征 。 我 们 讨论 lambda 演算 中 涉及 到 的 大 部 分 概念 和 技术 
都 能 直接 转换 到 其 他 演算 中 去 。 第 19 章 将 讨论 这 种 转换 的 一 个 实例 。 

lambda 演算 可 以 从 不 同 的 方面 加 以 丰富 。 首 先 ,常常 容易 加 入 那些 行为 在 核心 语言 中 已 
经 模拟 的 特征 。 如 数 、. 元 组 .记录 等 的 具体 语法 。 更 有 趣 的 是 ,我 们 还 能 加 入 更 复杂 特征 , 像 易 
变 引用 单元 或 非 局 部 异常 处 理 ,它们 在 核心 语言 中 只 有 经 过 复杂 的 翻译 才能 建 模 。 这 样 的 扩 
展 最 终 产生 了 如 ML(Gordon, Milner, Wadsworth 1979; Milner, Tofte 和 Harmper, 1990; Weis， Aponte， 
Laville,Mauny 和 Suirez, 1989; Milner, Tofte, Harper 和 MacQueen, 1997 ) , Haskell(Hudak 等 , 1992 ) ， 
或 Scheme(Sussman 和 Steele ,1975; Kelsey， Clinger 和 Rees, 1998) 这 样 的 语言 。 我 们 在 以 后 章节 
中 将 看 到 对 核心 语言 的 扩展 常常 包含 对 类 型 系统 的 扩展 。 


5.1 基础 


过 程 (或 函数 ) 抽 象 基本 上 是 所 有 程序 语言 的 关键 特征 。 不 用 重复 写 一 个 演算 ,我 们 借助 
于 一 个 或 多 个 命名 参数 写 一 个 函数 或 过 程 的 一 般 执 行 演算 ,并 且 需 要 时 实例 化 这 个 函数 ,在 每 
个 情况 下 提供 参数 的 值 。 比 如 ,一 个 程序 员 需 要 耐心 重复 地 写 这 样 的 表达 式 ,如 ， 
(5x4w3x2x1) + (7*6x5x4x3x*2x1) - (3+2s1) 
并 重 写 为 factorial(S$) + factorial(7) - factorial(3) ,其 中 ， 


factoriai(n) = if n=0 then 1 else n * factorial(Cn-T) 


作 ”本章 中 的 例子 是 根据 纯 无 类 型 lamhda 演算 ,X( 参 见 图 5.3) 或 扩展 为 带 布 尔 和 算术 操作 的 janbda 演算 ,)》 NB(3.2)。 
相关 的 OCaml 实现 是 fthintyped。 
四 ”此 处 应 为 函数 抽象 一 一 译 者 注 。 
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对 每 个 非 负数 n, 用 参数 n 实例 化 函数 factorial 产生 n 的 阶乘 。 如 果 用 “mn…” 表 示 “ 函 数 对 每 
个 mn, 产生 ………- ”我 们 能 将 factorial 的 定义 写 为 : 
factorial1 = An. if n=0 then 1 else n * factorial(Cn-1) 

则 factorial(0) 意 思 是 “ 本 数 (Xn. fn=0 then 1 else…) 应 用 于 参数 0”, 邯 变量 nm 在 函数 体 (Xn. 计 
n=0 then 1 else…) 中 用 0 代 换 的 结果 值 , 即 ， “让 0=0then 1 else…,” 值 为 1。 

lambda 演算 (或 和 演算) 用 最 可 能 纯 的 形式 表示 这 种 函数 定义 和 应 用 。 在 lambda 演算 中 ， 
每 个 事物 均 是 一 个 函数 ;: 函数 接受 的 参数 是 函数 ,一 个 函数 的 结果 是 另 一 个 函数 。 

lambda 演算 的 语法 由 3 种 项 组 成 。 一 个 变量 x 本 身 是 一 个 项 ;一 个 变量 x 在 项 b 中 的 抽 
象 , 记 为 ix.b ,是 一 个 项 ;并 且 一 个 项 h 应 用 于 另 一 个 项 已 时 , 记 为 bb ,也 是 一 个 项 。 形 成 项 
的 这 些 方 式 可 用 下 列 语法 表示 


七 := 项 : 
X 变量 
AX ,七 抽象 
tt 应 用 
下 面 的 小 节 将 详细 地 讨论 这 个 定义 。 
抽象 语法 和 具体 语法 


当 讨 论 程 序 语言 的 语法 时 ,要 区 别 结构 的 两 个 层次 8。 语 言 的 具体 语法 (或 表面 语法 ) 指 
程序 员 直 接 读 和 写 的 字符 串 。 抽 象 语法 是 将 程序 表示 为 标签 树 的 更 为 简单 的 内 部 表示 ( 称 为 
抽象 语法 树 或 AST) 。 树 表示 使 项 的 结构 明显 化 ,无 论 是 在 严格 的 语言 定义 (和 它们 的 证 明 ) 中 
还 是 编译 器 和 解释 器 的 内 部 ,都 适合 进行 复杂 处 理 。 

从 具体 语法 到 抽象 语法 的 转换 由 两 步 组 成 。 首 先 , 一 个 词法 分 析 器 (或 词法 器 ) 将 程序 员 
写 的 字符 串 转 换 为 符号 序列 一 一 标识 符 , 关 键 字 常量 和 标点 等 。 词 法 器 除 掉 注 解 ,同时 处 理 
如 空格 ,大 小 写 约定 ,以 及 数 和 串 常量 的 格式 等 问题 。 接 着 ,一 个 语法 分 析 器 将 标记 序列 转换 
为 一 个 抽象 语法 树 。 在 分 析 时 ,各 种 约定 ,如 算 子 的 优先 权 和 结合 律 ,可 以 减少 程序 中 表明 复 
合 表达 式 层次 结构 的 括号 数量 。 比 如 , * 优先 于 + ,因此 语法 分 析 器 解释 无 括号 的 表达 式 
1+2x3 为 一 个 左边 的 抽象 语法 树 。 





人 LN 
! ss 


本 书 的 重点 是 抽象 语法 ,不 是 具体 语法 。 像 上 面 的 lambda 项 的 语法 应 理解 为 描述 合法 的 
树 结构 ,而 不 是 符号 或 字符 的 串 。 当 然 , 当 我 们 写 例子 .定义 .定理 和 证 明 中 的 项 时 ,需要 将 它 
们 表示 为 一 个 具体 的 线性 符号 ,但 我 们 要 记 住 它们 所 表达 的 是 抽象 语法 树 。 


@ 术语 lambda 项 是 指 ljambda 演算 中 的 任意 项 。 以 开头 的 lambda 项 常常 称 为 lanbda 抽象 。 

@ 成熟 语 言 的 定义 有 时 采用 多 层 。 比 如 ,根据 Landin, 将 某 些 语言 构造 的 行为 定义 (通过 将 它们 转换 为 其 他 更 基本 特征 
的 组 合 定义 ) 为 导出 形式 ,常常 是 非常 有 用 的 。 只 包含 核心 特征 的 子 语言 称 为 内 部 语言 ( 蕊 ), 而 包含 所 有 导出 形式 的 
完全 语言 称 为 外 部 语言 (EL)。 经 过 分 析 , 从 开 到 工 的 转换 (至 少 概念 上 ) 将 独立 进行 。 在 11.3 节 中 将 讨论 导出 形式 。 
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为 省 略 太 多 的 括号 , 当 我 们 以 线性 方式 写 lambda 项 时 将 采用 两 个 约定 。 首 先 ,应 用 的 是 
左 结合 , 即 stu 和 (s Du 表示 相同 的 树 。 


QPPby 
appj 1 
S 七 


其 次 ,抽象 体 尽 可 能 右 扩展 ,使 得 比如 ,)x.Xy_x yx 和 jx.(Oy ((x y)x)) 甫 示 相 同 的 树 。 


变量 和 元 变量 

上 面 讨论 的 语法 定义 中 另 一 难点 是 使 用 元 变量 。 我 们 将 继续 用 元 变量 {( 以 及 s 和 u, 带 下 标 
或 不 带 下 标 ) 表 示 任 意 项 中 。 类 似 地 ,x( 以 及 y 和 表 示 一 个 任意 变量 。 注 意 , 这 里 的 x 是 一 个 在 
变量 上 取 值 的 元 变量 。 由 于 短 名 称 集合 有 限 ,我 们 仍 用 x,y,… 表 示 对 象 语言 中 的 变量 。 在 这 种 
情况 下 ,只 要 根据 上 下 文 就 能 知道 谁 是 变量 , 谁 是 元 变量 。 比 如 ,在 句子 “项 jx.Xy .xy 有 形式 )z. 
s, 其 中 z=x 有 上 且 s=)y. 允 "中 ,名 称 z,s 是 元 变量 ,而 x 和 y 是 对 象 语言 变量 。 


辖 域 


关于 lambda 演算 的 语法 我 们 将 讨论 的 最 后 一 点 是 变量 的 辖 域 。 

对 变量 x, 当 它 出 现在 抽象 )x.t 的 + 中 时 , 则 认为 x 的 出 现 是 圈 界 (或 称 被 界定 ) 的 (更 精确 
地 说 , 它 被 这 个 抽象 所 界定 。 等 价 地 ,也 可 以 说 )x 是 一 个 绑 定 器 , 它 的 辖 域 是 中 。x 是 自由 的 ， 
如 果 它 出 现 的 位 置 不 被 任何 对 x 的 抽象 所 界定 。 比 如 ,x 在 邓 和 )y.xy 中 是 自由 的 ,而 在 Xx.x 
和 )z.)x.Xy.x(7z) 中 的 出 现 是 辕 界 的 。 在 (Xx.x)x 中 的 第 一 个 出 现 是 略 界 的 ,而 第 二 个 则 是 自 
由 的 。 

一 个 不 含 自由 变量 的 项 称 为 封闭 项 ;封闭 项 也 称 为 组 合子 。 最 简单 的 组 合子 , 称 为 恒 
等 函数 ; 


id = AX.X; 


只 输出 它 的 变 元 。 


中 自然 地 ,在 这 一 章 中 ,表示 lambda 项 ,而 不 是 在 算术 表达 式 。 在 本 书 中 ,+ 总 是 表示 于 所 讨论 演算 的 项 。 每 一 章 第 一 
页 的 脚注 都 会 说 明 这 个 系统 是 什么 系统 。 
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操作 语义 
纯 形式 (或 纯 ) 的 lambda 演算 没有 内 置 的 常量 或 原 语 算 子 一 一 没有 数 、 算 术 运 算 .条 件 子 、 
记录 ,循环 .序列 .0O, 等 等 。 项 计算 的 惟一 含义 是 将 函数 应 用 到 参数 (参数 本 身 是 函数 )。 
计算 的 每 一 步 是 重 写 一 个 左 端 部 分 为 抽象 的 应 用 ,用 右 端 部 分 代 换 抽象 体 中 的 园 变 量 。 图 
示 记 为 : 
(Ax. tli2) ta2 一 [x 一 t2]tl2， 
其 中 [x F 斑 电 表示" 由 代 换 在 电 中 所 有 自由 出 现 的 x 得 到 的 项 ”。 比 如 ,项 (xx.xzy 求 值 为 
y, 项 (Xx.x(Ax.x))(Cur) 求 值 为 ua r(CAx.x)。 采 用 Chureh 的 概念 , 形 为 (Xx.ta)b 的 项 称 为 一 个 约 
式 必 可 归 约 表达 式 ”) ,并 且 根 据 上 述 规则 重 写 一 个 约 式 的 操作 称 为 beta 归 约 。 
程序 语言 设计 者 和 理论 工作 者 在 多 年 的 研究 中 提出 了 lambda 演算 中 几 个 不 同 的 求 值 策 
略 。 每 个 策略 确定 一 个 项 在 下 一 步 求 值 中 激活 哪 一 个 约 式 或 几 个 约 式 中 。 
e@ 在 全 beta 归 约 下 ,任何 时 刻 可 以 归 约 任何 一 个 约 式 。 在 每 一 步 ,我 们 对 进行 求 值 的 项 ， 
取 任 何 位 置 的 某 个 约 式 , 并 且 归 约 它 。 比 如 ,考虑 项 ， 
(AxX.X) CCAX.X) (AZ. (NAX.X)J Z))， 
可 以 记 为 id(id(Xz.id z))。 这 个 项 包 禽 3 个 约 式 ; 


id (id (AZz. 1d z)) 

id (1d (CAz. idz)77) 

id (id (Az. idz)) 

在 全 beta 归 约 下 ,我 们 可 以 选择 ,比如 ,最 里 面 的 约 式 开 始 归 约 ,然后 对 中 间 的 约 式 ,最 
后 对 最 外 面 的 约 式 进行 归 约 ; 

id (id (AZ. id z)) 

id (id (AZz,.z)77) 

id (Az.-z) 

AZ.Z 


生 
十 1 


采用 规范 顺序 策略 ,最 左边 ,最 外 面 的 约 式 总 是 第 一 个 被 归 约 。 在 这 种 策略 下 ,上 面 的 
项 可 以 归 约 如 下 : 
id (id (AZz. id z)7) 
一 id (AZz. id z) 
一 AZ. idz 
一 AZ.z 
- 才 
在 这 种 (以 及 下 面 的 几 种 ) 策 略 下 , 求 值 关系 实际 上 是 一 个 部 分 本 数 ,每 个 项 { 一 步 至 多 
求 值 为 一 个 项 。 
按 名 调用 策略 限制 条 件 更 多 ,不 允许 在 抽象 内 部 进行 归 约 。 对 上 述 项 ,我 们 可 以 先 按 照 
规范 顺序 策略 做 前 两 个 归 约 ,但 在 遇 到 最 后 一 个 时 停止 ,将 jz.id z 看 做 是 一 个 范式 ; 


@@ ”有些 人 不 区 分 使 用 术语 “ 归 约 " 和 " 求 值 "。 有 时 用 "“ 求 值 "只 表示 涉及 某 些 “ 值 "概念 的 策略 ,而 用 “ 归 约 ”表示 其 他 
策略 。 
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id (id (MAz. id z)) 
一 id(Az. idz) 
一 Az. idz 
坟 
某 些 著名 的 程序 语言 ,如 Algol 60(Naur 等 ,1963) 和 Haskell(Hudak 等 ,1992) 采 用 按 名 调 
用 的 变化 形式 。Haskell 实际 上 采用 一 个 优化 的 形式 , 称 为 按 需 调 用 (cal by need) 
(Wadsworth 1971; Ariola 等 ,1995) ,不 用 每 次 重新 求 值 所 有 用 到 的 变 元 , 而 用 它 第 一 次 求 
出 的 值 覆盖 变 元 的 所 有 出 现 值 ,以 避免 以 后 重新 求 值 。 这 个 策略 要 求 我 们 在 项 的 执行 
时 间 表 示 中 维护 某 个 共享 。 事 实 上 ,这 是 一 个 抽象 语法 图 上 的 归 约 关系 ,而 不 是 语法 树 
上 的 归 约 关系 。 
e@ 大 部 分 语言 采用 按 值 调 用 (eall by value) 的 策略 ,这 里 只 有 最 外 面 的 约 式 可 以 归 约 ,并 旺 
只 有 当 该 约 式 的 右边 均 已 经 归 约 到 一 个 值 时 才能 进行 归 约 ,这 里 的 值 是 指 这 样 一 个 项 ， 
它 的 计算 已 经 完成 ,并 且 不 能 再 归 约 了 到 。 在 这 个 策略 下 ,上 述 例子 的 项 归 约 如 下 : 
id (id (Az. jdz)) 
一 1i1d(Az. idz) 
一 AZ. idz 
- 坟 
按 值 调用 策略 是 严格 的 ,意思 是 对 函数 的 参数 均 求 值 ,不 管 它们 是 否 在 函数 体 中 发 挥 作 
用 。 相 比 之 下 , 非 严格 的 (或 懒惰 的 ) 策 略 像 按 名 调用 以 及 按 需 调 用 只 对 实际 要 用 到 的 
参数 求 值 。 
当 考 虑 类 型 系统 时 ,选择 哪 种 求 值 策略 实际 上 没有 多 少 差 别 。 引 发 各 种 类 型 特征 ,以 及 说 
明 它 们 所 用 的 技术 对 所 有 的 策略 来 说 几乎 是 相同 的 。 在 本 书 中 ,我们 采用 按 值 调用 ,这 是 因为 
在 大 部 分 著名 的 语言 中 采用 的 都 是 这 种 策略 ,同时 也 因为 它 最 容易 用 一 些 特征 ,如 异常 (参见 
第 14 章 ) 和 引用 (参见 第 13 章 ) 来 扩充 。 


5.2 lambda 演算 中 的 程序 设计 


lambda 演算 比 其 定义 的 形式 更 为 强大 。 在 本 节 中 ,我 们 将 考虑 几 个 用 lambda 演算 表示 程 
序 的 典型 例子 。 这 些 例子 并 不 是 用 来 表明 lambda 演算 应 该 看 做 是 成 熟 的 程序 设计 语言 (所 有 
广泛 使 用 的 高 级 语言 提供 更 清晰 和 更 有 效 的 方法 实现 相同 的 任务 ) ,而 只 是 作为 热身 练习 来 感 
觉 一 下 这 个 系统 。 


多 参数 


首先 我 们 注意 到 lambda 演算 并 没有 对 多 参数 函数 提供 内 在 支持 。 当 然 ,加 上 这 样 的 支持 不 
是 一 件 困 难 的 事情 ,但 更 容易 的 办 法 是 采用 以 函数 为 其 结果 的 高 阶 函 数 来 达到 相同 的 效果 。 假 
定 s 是 一 个 包含 两 个 自由 变量 x,y 的 项 ,要 写 一 个 函数 了 使 得 对 每 个 参数 序 对 (v,w) 产 生 在 s 中 
用 v 代 换 x, 并 且 用 w 代 换 y 的 结果 。 在 一 个 较 丰 富 的 程序 语言 中 ,我 们 可 以 将 f= X(x,y).s 写 
成 f=)x.Xy.s。 邑 二 为 一 个 函数 , 当 用 v 代 换 x 时 会 产生 一 个 新 的 函数 ,再 将 新 函数 中 的 y 用 w 


中 在 目前 初级 阶段 的 演算 中 ,惟一 的 值 是 lambda 抽象 。 在 更 高 级 的 演算 中 将 包含 其 他 值 :数值 和 布尔 常量 . 申 、 值 的 
元 组 、 值 的 记录 和 值 的 列表 等 。 





第 5 章 无 类 型 lambda 演算 37 


代 换 时 就 产生 最 终结 果 。 然 后 我 们 一 次 一 个 运用 f 到 它 的 参数 , 记 为 fv w[ 即 (fv)wj 归 约 为 
((Ay.[x Fr~ v]s)w), 然 后 产生 [y Fr- wj[x Fr v]s。 这 个 多 参数 函数 到 高 阶 天 数 的 转换 称 为 
curying, 以 纪念 Haskell Cury ,他 是 与 Church 同时 代 的 人 。 


Church 布尔 式 


另 一 个 可 以 很 容易 拒 入 到 lambda 演算 的 语言 特征 是 布尔 值 和 条 件 式 。 定 义 项 tm 和 全 如 
下 所 示 ， 


tru = At Af， 二 ; 
fls = AL ATf.、 下 ; 


(这 些 简 写 的 名 称 是 为 了 避免 与 第 3 章 中 原始 布尔 常量 tue 和 false 相 混淆 )。 

项 tm 和 全 可 以 表示 布尔 值 真 "和 " 假 " ,这 样 我 们 可 以 用 这 些 项 执行 测试 一 个 布尔 真 假 
值 的 操作 。 特 别 , 可 以 用 应 用 来 定义 一 个 组 合式 test, 使 得 当 b 是 tm 时 ,test b v w 归 约 为 而 
当 b 为 全 时 ,test byvw 归 约 为 w; 

test = A1， Am An。 1 m ni 
组 合式 test 实际 上 并 没有 什么 用 处 :test b v w 可 以 归 约 为 b v w 。 事 实 上 ,布尔 子 b 本 身 是 一 
个 条 件 子 : 它 取 两 个 参数 ,然后 选择 第 一 个 (如 果 它 是 tm 或 第 二 个 (如 果 它 是 各 ) 参 数 。 比 如 ， 
项 test tru v w 归 约 如 下 : 


test tru V W 
(A1. Am, An,. 1mn) truvw 由 定义 
(Am， An， truimn) VvW 归 约 下 划 线 的 约 式 


一 (Mn. truvnmw 归 约 下 划 线 的 约 式 
一 truvw 轨 约 下 划 线 的 约 式 
= (At.Af.t) vw 由 定义 

一 (人 (Af.V] w 为 约 下 划 线 的 约 式 
一。 Vv 妇 约 下 划 线 的 约 式 


我 们 也 可 以 像 逻辑 连接 词 一 样 定义 布尔 算 子 为 函数 : 
and = Ab. AcC. b c fl15s; 


即 and 是 一 个 函数 对 给 定 两 个 布尔 值 b 和 ,如 果 b 是 tm, 输出 c; 并 且 如 果 b 是 全 ,输出 全 ;这 
样 ,如果 b 和 e 两 个 均 为 tu,and b ec 产生 tm, 如 果 要 么 b, 要 么 ec 是 fs 产生 fs。 
and tru tru; 


* 《At Af，t) 


and tru f1s; 


* 《A 世 人 A 牛 ， 千 ) 
s.2.1 练习 [xj: 定 义 逻 辑 or 和 not 数 。 
序 对 


利用 布尔 式 ,我 们 能 定义 值 的 序 对 为 项 ， 


pair = Af.AXs.Mb. b f s; 
fst = Ap。Pp trui 
snd = Ap。Pp fls; 
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即 pair v w 是 这 样 的 一 个 函数 , 当 应 用 于 一 个 布尔 值 b 时 ,b 会 应 用 于 v 和 we 由 布尔 式 的 定 
义 , 如 果 b 是 bm; 这 个 应 用 产生 v; 如 果 b 是 fs 并 且 w, 因 此 ,第 一 个 和 第 二 个 投影 函数 fst 和 
snd 可 以 简单 地 用 适当 的 布尔 式 来 实现 。 为 验证 fst(pair v w) 一 "”v, 可 以 计算 如 下 ， 


fst (pair vw) 
fst ((Af. As. Mb. bfs)vw) 由 定义 


一 fst ((As. Mb.bvs) wW) 归 约 下 划 线 的 约 式 
一 ， fst (Mb.bvw) 归 约 下 划 线 的 约 式 
= (Ap.ptru) (Ab. bvw) 由 定义 
一 (Ab.bvwtru 妇 约 下 划 线 的 约 式 
一 truvw 归 约 下 划 线 的 约 式 
_v 如 前 . 

Church 数值 


用 lambda 项 表示 数 比 我 们 在 上 面 所 看 到 的 要 复杂 一 些 。 定 义 Church 数值 o ,cl ,e ,… 为 :， 


co = AS，AZ，Z; 

cl1 =AS.， AZ， 5S Zi; 

cC2 = AS，AZ，S (Ss Z); 

c3 = AS. AMZ. S (S (Ss zZ))]; 
etc . 


即 每 个 数 n 用 一 个 组 合式 co, 表示 ,这 个 组 合式 有 两 个 参数 ,s 和 忆 表 示 “ 后 继 " 和 "“ 零 ") ,并 且 应 
用 s 到 z,n 次 。 与 布尔 式 和 序 对 的 情况 一 样 , 这 种 编码 使 数 变 为 活 妈 的 实体 : 数 n 用 函数 表 
示 ,该 函数 做 某 件 事情 n 次 (一 种 活跃 的 一 元 数字 )。 

(读者 也 许 早已 注意 到 了 co 和 fk 实际 上 是 同一 个 项 。 在 汇编 语言 中 类 似 的 “双关 语 "是 
普遍 的 ,这 里 相同 的 比特 模式 可 以 表示 许多 不 同 的 值 ,一 个 整数 .一 个 浮 点 .一 个 地 址 .四 个 字 
符 ,等 等 ,依赖 于 如 何 解释 它 ;在 C 这 样 的 低级 语言 中 ,0 和 false 也 是 相等 的 )。 

我 们 可 以 定义 Chureh 数值 上 的 后 继 函 数 为， 

scC = Mn. AS. AZz. S (Cn S Z); 
项 sce 是 这 样 的 一 个 组 合式 , 取 一 个 Chureh 数值 n, 得 出 另 一 个 Chureh 数值 , 即 它 产生 一 个 取 
参数 s 和 >z, 将 s 重 复 应 用 于 z 的 函数 。 首 先 将 s 和 z 作为 参数 传递 给 n 得 到 s 应 用 于 z 的 正确 
数值 ,然后 再 将 s 应 用 于 这 个 结果 。 

s.2.2 练习 [xx] :用 另 一 种 方法 定义 Church 数值 上 的 后 继 函 数 。 

类 似 地 ,可 以 用 项 plus 做 Church 数值 的 加 法 ,这 个 项 取 两 个 Chureh 数值 m,n 作为 参数 , 产 
熏 一 个 Church 数值 , 即 一 个 范 数 , 它 接受 两 个 参数 s 和 ,重复 应 用 s 到 z,n 次 (将 s,z 作 为 参 
数 传 给 n) ,然后 应 用 s 到 这 个 结果 章 次 ; 

plus = Mm. An AS. AzZ. ms (ns z); 
乘法 的 实现 采用 另 一 个 技巧 ;因为 plus 一 次 取 一 个 参数 ,应 用 它 到 一 个 参数 n 将 产生 这 样 的 函 
数 ,将 n 与 所 给 的 任何 参数 相 加 。 将 这 个 函数 作为 第 一 个 参数 传 给 m,a 作为 第 二 个 参数 是 指 
“将 n 加 到 函数 的 参数 中 ,再 将 函数 应 用 于 0, 重复 mm 次 ”, 即 “将 nm 玲 加 惠 次 "。 


times = Al。An. mW (plus n) co; 


5.2.3 练习 [xx] :是 否 可 能 不 用 plus 定义 Chureh 数值 上 的 乘法 ? 
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5.2.4 练习 [推荐 ,**] :定义 一 个 项 将 一 个 数 变 为 另 一 个 数 的 寡 。 


测试 一 个 Chureh 数值 是 否 为 零 ,我 们 必须 找到 某 个 合适 的 参数 序 对 一 一 特别 是 ,必须 应 
用 数值 到 一 个 项 zz 和 ss 的 序 对 使 得 应 用 ss 到 一 次 或 多 次 产生 fs ,而 不 是 产生 ru。 显然 ， 
应 该 取 2 为 tu。 对 于 ss, 可 用 一 个 不 考虑 参数 上 且 总 是 返回 全 的 函数 : 


iszro = AMm，m (AXx， fls)] trui 
iszro cl1; 

rr (At。Af.。 全 ) 
isSzro (times co cz2) 

* (ALt。Af，t) 


令 人 惊讶 的 是 , Church 数值 的 减法 比 加 法 要 困难 一 些 。 用 下 面 的 “前 驱 函 数 ” 能 够 定义 数 
值 的 减法 ,这 个 “前驱 函数 " 当 给 定 om 作为 参数 时 , 仅 返 回 wm , 当 给 定 cj,; 作 为 参数 时 产生 ce : 


zz = pair co co; 
ss = Ap. pair (snd p) (plus cl (Csnd p)); 
prd = Am. fst (m ss ZzZ) ; 


这 个 定义 用 mm 作为 一 个 函数 ,将 函数 ss 的 mm 次 乒 贝 应 用 到 开始 的 值 zz 。 每 个 ss 的 拷贝 取 数 
值 序 对 pair ci cj 作为 它 的 参数 ,并 产生 pair ec cj 作为 其 结果 (如 图 5$.1 所 示 )。 因 此 ,运用 ss， 
次 到 pair o mw, 当 m=0 时 产生 pair oa co; 并 且 当 mm 为 正 时 ,产生 pair cl cu。 在 两 种 情况 
中 ,m 的 前 继 出 现在 第 一 个 部 分 中 。 
pair co co 
s8 copy/ +1 
bair co ca 
ae copy/+ 
Padzr cl cx 
8 copy/+1 
pair ca cs 


88 Copy/ |+1 


Paizr cj c4 


图 5.1 前 驱 函 数 的 “内 循环 ” 
5.2.5 练习 [xxj]: 用 prd 定义 一 个 减法 函数 。 
5.2.6 练习 [xx] ;估计 一 下 计算 prd c. 需要 多 少 步 求 值 (作为 n 的 函数 )? 


S$.2.7 ”练习 [xx] : 写 出 一 个 函数 equal 测试 两 个 数 是 否 相 等 , 送 回 一 个 Chureh 布尔 式 。 
比如 ; 
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equal c3 Cc3; 

* 《At，Af. Tt) 

equal1 c3 Cc2; 

* 《At，Af， 于 ) 
其 他 常用 的 数据 类 型 , 像 列 表 , 树 ,数组 和 各 种 的 记录 能 采用 类 似 的 技巧 定义 。 


Ss.2.8 ”练习 [推荐 ,*x*x]: 一 个 列表 能 用 函数 fold 在 lambda 演算 中 表示 (这 个 郴 数 的 

OCaml 命名 是 fold__left; 它 有 时 也 称 为 reduce)。 比 如 ,将 列表 [x,y,z] 变 成 一 个 函数 , 它 取 

两 个 参数 ec 和 n, 返 回 cx(cy(czn) ))。nil 该 如 何 表示 ? 写 出 一 个 图 数 cons, 它 取 一 个 元 素 h 

和 一 个 列表 t 即 一 个 fold 函数 ) 作 为 参数 ,返回 一 个 将 h 播 人 到 ! 的 头 部 的 新 列表 。 写 出 

isnil 和 head 函数 ,每 个 取 一 个 列表 作为 参数 。 最 后 ,针对 这 个 列表 , 写 出 一 个 函数 tail( 这 

有 点 困难 ,需要 利用 类 似 于 定义 数 的 prd 技巧 )。 
丰富 演算 

我 们 已 经 看 到 布尔 式 . 数 及 其 运算 能 在 纯 lambda 演算 中 表示 。 的 确 , 严 格 地 讲 , 我 们 能 在 
纯 系 统 范围 中 进行 任何 程序 设计 。 但 是 , 当 讨论 例子 时 ,常常 也 需要 用 上 原始 的 布尔 类 型 和 数 
型 (可 能 还 有 其 他 数据 类 型 )。 当 我 们 需要 明确 是 哪 一 个 系统 时 ,可 用 符号 和 表示 在 图 5.3 中 
定义 的 纯 lambda 演算 ,ANB 表示 含 图 3.1 和 图 3.2 中 的 布尔 类 型 和 算术 表达 式 的 系统 。 

在 XNB 中 , 当 我 们 写 程序 时 ,实际 上 有 两 个 不 同 的 布尔 类 型 和 数 的 实现 方法 可 以 选择 :一 
个 是 实际 的 实现 , 另 一 个 就 是 本 章 中 定义 的 代码 。 当 然 ,很 容易 在 两 者 之 间 进 行 转换 。 为 将 一 
个 Church 布尔 类 型 转换 为 一 个 原始 布尔 类 型 ,可 将 它 应 用 到 true 和 false: 


realbool = Ab. b true false; 


另 一 个 方法 是 ,用 一 个 让 表 达 式 : 
churchboo1 = Ab. if b then tru else fl]15s; 
在 高 级 操作 中 能 够 建立 这 些 转换 。 这 里 ,一 个 Church 数值 上 的 相等 函数 送 回 一 个 真实 的 布尔 式 ; 
realeq = AMm，An， (equal m n) true fa1se; 
用 同样 的 方法 ,可 以 运用 到 succ 和 0: 
realnat = Am。 由 (AX. SUCC X) 0; 
将 一 个 Church 数值 转换 到 相应 的 原始 数 。 不 能 直接 运用 m 到 suce, 因为 succ 本 身 没有 语法 意 
义 : 由 我 们 定义 算术 表达 式 语 法 的 方法 ,总 能 运用 succ 到 某 个 项 上 。 我 们 可 以 绕 开 这 一 点 ,将 
succ 包装 在 一 个 小 函数 中 , 这 个 小 函数 不 做 其 他 事情 ,只 送 回 sucec 的 参数 。 
在 例子 中 使 用 原始 布尔 式 和 数 的 理由 主要 与 求 值 次 序 有 关 。 比 如 ,考虑 项 scc cl 。 从 上 面 
的 讨论 中 ,我 们 期 望 这 个 项 应 该 求 值 为 一 个 Church 数值 e。 事 实 上 , 它 不 是 ， 
SCC Cl1 ; 
* (AS. AZ. S〈(AS'  。AZ'. 5' zZ') 5 zZ)) 


这 个 项 包含 一 个 约 式 ,如 果 我 们 要 归 约 这 个 约 式 (在 两 步 内 ) 到 达 w ,但 按 值 调用 求 值 规则 不 允 
许 我 们 归 约 它 ,因为 它 是 一 个 lambda 抽象 。 
这 不 是 一 个 基本 问题 :由 scc el 的 求 值得 到 的 项 行为 等 价 于 w ,这 是 指 运用 它 到 任何 参数 
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序 对 v,w 产生 结果 与 运用 oo 到 v 和 w 的 结果 相同 。 剩 余 的 计算 使 得 验证 本 数 sce 的 行为 是 否 
如 我 们 期 望 的 那样 变 得 有 点 困难 。 对 于 更 复杂 的 算术 计算 ,情况 将 更 糟 。 比 如 ,times c c 求 
值 结 果 不 是 ,而 是 下 面 的 奇怪 结果 ; 


二 imeS C2 C2; 


* (〔《AS . 
AZ . 
(AS .AZ'. SS (sz')) s 
《CAS ' . 
AZ . 
(AS"，AzZ"”，5”(s”z"”)) 5S) 
《(AS"，AZ"”.z"”) S”Z7)) 
5S 
z)) 


一 种 验证 这 个 项 的 行为 是 否 等 同 于 o 的 方法 是 测试 它们 是 否 相 等 : 
equal c4 人 (times Cc2 c2); 
* (At ATf， tt) 
但 更 直接 的 方法 是 取 imes o o ,并 将 它 转 换 为 一 个 原始 数 ; 
reainat (times cz C2); 
ee 夺 ， 
这 个 转换 有 这 样 一 个 效果 :提供 times c o 所 需 的 两 个 额外 的 参数 ,促使 它 体 中 所 有 洪 在 的 计 
算 发 生 。 
递归 
回忆 一 下 ,一 个 在 求 值 关系 下 没有 下 ~- 步 的 项 称 为 一 个 范式 。 有 趣 的 是 , 某 些 项 不 能 求 值 
到 一 个 范式 。 比 如 , 发散 组 合式 ， 
Omega = (AX，X X) (AMX。X X); 
只 包含 一 个 约 式 ,并 且 归 约 这 个 约 式 将 产生 另 一 个 omega。 没 有 范式 的 项 称 为 发 散 的 。 
组 合式 omega 有 一 个 有 用 的 推广 , 称 为 不 动 点 组 合式 @, 这 个 组 合式 可 以 用 来 定义 像 
factorial 这 样 的 递归 函数 @， 
fix = Af. (AMx, 下 (AMy. XXYyY)) (AMx. 于 (AMy. xXXYyY)); 
如 同 omega, 组 合式 fx 有 一 个 重复 的 结构 ;只 根据 它 的 定义 很 难 理解 这 一 点 。 最 好 的 理解 办 
法 大 概 是 看 它 在 特殊 的 例子 上 如 何 运用 的 @。 假 定 我 们 要 写 一 个 形 为 h= 《包含 h 的 函数 体 > 的 弟 
归 函 数 定义 , 即 要 写 一 个 定义 ,其 中 = 右边 的 项 用 到 了 我 们 正在 定义 的 函数 ,如 $.1 节 中 factorial 的 
定义 。 目 的 是 递归 定义 应 该 在 它 出 现 的 某 一 点 上 展开 ; 比如 ,factorial 的 定义 直观 上 可 以 是 ; 





人 外 ”这 有 时 称 为 值 调用 Y 组 合式 。Plotkin(1975) 称 它 为 Z。 
@ ”注意 更 简单 的 按 名 调用 不 动 点 组 合式 ， 
Y=X.(Mx.fxx)y)COXx.f(xx)) 
在 按 值 调 用 的 形式 中 是 无 用 的 ,因为 对 任何 g, 表 达 式 Yg 发散。 
@ 也 可 能 从 第 一 原则 (Friedman 和 Felleisen,1996, 第 9 章 ) 中 导出 人 的 定义 ,但 这 样 的 导出 也 是 相当 复杂 的 。 
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if n=0 then 1 工 
else n w* (〔if n-~1l=0 then 工 
else (Cn-1) * (if (Cn-2)=0 then 工 
else (n-2) * ...)) 


或 借助 于 Chureh 数值 ; 


计 realeq n co then cl 
el1se times n (if realeq (prd n) co then cl 
e1se times (prd nm) 
(if realeq (Cprd (prd n7) co then ci 
else times (prd (prd n)) ...)) 


可 以 用 组 合式 fx, 首 先 定义 g= 对 《 含 了 的 函数 体 ) ,然后 定义 h= 你 g 来 达到 这 个 效果 。 比 如 ， 
我 们 能 定义 阶乘 函数 为 : 


g= Afct， An if realeqn co then cl elise (人 (times n (fct (prd n)77); 
factorial = fix 9; 


图 $.2 说 明 在 求 值 时 项 factorial o 将 发 生 什么 。 使 这 个 演算 起 作用 的 关键 事实 是 fct nm-> ”8g fet no 
即 fet 是 一 种 “自重 复 运算 符 ”, 当 它 运 用 到 一 个 参数 时 ,将 它 自 己 和 nm 作为 参数 提供 给 gs。 在 
的 第 一 个 参数 出 现在 g 的 体 中 时 ,我 们 将 得 到 fet 的 另 一 个 找 贝 ,对 于 这 个 拷贝 , 当 运 用 到 一 个 
参数 时 ,又 将 它 自己 和 这 个 参数 提供 给 g, 如 此 下 去 。 每 次 我 们 用 fet 做 一 个 递归 调用 ,将 展开 
g 体 的 更 多 拷贝 ,并 且 提 供给 它 fet 的 一 个 新 拷贝 ,而 这 个 新 拷贝 再 次 准备 展开 。 


factorial C3 
= fix 9 c3 
一 hh ci3 

其 中 h= AX. g (AMy. X X y) 
一 9 fct cs 

其 中 fct = Ay、h h y 
一 (An. if realeq n co0 

then Ci 
else times n (fct (Cprd n777 
C3 
一 ii realeq c3 co 
then cl 
e1se times c3 (〔fct (prd c377) 

一 ” times c3 (fct Cprd c3)7) 
一 times c3 (fct c2) 

其 中 c2 行为 等 价 于 C2 
一 ′ times cj (g fct c2) 
一 ” times c3 (times c2? (g fct cl17)) 

其 中 上 1 行为 等 价 于 Cl 

(重复 计算 9 fct c2) 
一 times c3 (times c? (times cl (9 fct c0)7) 


其 中 cb 行为 等 价 于 c0 
(类 似 ) 
一 ” times cj (times c? (times ci (if realeq c0 co then cl 
else ,，,.))) 
一 ” times c3 (人 (times c2? (times cl1 cl)) 
一 Cc6 
其 中 Cc6 行 为 等 价 于 C6 


图 5.2 factorial ww 的 求 值 过 程 
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S$.2.9 练习 [xj: 为 什么 在 的 定义 中 我 们 用 一 个 原 语 让 , 而 不 是 Church 布尔 式 上 的 
Church 布尔 函数 test? 证 明 如 何 用 test 而 不 是 让 定义 函数 factorial。 

5.2.10 练习 [xx]: 和 定义 一 个 函数 churchnat, 能 将 一 个 原始 自然 数 转 换 到 相应 的 Chureh 
数值 。 

S.2.11 练习 [推荐 ,**]: 用 fx 和 练习 (5.2.8) 中 列表 的 形式 写 出 一 个 函数 , 它 对 Chureh 
数值 列表 中 数值 求 和 。 


表示 
在 讨论 lambda 演算 的 形式 定义 之 前 ,我 们 应 当 考 虑 最 后 的 一 个 问题 是 : Chureh 数值 表示 
普通 自然 数 究 竟 意 味 着 什么 ? 


为 回答 这 个 问题 ,首先 需要 回忆 一 下 什么 是 普通 自然 数 。 有 几 种 (等 价 的 ) 方 法 定义 自然 
数 ;我 们 选择 的 方法 是 (参见 图 3.2) 定 义 自然 数 : 


e 一 个 常量 0 
e@ 一 个 将 自然 数 映射 到 布尔 值 的 运算 iszero 
e@ 两 个 运算 ,succ 和 pred ,将 自然 数 映射 到 自然 数 


算术 运算 的 行为 是 由 图 3.2 中 的 求 值 规则 所 定义 的 。 这 些 规则 告诉 我 们 ,比如 ,3 是 2 的 后 继 ， 
iszero 0 为 真 等 。 
自然 数 的 Chureh 编码 将 这 些 元 素 表 示 为 一 个 lambda 项 ( 即 一 个 函数 )， 


e 项 am 表示 自然 数 0。 
如 上 述 所 见 , 也 存在 自然 数 作为 项 的 “非典 型 表示 "。 比 如 ,Xs.)z.()Xx.x)z 的 行为 等 价 于 
co ,也 表示 0 。 

e 项 scc 和 prd 表示 算术 运算 suee 和 pred ,也 就 是 说 ,如 果 t 是 自然 数 na 的 一 个 表示 , 则 sec : 
求 值 为 n+ ! 的 一 个 表示 ,并 且 prd t 求 值 为 n- 1 的 一 个 表示 (或 者 0 的 表示 ,如 果 n 是 0)。 

e@ 项 iszro 表示 运算 iszer, 就 是 说 ,如 果 + 是 0 的 一 个 表示 , 则 iszo t 求 值 结果 为 mue ,如果 
t 表示 不 是 0 的 自然 数 , 则 iszm t 求 值 结果 为 false。 


名 之 ,假定 我 们 有 一 整个 程序 来 做 自然 数 的 复杂 计算 并 产生 一 个 布尔 结果 。 如 果 用 表示 : 
自然 数 和 运算 的 lambda 项 蔡 换 所 有 的 自然 数 和 运算 ,将 得 到 相同 的 结果 。 这 样 ,借助 于 它们 
对 程序 整个 结果 的 影响 ,在 真实 的 自然 数 和 它们 的 Chureh 数值 表示 之 间 没 有 很 明显 的 差别 。 


5.3 形式 性 


接 下 来 ,将 更 详细 地 考虑 lambda 演算 的 语法 和 操作 语义 。 我 们 需要 的 大 部 分 结构 类 似 于 
在 第 3 章 中 所 见 的 (为 避免 逐 字 重 复 这 个 结构 ,在 这 里 只 提 及 不 含 布尔 值 或 自然 数 的 纯 lambda 


演算 )。 然 而 ,用 一 个 项 代 换 一 个 变量 的 操作 存在 一 些 惊人 的 困难 。 


@ 严格 地 讲 ,如 我 们 所 定义 的 那样 ,iszero ! 求 值 为 mue 作为 另 一 个 项 的 一 个 表示 ,但 让 我 们 省 略 这 个 差别 以 简化 讨论 。 
类 似 地 ,可 以 解释 在 什么 意义 下 Chureh 布尔 式 表示 真实 的 布尔 值 。 


所 一 一 rr 
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语法 

如 在 第 3 章 中 一 样 ,定义 项 的 抽象 语法 应 当 看 做 是 一 个 归纳 定义 的 抽象 语法 树 集合 的 简 
写 形 式 。 

5.3.1 定义 [项 ]: 设 Y 是 一 个 变量 名 的 可 数 集合 。 项 的 集合 是 最 小 的 集合 T , 若 满足 ， 

1. 对 每 个 xEY ,xcT。 

2. 如 果 ue 开 并 且 xceY, 则 )x.beET。 

3. 如 果 beT 并且 beT , 则 bbe 开 。 


一 个 项 t 的 长 度 的 定义 与 定义 (3.3.2) 中 算术 表达 式 的 长 度 的 定义 相同 。 更 有 趣 的 是 ,我 
们 能 给 出 一 个 简单 归纳 来 定义 一 个 lambda 项 中 自由 变量 的 集合 。 


5.3.2 定义 :一 个 项 t 的 自由 变量 集合 , 记 为 Fy( ,定义 如 下 ; 


FV(X) = {X} 
FVWAx.tl) = FFVItIDNV TIX 
FV(tl t2) = TFTVItI)UEVIt2) 


S.3.3 练 避 [xx]: 给 出 详细 的 证 明 :对 每 个 项 t, IFY(DT< size 人 (tb。 


代 换 


仔细 想 想 会 发 现实 际 上 代 换 的 操作 是 非常 环 手 的 。 在 本 书 中 ,我 们 将 采用 两 个 不 同 的 定 
义 , 每 个 针对 不 同 的 目的 。 在 本 节 中 引入 的 第 一 个 定义 比较 紧 致 和 直观 ,适合 讨论 例子 以 及 数 
学 定义 和 证 明 。 在 第 6 章 中 引入 的 第 二 个 定义 ,符号 更 多 ,依赖 于 项 的 de Bmiin 表示 ,其 中 用 
数值 下 标 来 代替 命名 的 变量 ,但 这 个 定义 更 适合 在 以 后 章节 中 讨论 具体 的 ML 实现 。 
先 提 几 个 错误 的 代 换 想法 ,这 对 我 们 理解 代 换 是 有 启发 作用 的 。 首 先 ,给 出 最 初级 的 递归 
定义 (形式 地 ,定义 一 个 函数 [x Fr=~ s] ,对 它 的 参数 t 进行 归纳 ): 
[xm S]x 
[x 一 s]y y 
fx 一 sj]CAy.tl) Ay. [x 一 sjti 
[Xx 一 S](tl t2) ([x 一 S]tl) ([x 一 Stz) 
这 个 定义 对 大 部 分 例子 是 正确 的 。 比 如 , 它 给 出 : 
[xm (CAzZ. Zw)](Ay.x) =Ay.AZ.Zw 


这 与 我 们 关于 如 何 代 换 的 想法 是 一 致 的 。 但 如 果 不 仔 细 选 择 园 变 量 名 称 的 话 ,定义 就 不 正确 
了 了。 比如; 
[x 一 y]CAx.x) = Ax.y 

这 与 关于 函数 抽象 的 基本 想法 不 符 , 这 个 想法 是 : 园 变 量 的 命名 是 无 关 紧 要 的 ,尤其 当 我 们 用 
MXx.x,)y.y 了 或 Mfranz.franz 表示 恒 等 函数 时 是 一 致 的 。 如 果 它 们 在 代 换 下 的 行为 不 同 ,那么 它们 
将 在 归 约 下 的 行为 也 会 不 同 ,这 将 出 现 问题 。 

显然 ,在 代 换 的 初级 定义 中 犯 的 第 一 个 错误 是 我 们 没有 区 别 一 个 变量 x 在 一 个 项 + 中 的 
自由 出 现 (在 代 换 时 应 该 代 换 的 变量 ) 和 因 ( 受 界定 的 ) 出 现 (在 代 换 时 不 应 该 代 换 的 变量 )。 当 


S 
证 X=y 


人 直上 
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我 们 见 到 一 个 在 + 项 里 面 抽 象 绑 定 的 x, 代 换 操作 就 应 该 停止 。 这 产生 了 下 一 个 定义 ; 


[x 一 S]x = 5S 

[x 一 5jy = y 证 y 关 X 
1 Ay.tl ify = x 

[x”~ 5]CAy'tD) = 拉 [x ~ sj]ti 证 y >X 

[x 一 S]Ctitz) = ([x 一 sjtl) ([x 一 S]tz) 


这 个 定义 比 上 一 个 定义 好 ,但 仍然 不 是 正确 的 定义 。 比 如 ,考虑 在 项 Xz.x 中 用 项 z 代 换 变量 x 
时 ,将 有 : 
[x 一 Z]CAz.x) = AZ.Z 

这 次 ,我 们 犯 了 一 个 几乎 相反 的 错误 :将 常量 函数 iz.x 变 成 一 个 恒 等 函 数 。 这 种 情况 的 出 现 
是 因为 我 们 碰巧 选择 z 作为 常量 函数 中 辕 变 量 的 名 称 , 因 此 ,错误 出 现 了 。 

当 简单 地 代 换 一 个 项 s 到 一 个 项 b 在 项 s 中 自由 变量 变 成 受 界定 的 现象 称 为 变量 捕捉 。 
为 了 避免 这 种 现象 的 出 现 ,我们 需要 确保 t 的 受 界 定 变量 的 名 称 不 同 于 s 的 自由 变量 的 名 称 。 
正确 处 理 这 一 点 的 代 换 操作 称 为 避免 捕 握 代 换 ( 这 几乎 就 是 正确 * 代 换 ” 的 意思 )。 在 抽象 情况 
的 第 二 个 子 句 中 加 上 一 个 附加 条 件 ,就 能 得 到 所 需要 的 结果 


[x 一 S]x =”′S 
[x 一 S]y = yy 还 y :MX 
Ay. tl 让 y = x 
sy ea) 一 过 : [x- slti ify*xandyeFWS) 
[x 一 S](tit2) = ([x”~”sti)([x=~ sjtz) 


我 们 几乎 有 了 代 换 的 正确 定义 : 代 换 的 这 个 定义 在 它 做 任何 事情 都 是 对 的 。 问 题 是 最 后 的 方 
法 将 代 换 变 成 一 个 部 分 操作 。 比 如 ,新 定义 对 [x r~ y z](Xy. xy) 不 产生 任何 结果 :被 代 换 项 
的 园 变 量 y 不 等 于 x, 但 它 自由 出 现在 (y z) 中 ,因而 ,这 个 定义 中 没有 一 条 子 句 可 以 使 用 。 

在 类 型 系统 和 lambda 演算 的 文献 中 ,解决 这 个 问题 的 共同 办 法 是 假定 项 “在 团 变 量 的 重 
新 命名 下 "是 相同 的 (Church 用 术语 alpha 转化 表示 在 一 个 项 中 协调 地 重新 命名 一 个 固 变 量 的 
操作 。 这 个 术语 仍然 使 用 一 一 我 们 也 能 说 项 “在 alpha 转化 下 ?是 相同 的 )。 


5.3.4 约定 :只 是 围 变量 名 称 不 同 的 项 在 所 有 上 下 文中 可 交替 使 用 。 


实际 上 这 意味 着 任何 图 变量 的 名 称 在 方便 时 可 以 改变 成 另 一 个 名 称 ( 在 入 的 体 中 统一 
改变 )。 比 如 ,如 果 我 们 要 计算 [x r~y 中 (AMy, xy) ,首先 重 写 (0Xy、x y) ,比如 说 ,(Mw，x w)。 然 
后 计算 [x F~ yz](Aw. x w) ,得 出 (Xw， yzw)。 

这 个 约定 使 得 代 换 操作 “ 尽 可 能 好 ”, 因 为 只 要 当 我 们 发 现 要 运用 它 到 对 它 来 说 是 无 定义 
的 参数 时 ,如 有 必要 可 以 重新 命名 参数 ,使 得 附加 条 件 满 足 。 的 确 , 采用 这 个 约定 之 后 ,可 以 更 
加 简洁 地 形式 化 代 换 的 定义 。 抽 象 的 第 一 个 子 句 可 以 省 略 ,因为 我 们 总 是 假定 (如 有 必要 , 重 
新 命名 ) 关 变量 y 是 不 同 于 x 和 s 的 自由 变量 。 于 是 得 到 下 面 的 定义 形式 。 


S.3.5 定义 [ 代 换 ] : 

[X 一 S]X = 5 

[EX 一 S]y = y 逊 y 天 X 
[xs](CAy.tl) = Ay.[x=ms]ti 让 y:XxandyeFWSs) 


[x 一 S](ti t2) ([x 一 s]tl) ([x 一 sjtz) 
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操作 语义 
图 5.3 总 结 了 lambda 项 的 操作 语义 。 这 里 值 的 集合 比 在 算术 表达 式 中 的 情况 更 加 有 趣 。 
因为 ( 按 值 调用 ) 求 值 到 达 一 个 lampda 时 停止 ,所 以 得 出 的 值 可 以 是 任意 lambda 项 。 


澡 册 (Untyped 
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5.3 “无 类 型 lambda 演算 (入 ) 


求 值 关 系 出 现在 图 的 右边 一 列 中 。 如 同 在 算术 表达 式 的 求 值 三 样 ,这 里 也 有 两 种 规则 : 
计算 规则 E-AppAbs 和 同一 规则 E-Appl, 上 -App2。 

注意 在 这 些 规则 中 元 变量 的 选择 如 何 帮 助 控 制 求 值 的 次 序 。 因 为 m 可 取 任 何 值 ,规则 
E-AppAbs 的 左 端 可 匹配 任何 右 端 是 一 个 值 的 应 用 。 类 似 地 ;规则 玉 Appl 可 运用 于 任何 左 端 
不 是 一 个 值 的 应 用 ,因为 由 可 以 匹配 任何 项 ,而 前 提要 求 ,能 做 一 步 求 值 。 另 一 方面 , 玉 App2 
不 会 激活 ,除非 左 端 是 一 个 能 男 界 于 值 元 变量 v 的 值 。 总 之 ,这 些 规则 完全 确定 了 一 个 应 用 
tb 的 求 值 次 序 : 我 们 首先 用 屯 -Appl 归 约 b 到 一 个 值 ,然后 用 刁 App2 归 约 已 到 一 个 值 , 最 后 
用 E-Appabs 执行 应 用 本 身 。 

5s.3.6 练习 [xx*] :采用 这 些 规 则 来 描述 求 值 的 其 他 3 类 策略 :完全 beta 归 约 规范 序 和 懒 

惰 求 值 。 

注意 ,在 纯 lambda 演算 中 ,lambda 抽象 是 惟一 可 能 的 值 ,因此 ,如 果 我 们 到 达 这 样 一 个 状 
态 :E-Appl 成 功 地 将 bt 归 约 到 一 个 值 , 则 这 个 值 必 定 是 一 个 lambda 抽象 。 如 果 加 入 其 他 构造 
函数 ,如 原始 布尔 式 到 语言 中 ,这 个 结论 将 不 会 成 立 ,因为 这 些 构 造 引 入 的 值 不 是 抽象 形式 。 

5.3.7 练习 [xx 三 ] :练习 (3:5， 16) 中 给 出 了 布尔 式 和 算术 表达 式 的 操作 语义 的 另 一 种 表 

示 形 式 , 其 中 定义 受阻 项 使 求 值 结果 为 特殊 常量 wrongs 将 这 个 语义 扩展 到 和 ANB。 

5.3.8 ”练习 [xx];: 练 习 (4.2.2) 中 引入 了 算术 表达 式 求 值 的 “大 步 ? 形 式 ,其 中 基本 求 值 关 

系 是 “项 t 求 值 为 一 个 最 后 结果 v, 说 明 如 和 何在 大 步 形 式 中 形式 化 lambda 项 的 求 值 规则 。 


5.4 注释 


无 类 型 lambda 演算 是 'Churfch 和 他 的 同事 在 20 世纪 20 年 代 至 20 世纪 30 年 代 提 出 的 
(Church,1941)。 无 类 型 lambda 演算 的 标准 读物 是 Barendregt(1984) ; Hindley 和 Seldin(1986 ) 虽 
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然 并 不 全 面 , 但 容易 理解 。 在 “Handbook of Theoretical Computer Science "中 Barendregt( 1990) 的 文 
章 是 一 个 简单 的 综述 。lambda 演 算 方 面 的 资料 也 能 在 许多 函数 式 程序 语言 (如 Abelson 和 
Sussman, 198$; Friedman , Wand 和 Haynes ,2001; Peyton Jones 和 Lester, 1992) 和 程序 语言 语义 (如 
Schmidt 1986; Gunter, 1992; Winskel, 1993; Mitchell, 1996 ) 的 教材 中 找到 。Bahm 和 Berarducci 
(1985) 介 绍 了 一 个 编码 一 类 数据 结构 为 lambda 项 的 系统 方法 。 

尽管 如 此 ,Curr 否认 是 他 提出 的 cumying 想法 。 这 个 想法 通常 应 归 为 Sehinfinkel(1924 )， 
但 还 有 许多 19 世纪 的 数学 家 ,如 Frege 和 Cantor 等 。 


除了 作为 一 个 远 辑 来 使 用 之 外 ,这 个 系统 的 确 可 以 有 其 他 应 用 。 
Alonzo Church ,1932 











第 6 章 项 的 无 名 称 表 示 ” 


在 上 一 章 中 ,我 们 讨论 了 "在 男 变 量 重新 命名 下 ”的 项 ,引入 了 一 个 一 般 性 的 约定 : 园 变 量 
可 以 在 任何 时 候 重新 命名 以 保证 代 换 正确 或 因为 某 种 理由 一 个 新 的 名 称 更 适合 而 需要 这 样 
做 。 实 际 上 ,我 们 想 怎样 拼写 一 个 男 变 量 的 名 称 都 可 以 。 这 个 约定 在 讨论 基本 概念 和 表达 证 
明 时 是 可 以 的 ,但 在 构建 一 个 实现 时 需要 对 每 个 项 选择 单一 表示 ;特别 是 必须 决定 变量 的 出 现 
将 如 何 表示 。 这 里 有 几 种 方法 : 


1. 如 目前 为 止 所 做 的 一 样 ,我 们 能 以 符号 形式 表示 变量 ,但 不 用 考虑 转变 量 的 隐 式 重新 

命名 约定 ,而 采用 一 个 操作 ,为 避免 捕捉 ,在 必要 时 显 式 地 用 “新 ”的 名 称 蔡 代 园 变 量 。 

2. 我 们 能 用 符号 表示 变量 ,但 必须 引入 一 个 一 般 性 的 条 件 : 所 有 闫 变量 的 名 称 必 须 互 相 

不 同 ,还 要 不 同 于 我 们 可 能 用 到 的 任何 自由 变量 。 这 个 约定 (有 时 称 为 Barendregt 约 
定 ) 更 加 严格 ,因为 它 不 允许 在 任意 时 刻 “ 随 意 " 重 新 命名 。 然 而 , 它 在 代 换 (或 beta 归 
约 ) 下 不 稳定 :因为 代 换 会 复制 被 代 换 的 项 ,所 以 容易 构造 一 个 例子 , 它 的 代 换 结果 是 
一 个 项 , 且 项 中 某 个 入 抽象 有 相同 的 园 变 量 名 称 。 这 昔 涵 着 每 个 带 有 代 换 的 求 值 步 又 
.后 面 会 有 一 个 重新 命名 的 步骤 来 保存 不 变 式 。 

3. 设计 某 种 不 要 求 重新 命名 的 变量 和 项 的 “典型 "表示 方式 。 

4. 通过 引入 一 种 机 制 , 如 显 式 代 换 (Abadi,Cardelli ,Curien 和 LE&vy,1991a) 来 避免 一 次 代 换 。 

5. 通过 基于 组 合式 的 语言 ,如 组 合 逻 辑 (Cury 和 Feys,1985; Barendregt, 1984) (一 个 基于 组 

合式 而 不 是 基于 过 程 抽 象 的 lambda 演算 ) 或 Backus 的 函数 式 语言 FP(1978) ,来 避免 
变量 。 

每 个 方法 都 有 它 的 支持 者 ,如 何 选 择 它们 是 值得 推 的 问题 (在 严格 的 编译 器 实现 中 ,还 
要 考虑 性 能 问题 ,但 我 们 这 里 不 关心 这 一 点 )。 我 们 选择 第 3 个 ,因为 在 我 们 讨论 后 面 更 复杂 
的 实现 时 ,这 种 方法 更 容易 扩展 。 主 要 因为 当 它 实 现 错误 时 ,会 出 现 灾难 性 的 失败 而 不 是 难以 
察觉 的 失败 ,这样 错误 更 容易 被 发 现 并 及 时 改正 。 相 比 之 下 ,命名 变量 实现 中 出 现 的 错误 可 以 
在 它们 引信 之 后 的 几 个 月 或 几 年 中 也 不 被 发 现 。 我 们 的 形式 化 方法 采用 著名 的 Nicolas de 
Brmijn(1972) 技 术 。 


6.1 项 和 上 下 文 

de Bmuijn 的 想法 是 可 以 更 直接 地 表示 项 (如 果 有 任何 缺点 的 话 那 就 是 可 读 性 差 ) 将 变量 出 
现 直接 指向 它们 的 绑 定 器 ,而 不 是 按 名 称 引用 它们 。 这 能 用 自然 数 替 代 有 名 变量 来 实现 ,其 中 
数 k 表示 ”第 k 个 封闭 和 所 男 界 的 变量 *。 比 如 ,普通 项 jx.x 对 应 于 无 名 称 项 和 .0, 而 Xx.)y. 


中 ”本章 中 讨论 的 系统 是 纯 无 类 型 lambda 演算 ,和 (参见 图 5.3)。 相 关 的 OCaml 实现 是 flluntyped。 
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x(yg) 对 应 于 入 .和 .1(0 1)。 无 名 称 项 有 时 也 称 为 de Bmuijn 项 ,并 且 项 中 的 数值 变量 称 为 de 
Bruijn 索引 。 编 译 者 可 以 用 术语 “世态 距离 "表示 相同 概念 。 


6.1.1 练习 [*]: 对 每 个 下 面 的 组 合式 ， 


co = AS，AZ， Zi 

cC2 = 人 AS，AZ. S (S z)i 

plus = AMm。An。 AS，Az. ms (nz 5)) 

fix = Af，(AMX,. 下 (AMY，(x X) Y)) (AMX. 下 (AYyY. (xX xX) Yy)); 
foo = (AMX. (AMX，X)) (AX，X)7; 


写 出 相应 的 无 名 称 项 。 

形式 地 ,我 们 定义 无 名 称 项 的 语法 几乎 和 普通 项 的 语法 定义 (5.3.1) 一 样 。 惟 一 的 区 别 是 
我 们 需要 记 住 :每 个 项 可 能 含有 的 自由 变量 数目 ,以 区 别 没 有 自由 变量 项 的 集合 ( 称 为 0 项 ) 和 
至 多 含有 一 个 自由 变量 的 项 的 集合 (1 项 )。 


6.1.2 定义 [项 ]: 设 了 是 最 小 的 集 和 能 1T。,T , 工 : ,…| ,使 得 : 


1. 当 0<k< mn,kcT，。 
2. 如 果 HET。 并 且 m>0 则 入 .heET io 
3. 如 果 ke, 并 且 beT,. 则 (tb)eT。。 


注意 这 是 一 个 标准 的 归纳 定义 ,只 是 我 们 定义 的 是 自然 数 索引 的 集 秘 ,而 不 是 单个 集合 。 
每 个 了 ,的 元 素 称 为 上 项 。 


了 ,的 元 素 是 至 多 含有 z 个 自由 变量 的 项 ,标记 为 0,……,m - 1: 一 个 给 定 王 .的 元 素 不 一 定 
有 这 人 么 多 自由 变量 ,或 根本 不 含有 自由 变量 。 比 如 , 当 + 封 六 时 ,对 每 个 mw,t 都 可 以 是 天。 的 
元 素 。 

注意 每 个 (封闭 的 ) 普 通 项 只 有 一 个 de Bruijn 表示 ,两 个 普通 项 在 园 变 量 的 取 模 重新 命名 
下 是 等 价 的 , 当 且 仅 当 它们 有 相同 的 de Bruijn 表示 。 

为 了 处 理 含 自由 变量 的 项 ,需要 定义 一 个 命名 上 下 文 的 概念 。 比 如 ,假定 我 们 要 表示 )Xx. 
yx 为 一 个 无 名 称 项 。 我 们 知道 对 x 做 什么 ,但 不 知道 y 的 绑 定 器 ,因此 不 清楚 这 个 绑 定 器 可 
能 在 "多 远 的 ”地方 ,并 且 不 知道 指派 给 它 什 么 数 。 一 个 解决 方法 是 一 次 对 所 有 的 自由 变量 指 
派 一 个 de Bmuijn 索引 ( 称 为 一 个 命名 上 下 文 ) ,并 且 在 需要 选择 自由 变量 的 数 时 ,保持 一 致 地 使 
用 这 个 指派 。 比 如 ,假定 我 们 选择 在 下 面 的 命名 上 下 文中 工作 ; 

三 = X 一 4 
y=3 
Zm2 
aa 一 1 
b 一 0 
则 将 x(y z) 表 示 为 4(3 2) ,而 将 Xw.y w 表 示 为 入 40 且 和)w.)a.x 为 入 .入 .6。 
因为 变量 出 现在 下 中 的 次 序 决 定 它们 的 数值 索引 ,我 们 能 紧 致 地 将 它 表 示 成 一 个 序列 。 


0.1.3 定义 :假定 X0 到 nn 是 站 的 变量 名 称 。 命名 上 下 文 荆 = x， Xi -1 9 ”920 指派 每 个 


中 ”注意 读 法 :与 "de Bmuijn"” 第 2 个 发 音 相近 的 英语 单词 是 “brown”, 而 不 是 “broyn”。 
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xi ,一 个 de Bmuijn 索引 为 ji。 注意 序列 最 右边 的 变量 的 索引 为 0; 这 与 在 转换 一 个 命名 项 
到 无 名 称 形式 时 ,我 们 从 右 到 左 计数 入 界定 者 的 方法 是 一 致 的 。 用 dom(T) 表 示 在 工 中 提 
到 的 变量 名 称 的 集合 jx,，…z|。 


6.1.4 练习 [xxx 产 ] :用 定义 (3.2.3) 的 形式 给 出 ” 项 集合 的 构造 ,并 且 证 明 [ 如 同 在 命 

题 (3.,2.6) 中 那样 ] 它 与 上 面 的 构造 等 价 。 

6.1.S 练习 [推荐 ,*xx ] : 

1. 定义 一 个 函数 remornenamesr (t), 它 取 一 个 命名 上 下 文 FF 和 一 个 普通 项 t( 使 得 玉 (b 

.Sadom(D)) ,产生 相应 的 无 名 称 项 。 

2. 定义 一 个 函数 resiorenamesr(t) ,使 得 对 一 个 无 名 称 项 和 一 个 命名 上 下 文 工 ,产生 一 个 
普通 项 [ 为 此 ,应 “标示 "在 t 中 被 抽象 所 轿 界 的 变量 的 名 称 。 可 以 假设 在 下 中 的 和 名称 
是 两 两 不 同 的 ,并 且 变 量 名 称 的 集合 Y 是 有 序 的 ,这 样 就 可 以 说 “选择 没有 在 dom(T) 
中 出 现 的 第 一 个 变量 名 称 ”]。 

这 对 枯 数 应 该 具有 下 列 性 质 :对 任何 无 名 称 的 项 t; 

remzOUeramesr ( Jestorertamaesr(t)) =tt 

并 且 类 似 地 ,在 园 界 变量 的 重新 命名 下 ,对 任何 普通 项 t: 


restiorenanmaesn ( rermozenarmesr(t) ) = 二 


严格 地 讲 , 称 " 某 个 tET "是 没有 意义 的 ,我 们 总 需要 说 明 t 可 以 有 多 少 个 自由 变量 。 实 际 
上 ,通常 在 头脑 中 有 某 个 固定 的 命名 上 下 文 T; 我 们 还 会 滥用 记号 ,用 te 王 表示 te 开 ,, 其 中 
是 工 的 长 度 。 


6.2 移 位 和 代 换 


接 下 来 是 对 无 名 称 项 定义 一 个 代 换 操作 ([k -~- sjb。 为 此 ,我 们 需要 一 个 辅助 操作 , 称 为 
“ 移 位 ”, 它 将 一 个 项 中 的 自由 变量 的 索引 重新 编号 。 

当代 换 在 一 个 入 抽象 下 进行 ,比如 在 [1 一 s](.2)( 即 [x ~ )xs](Xy.x) ,假定 1 是 x 在 外 层 
上 下 文中 的 索引 ), 代 换 发 生 时 所 在 的 上 下 文 变 成 比 原先 多 一 个 变量 ;我 们 需要 增加 在 s 中 自 
由 变量 的 索引 使 得 它们 在 新 的 上 下 文中 仍然 引用 相同 的 名 称 。 但 需要 非常 小 心 :我 们 不 能 移 
位 s 中 的 每 个 变量 索引 一 个 单位 ,因为 这 也 将 s 中 的 畴 变 量 移 位 。 比 如 ,如 果 s = 2( 和 .0)( 即 s= 
z(Xw.w), 假 定 2 是 z 在 外 层 上 下 文中 的 索引 ) ,我 们 需要 移 位 这 个 2 而 不 是 0。 下 面 的 移 位 画 
数 采 用 一 个 " 截 " 参 数 。 来 控制 哪个 变量 应 该 移 位 。 从 0 开始 (意味 着 所 有 的 变量 都 要 移 位 )， 
移 位 函数 在 通过 一 个 绑 定 器 时 每 次 增加 1。 因 此 , 当 计算 人 (0 ,我 们 知道 项 + 是 来 自 于 原始 
人 中 * 个 绑 定 器 的 内 部 。 因 此 ,+ 中 所 有 标识 符 k, 当 k < ec 时 ,是 受 原 始 参数 圈 界 的 ,不 应 该 
移 位 。 而 当 k>= ec 时 ,kk 是 自由 的 ,可 以 移 位 。 


6.2.1 定义 [ 移 位 ] :一 个 项 t+ 在 截 “ 上 的 4 步 移 位 , 记 为 人 4(D ,定义 如 下 : 
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k 让 K <C 
d 一 
1 (k) 加 攻 认 K > c 
19(Ati) = A.idl(ti) 
td 人 titz) = 13(t) 1g(t2z) 
我 们 用 要 (t 表 示 相 (b。 


6.2.2 练习 [*]; 


1. 人 (入 .入 .1(0 2)) 等 于 什么 ? 
2. 个 2(X.0 IAA.0 12)) 等 于 什么 ? 


6.2.,3 练习 [xx 大 ] :证 明 如 果 + 是 一 个 半 项 , 则 位 ( 昌 是 一 个 (n+ dg) 项 。 


现在 我 们 准备 定义 代 换 算 子 [j ~ sjte 当 用 代 换 时 ,通常 对 上 下 文中 最 后 的 变量 ( 即 
j=0) 的 代 换 感 兴趣 ,因为 这 是 我 们 为 了 定义 beta 归 约 运算 所 需要 的 。 然 而 ,为 了 在 一 个 正好 
是 一 个 4 抽象 的 项 中 代 换 变量 0, 需 要 能 在 它 的 体内 代 换 索引 为 1 的 变量 数 。 这 样 , 代 换 的 定 
义 肯 定 对 任意 变量 也 成 立 。 


6.2.4 定义 [ 代 换 ]: 用 一 个 项 s 在 + 项 中 对 变量 数 j 的 代 换 , 记 为 [j -~ s]b 定 义 如 下 ， 


-sk -~ 闻 届 大 %j 

[一 sl](A:ti) = A. [+lirmiis)]ti 

[jj= sj(titz) = ([j= sj]tl [一 sjtz) 
6.2.5 练习 [*] :将 下 面 的 代 换 转换 为 无 名 称 形 式 ,假定 全 局 上 下 文 是 下 = a,b, 并 且 用 上 
面 的 定义 计算 它们 的 结果 。 答 案 是 否 对 应 于 5.3 节 中 普通 项 代 换 的 定义 ? 

1. fb ~ al (b (Ax.Ay.b77 





2. 由 一 a(Az.a)] (b (Ax.b)) 

3. [b 一 al] (Ab. ba) 

4. [fb al (Aa. b a) 
6.2.6 练习 [xx 产 ] :证 明 如 果 s 和 t+ 是 普 项 并 且 j<nm, 则 [j > sjt 是 一 个 项 。 
6.2.7 练习 [x 户 ] : 拿 出 一 张 纸 , 不 看 代 换 和 移 位 的 定义 ,默写 这 两 个 定义 。 


6.2.8 练习 [推荐 ,***]: 无 名 称 项 的 代 换 定义 应 该 与 普通 项 代 换 的 非 形式 定义 一 致 。 
( 切 需 要 什么 定理 来 严格 地 验证 这 个 对 应 ? (2) 证 明 它 。 


6.3 求 值 


为 了 定义 无 名 称 项 上 的 求 值 关 系 ,我 们 需要 改变 的 惟一 地 方 (因为 这 是 惟一 提起 变量 名 称 
的 地 方 ) 是 beta 归 约 规则 , 它 必 须 使 用 新 的 无 名 称 代 换 操作 。 

惟一 有 点 微妙 之 处 是 ,一 个 约 式 的 归 约 “用 尽 了 ”转变 量 : 当 我 们 将 (()x.t )w ) 归 约 为 
[x 一 吕 jJoe 时 , 团 变 量 x 在 这 个 过 程 中 消失 了 。 这 样 ,考虑 到 x 不 再 是 上 下 文 的 一 部 分 ,我 们 
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需要 重新 标记 代 换 后 的 变量 。 比 如 : 
(CA.102) (A.0) 一 0(CA.0O) 1I (not TI (A.0) 2) 
类 似 地 ,我 们 在 代 换 到 久之 前 需要 移 位 mm 中 的 变量 一 个 单位 ,因为 包 是 定义 在 一 个 比 ”更 大 
的 上 下 文中 的 。 考 虑 到 这 些 beta 归 约 规则 是 下 列 形式 : 
(Atiz)vz 一 11(0-1t1(vz)]tiz) (了 下 -AppAbs) 
其 他 规则 如 同 以 前 (参见 图 5.3)。 
6.3.1 练习 [*]: 我 们 是 否 需要 注意 在 这 个 规则 中 的 负 移 位 可 能 产生 包含 负 索 引 的 不 良 
形式 的 项 ? 
6.3.2 练习 [xxx]:de Brmuijn 原文 献 中 实际 上 提出 了 两 个 不 同 的 项 无 名 称 表 示 : 这 里 的 de 
Bruiin 索 引 , 它 * 从 里 到 外 ?计数 lambda 绑 定 器 ,以 及 de Bmiia 级, 它 “ 从 外 到 里 ”计数 lambda 
纤 定 器 。 比 如 ,项 x.(Xy.x)x 用 de Bmijn 索引 表示 为 和 ,( 和 .1 0)0 ,用 de Brmijn 级 表示 为 
和 . (和 .0 1)0。 精 确 地 定义 该 变 式 ,并 且 证 明 一 个 项 用 索引 和 级 的 表示 是 同 构 的 ( 即 一 个 能 
从 另 一 个 惟一 地 复原 )。 
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在 这 一 章 中 ,我 们 基于 第 4 章 中 算术 表达 式 的 解释 器 和 第 6 章 中 变量 绑 定 和 代 换 的 处 理 ， 
构造 无 类 型 lambda 演算 的 一 个 解释 器 。 

通过 直接 将 前 面 的 定义 翻译 到 OCaml ,就 可 以 得 到 无 类 型 lambda 演算 的 一 个 可 执行 的 求 
值 器 。 如 同 在 第 4 章 一 样 ,我 们 将 只 说 明 核 心算 法 ,忽略 词法 分 析 、 语 法 分 析 和 打印 等 问题 。 


7.1 项 和 上 下 文 
我 们 能 直接 转换 定义 (6.1.2) 得 到 -- 个 数据 类 型 来 表示 项 的 抽象 语法 树 ; 


type term = 
TmVvar of int 
| TmAbs of term 
| TmApp of term * term 
一 个 变量 的 表示 是 一 个 数 一 一 它 的 de Bmijn 索引 。 一 个 抽象 的 表示 只 带 有 一 个 表示 抽象 体 的 
于 项 。 一 个 应 用 携带 有 被 应 用 的 两 个 子 项 。 
实际 用 于 实现 中 的 定义 将 带 有 更 多 的 信息 。 首 先 ,如 同 以 前 ,用 记录 了 项 原来 位 置 的 类 型 
为 info 的 元 素来 注释 每 个 项 是 很 有 用 的 ,这 样 错误 打印 程序 可 以 引导 用 户 ( 或 自动 产生 用 户 文 
档 编 辑 器 ) 来 精确 定位 错误 出 现 的 地 方 。 


tyPe term 一 
Tmvar of info * int 
| TmAbs of info * terml 
| TmApp of info * term * term 
其 次 ,为 了 调试 ,在 每 个 变量 结 点 上 加 上 一 个 附加 的 数 作为 一 致 检查 是 很 有 帮助 的 。 约 定 第 二 
个 数 将 总 是 含有 变量 出 现 的 上 下 文 的 总 长 度 。 


type term = 
JTJmvar of info * int >* 1Tnt 

| TmApbs of info * term 

| TmApp of info >* term term 
当 一 个 变量 被 打印 ,我 们 将 验证 这 个 数 是 否 对 应 于 当前 上 下 文 的 实际 长 度 ;如 果 不 是 , 则 在 革 
处 委 掉 了 一 个 移 位 操作 。 

最 后 改进 的 工作 也 是 关于 打印 的 。 尽 管内 部 用 de Brmuijn 索引 表示 项 ,但 明显 这 不 是 呈现 

给 用 户 的 :我们 应 该 在 语法 分 析 时 将 普通 的 表示 转换 为 无 名 称 项 ,并 且 在 打印 时 转换 回 普通 的 
表示 。 这 样 做 没有 什么 难度 ,但 不 应 该 完全 不 加 思索 地 进行 (比如 ,对 变量 的 名 称 产生 完全 新 
鲜 的 符号 ) ,因为 打印 项 中 的 痪 变量 的 名 称 与 原来 程序 中 的 名 称 将 会 没有 任何 关系 。 为 此 ,可 
以 通过 用 一 个 字符 串 暗 示 曾 变量 的 名 称 来 注释 每 一 个 抽象 。 


中 ”本 章 主要 讨论 的 系统 是 纯 无 类 型 的 lambda 演算 (参见 图 5.3)。 相 关 的 实现 是 untyped。fnlluntyped 的 实现 包含 了 数 
和 布尔 值 等 扩展 。 
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type term = 
TmVvar of info * int * int 
| TmAbs of info * String * 上 term 
1 TmApp of info * term * 七 erm 


项 上 的 基本 操作 (特别 是 代 换 ) 与 这 些 字符 串 没 有 任何 关系 :它们 只 是 出 现在 原来 的 形式 中 ,不 
需要 进行 名 称 冲突 .捕捉 等 检查 。 当 打印 程序 需要 生成 一 个 园 变 量 的 一 个 新 名 称 时 , 它 首先 企 
图 用 所 提供 的 暗示 ;如 果 这 与 在 当前 上 下 文中 已 经 使 用 的 名 称 冲 突 , 它 试 着 用 类 似 的 名 称 , 增 
加 质数 直到 找到 当前 没有 被 使 用 的 名 称 为 止 。 这 确保 了 打印 的 项 , 取 几 个 质数 的 模 后 仍 能 接 
近 用 户 所 期 望 的 。 
打印 程序 本 身 看 起 来 像 这 样 : 
Tet rec printtm ctx 丰 = match t with 


TmAbs(Cfi,x,t1) 一 
1et (ctx',X') = pickfreshname ctx X in 


pr "KClambda "; pr x"; pr "."; printtm CtxX” tl;i pr "7)” 
| TmApp(Cfi，t1l1，t2) 一 
pr  "("， printtm ctX tl; pr "“"; printtm CtXx t2; Pr “)” 


| Tmvar(Cfi ,x,n) 一 
if ctxiength ctx = n then 
pr (indexz2name fj Ctx XI 
e1se 
pr  "[bad index]" 
采用 数据 类 型 context; 
type context = (〈《Sstring * binding) 1ist 
是 一 个 字符 串 和 相关 的 binding 列 。 目 前 , 绑 定 本 身 完全 是 平凡 的 : 
type binding = NameBind 
不 带 有 任何 有 意义 的 信息 。 以 后 (在 第 10 章 中 ) ,我 们 将 引入 绑 定 类 型 的 其 他 子 句 来 找到 与 变 
量 相关 的 类 型 假设 和 其 他 类 似 信息 。 
打印 函数 也 依赖 于 几 个 低级 晒 数 :pr 将 一 个 串 发 送 给 标准 的 输出 流 ; cbdength 返回 一 个 上 
下 文 的 长 度 ;index2name 从 变量 的 索引 中 查找 变量 的 串 名 称 。 最 有 趣 的 函数 是 piekfreshname， 
它 取 一 个 上 下 文 etk 和 一 个 串 瞳 示 x, 找 类 似 于 x 的 名 称 冯 ,使 得 x 设 有 列 在 et 中 ,将 x 加 入 到 
ctkx 形成 一 个 新 的 上 下 文 ete' ,并 且 作 为 一 个 序 对 返回 ctx' 和 x。 
在 本 书 网 站 提供 的 untyped 实现 中 找到 的 打印 函数 比 起 这 个 更 加 复杂 ,主要 考虑 到 两 个 问 
题 ;首先 , 它 尽 可 能 地 不 注意 括号 ,根据 约定 应 用 为 左 结合 并 且 抽 象 体 尽 可 能 地 扩展 到 右边 。 
其 次 , 它 产生 低层 美化 打印 模块 的 格式 指令 (0Caml Format 库 ) 来 决定 断 行 和 缩 进 。 


7.2 移 位 和 代 换 
移 位 的 定义 (6.2.1) 几 乎 可 以 逐个 符号 地 翻译 为 OCaml; 


et termshift dt = 
let rec walk ct = match t with 
Tmvarkfi ,xn) 一 if x>=Cc then TmVarCfi ,x+dn+gd) 
else TmVvar(Cfi ,Xx,n+d) 
| TmAbs(Cfi,x,tl1) 一 TmAbs(CfT1，X，Walk 〔(c+1》 tl1) 
| TmAppCfi,tl,t2) 一 TmAppCfi，walk c tL，walk c t2) 
in walk 0 七 
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这 里 ,用 内 层 函 数 walk c t 来 表示 内 部 移 位 位 (bD。 因 为 d 不 会 改变 ,不 需要 每 次 调用 walk 时 
单独 传递 :在 walk 的 变量 情况 中 , 当 需 要 它 时 才 用 到 d 的 外 层 绑 定 。 用 termshift dt 表示 最 高 
层 移 位 位 (t( 注 意 temmShif 本 身 不 标记 为 recursive, 因为 它 仅 调用 walk 一 次 )。 

类 似 地 , 代 换 函数 几乎 直接 由 定义 (6.2.4) 转 化 而 来 : 

1et termSubst j st = 
let rec walk c 七 = match 七 with 
TmVar(Cfi,x,n) 一 计 x=j+c then termShift c s else TmvarCfi,x,nm) 

| TmAbs(fi,x,tl) 一 TnmAbs(fi，x，walk (c+1) tl1) 

| TmApp(Cfi,tl,t2) 一 TmApp(f1，walk c t1，walk c t2) 

in walk 0 上 上 
这 里 ,在 项 中 用 项 s 对 标号 为 j 的 变量 代 换 [j r~ sjb 记 为 termSubst j s t。 与 原来 代 换 定义 的 
惟一 差别 是 ,这 里 在 Tmvar 情况 下 一 次 做 s 的 所 有 移 位 ,而 不 是 每 次 遇 到 一 个 绑 定 器 时 移 位 s 
一 个 单位 。 这 意味 着 参数 j 在 每 次 对 walk 的 调用 中 都 是 相同 的 ,并 且 我 们 能 在 内 层 的 定义 中 
忽略 它 。 

读者 可 能 注意 到 了 termShift 和 temmSubst 的 定义 是 非常 类 似 的 ,只 是 在 到 达 一 个 变量 时 的 
动作 不 同 。 在 本 书 网 站 上 的 untyped 实现 探讨 了 这 个 现象 ,将 移 位 和 代 换 操作 表示 为 一 个 称 为 
timmap 的 更 一 般 函 数 的 特殊 情况 。 给 定 一 个 项 和 一 个 函数 onvar,tmmap onvar t 的 结果 是 一 个 
形式 与 1 相同 的 项 ,其 中 每 个 变量 用 调用 onvar 在 变量 上 的 结果 替代 。 这 个 符号 表示 技巧 在 更 
复杂 的 演算 中 可 以 省 去 许多 重复 ;25.2 节 将 更 详细 地 讨论 这 一 点 。 

在 lambda 演算 的 操作 语义 中 ,用 到 代 换 的 惟一 地 方 是 在 beta 归 约 规则 中 。 如 我 们 以 前 注 
意 的 那样 ,这 个 规则 实际 上 执行 几 个 操作 :对 轩 变 量 所 代 换 的 项 首先 被 上 移 位 一 个 单位 ,然后 
做 代 换 ,再 将 整个 结果 下 移 位 一 个 单位 来 说 明 冰 变量 已 经 用 完 。 下 面 的 定义 将 这 一 系列 的 步 
又 封装 为 : ， 


1et termSubstTop S 七 = 
termsShift (-1) (termSubst 0 (termShift 1 S) t) 


7.3 求 值 


如 在 第 3 章 中 , 求 值 函数 依赖 于 一个 辅助 谓词 isval: 


let rec isval ctx t = match tt with 
TmAbs(_,_， ) 一 true 
| -~- 一 false 


单 步 求 值 函 数 是 求 值 规则 的 一 个 直接 副本 ,除了 将 上 下 文 et 与 该 项 一 起 传递 。 这 个 参数 在 
当前 的 evall 函数 中 没有 用 上 ,但 在 以 后 更 复杂 的 求 值 器 会 用 到 它 。 


let rec evall ctx 七 = fatch t with 
TmApp(fi ,TnmAbs(_,X,tl2),v2) when jsval ctXx V2 一 
termSubstTop v2 tl12 
| TmAppKCfi,v1,t2) when isval ctx vIL 一 
let t2” = evall ctx t2 in 
TmApp(fT1，v1，t2”) 
上 TmApp(Cfi ,tlL,t2) 一 
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let tl = evall ctx tl in 
TmApp(fi1，tl' ，t2) 


raise NoRu1eApp1ies 


多 步 求 值 函数 与 以 前 相同 ,除了 etx 的 参数 : 
]et rec eval cftx 七 = 
try let t” = evall ctX 七 
in eval ctX 雯 " 
with NoRuU1eAppP1ies 一 七 


7.3.1 练习 [推荐 ,*xx 六] ;用 在 练习 (5.3.8) 中 引入 的 大 步 形式 的 求 值 来 改变 这 个 实现 。 


7.4 注释 


本 章 对 代 换 的 处 理 , 尽 管 对 本 书 来 说 足够 了 ,但 远 不 是 最 终 的 方案 。 特 别 地 ,在 我 们 这 个 
求 值 器 中 的 beta 归 约 规则 ”急切 ”用 参数 值 代 换 函数 体 中 的 固 变 量 。 为 了 速度 而 不 是 为 了 简 
单 性 的 函数 式 语言 的 解释 器 (和 编译 器 ) 采 用 不 同 的 策略 ;不 是 实际 执行 代 换 ,而 只 是 在 一 个 称 
为 environment 的 辅助 数据 结构 中 记录 园 变 量 名称 和 变量 值 之 间 的 关联 ,这 个 环境 与 被 求 值 的 
项 一 同 存在 。 当 到 达 一 个 变量 时 ,在 当前 环境 中 寻找 它 的 值 。 这 个 策略 可 以 模型 化 为 将 环境 
看 做 是 一 种 显 式 代 换 一 一 即将 代 换 的 机 制 从 元 语言 移 到 对 象 语言 中 ,使 它 成 为 求 值 器 所 处 理 
的 项 的 语法 的 一 部 分 ,而 不 是 项 上 的 一 个 外 部 操作 。Abadi, Cardelli ,Curien 和 LEvy (1991a) 首 先 
研究 显 式 代 换 ,并 从 此 成 为 一 个 活跃 的 研究 领域 。 


只 因为 实现 了 某 件 事 情 并 不 意味 着 理解 了 这 件 事 情 。 
一 一 Brian Cantwell Smith 
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在 第 3 章 中 ,我 们 用 含 布尔 值 和 算术 表达 式 的 一 个 简单 语言 介绍 了 精确 描述 语法 和 求 值 
的 基本 工具 。 现 在 回 到 这 个 简单 的 语言 ,并 加 入 静态 类 型 。 类 型 系统 本 身 几 乎 是 平凡 的 ,但 它 
提供 了 一 个 可 以 引入 本 书 将 重复 提 到 的 概念 的 环境 。 


8.1 类 型 
回忆 一 下 算术 表达 式 的 语法 : 

七 := 项 ， 
true 常量 真 
false 常量 假 
iftthentelset 条 件 式 
0 常量 零 
succt 后 继 
predt 前 驱 
1Szero 上 零 测 试 

我 们 在 第 3 章 中 看 到 求 值 一 个 项 的 结果 ,要么 是 一 个 值 : 
V := 值 : 
true 真 值 
false 假 值 
nv 数值 
nv := 数值 
0 零 值 
succ nv 后 继 值 


要 么 在 某 步 受阻 , 即 到 达 一 个 像 pred false 这 样 的 项 ,对 这 个 项 没有 求 值 规则 可 使 用 。 

受阻 项 对 应 着 无 意义 或 错误 的 程序 。 我 们 因此 希望 能 够 在 没有 实际 求 值 一 个 项 之 前 知道 
求 值 将 不 会 受阻 。 为 此 ,需要 能 够 区 别 结果 是 一 个 数值 的 项 (因为 只 有 它们 能 作为 pred,suce， 
ijszero 的 参数 ) 和 结果 是 一 个 布尔 值 的 项 (只 有 它们 能 作为 一 个 条 件 式 的 条 件 )。 我 们 引入 两 个 
类 型 ,Nat 和 Bool 来 区 分 这 些 项 。 在 本 书 中 将 用 元 变量 S,T,U 等 来 表示 类 型 。 

称 “ 一 个 项 + 有 类 型 下 (或 属 于 他 ,或 对 是 了 的 一 个 元 素 ") 是 指 攻 明显 ? 求 值 为 适当 形 
式 的 值 一 一 这 里 的 “明显 ?是 指 我 们 不 需要 对 t 做 求 值 就 能 静态 地 看 到 它 的 值 类 型 。 比 如 ,项 站 
true then false else tmue 为 类 型 Bool ,而 pred(succ(pred(suce 0) ) ) 为 类 型 Nat。 尽管 如 此 ,项 的 类 
型 分 析 仍 是 保守 的 ,因为 只 用 到 了 静态 信息 。 这 就 意味 着 我 们 不 能 下 结论 :有 些 项 如 if(iszero 
0) then 0 else false 或 if tmue then 0 else false 总 会 有 类 型 ,尽管 它们 的 求 值 不 会 受阻 。 


@ ”本 章 中 讨论 的 系统 是 布尔 值 和 数 的 类 型 演算 (参见 图 8.2)。 相 应 的 OCaml 实现 是 yarith。 
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8.2 类 型 关系 


算术 表达 式 的 类 型 关系 , 记 为 t:TE ,定义 为 一 个 指派 类 型 到 项 的 推导 规则 的 集合 ,图 8.1 
和 图 8.2 是 有 关于 规则 的 介绍 。 如 同 在 第 3 章 一 样 ,我 们 在 两 个 不 同 的 图 中 给 出 布尔 值 的 规 
则 和 数 的 规则 ,因为 以 后 将 要 分 别 引用 它们 。 














B ( 关 区 的 ) 扩展 B (3.7) 
新 语法 形 新 类 型 规则 
团 := 类 型 : aaa 对 
B561 布尔 类 型 。 ， 
(T-FALSE) 
(T-IP) 
图 8.1 布尔 (B) 类 型 规则 
B N ( 浅 型 的》 扩展 NB (3.2) 和 8.1 
新 句法 形式 、 
下 TS 类 型 : : (TSUcC) 
RE 自然 数 类 型 
oO5Nat (CT-ZERO) 





图 8.2 数 (NB) 的 类 型 规则 


图 8.1 中 的 规则 TTme 和 了 False 指派 类 型 Bool 给 布尔 常量 tue 和 fase。 规 则 工 正 基 于 它 
的 子 表达 式 的 类 型 指派 一 个 类 型 到 一 个 条 件 表 达 式 :条件 必须 求 值 为 一 个 布尔 值 ,而 唱和 
6 必须 求 值 为 相同 类 型 的 值 。 两 次 使 用 单个 元 变量 T 表 示 : 让 的 结果 是 then 和 else 分 支 的 类 
型 ,上 且 可 以 是 任何 类 型 [要 么 是 Nat, 要 么 是 Bool, 要 么 ( 当 我 们 考虑 其 他 更 有 意义 的 演算 时 ) 可 
以 是 其 他 类 型 ]。 

8.2 中 数 的 规则 有 一 个 相似 的 形式 。TZero 指派 类 型 .Nat 到 常量 0。 只 要 + 有 类 型 
Nat,T-Succ 就 给 项 succ t 指派 类 型 Nat。 同 样 ,TPred 和 T-ISZero 说 明 pred 的 参数 有 类 型 Nat 
时 就 产生 一 个 Nat ,并且 iszero 的 参数 有 类 型 Nat 时 就 产生 一 个 Bool。 


8.2.1， 定 义 :形式 地 ,算术 表达 式 的 类 型 关系 是 项 和 类 型 之 间 的 最 小 二 元 关系 , 它 满足 
图 8.1 和 图 8.2 中 所 有 规则 的 实例 。 则 称 , 如 果 存 在 某 个 T 使 得 t:T 一 个 项 + 是 可 类 型 化 
的 (或 良 类 型 的 )。 


@ 常常 采用 符号 e ,而 不 是 “:"。 
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当 对 类 型 关系 进行 推理 时 ,我 们 将 常常 这 样 认 为 “如果 一 个 形 为 suec un 的 项 是 有 类 理 
的 , 则 它 的 类 型 为 Naf"。 下 面 的 引 理 给 出 这 个 说 法 的 一 个 网 要, 直接 由 相应 类 型 规则 的 形式 
得 到 。 
8.2.2 引 理 [类 型 关系 的 逆转 引 理 ]: 
. 如 果 tme:R, 则 R = Bool。 
. 如 果 false:R, 则 R = Bool。 
. 如 果 让 ti then b else b:R, 则 ft :Bool,b:R 并 且 晶 :R。 
. 如 果 0:R, 则 R=Nat 。 
. 如 果 sucet :R, 则 R= Nat 并 且 :Nat。 
,如果 pred nb :R, 则 R= Nat 并 且 6 :Nat。 
. 如 果 iszerob :R, 则 R = Bool 并 且 电 :Nat。 


证 明 ; 直 接 由 类 型 关系 的 定义 得 到 。 


逆转 引 理 有 时 称 为 类 型 关系 的 产生 引 理 , 因 为 ,给 定 一 个 有 效 的 类 型 语句 , 它 说 明 这 个 逆 
转 的 证 明 可 以 如 何 产生 。 逆 转 引 理 直 接 导出 一 个 计算 项 的 类 型 的 递归 算法 ,因为 它 告诉 我 们 ， 
对 每 个 语法 形式 的 项 ,如 何 由 它 的 子 项 类 型 计算 出 它 的 类 型 (如 果 它 有 一 个 类 型 的 话 )。 我 们 
将 在 第 9 章 中 详细 讨论 这 一 点 。 


8.2.3 练习 [* 大 ] :证 明 一 个 良 类 型 项 的 每 个 子 项 是 良 类 型 的 。 


在 3.5 节 中 引入 了 求 值 推导 的 概念 。 类 似 地 ,一 个 类 型 推导 是 一 个 类 型 规则 的 实例 所 组 
成 的 树 。 在 类 型 关系 中 每 个 序 对 (t, IT) 用 带 结 论 t:T 的 一 个 类 型 推导 来 判断 。 比 如 ,下 面 是 类 
型 语句 if iszero 0 then 0 else pred 0:Nat 的 推导 树 : 


~ SG 修 PP D 一 











T-ZERO T-ZERO 
0 : Nat 0 : Nat 
一 一 一 一 TISZERO T-ZERO 一 一 一 一 TPREFD 
1szero 0 : Boo1 0 : Nat pred 0 : Nat 
一 了 工 


if iszero 0then0elsepred0 : Nat 


换言之 ,语句 是 关于 程序 类 型 的 形式 断言 ,类 型 规则 是 语句 之 间 的 芍 涵 关系 ,推导 是 基于 
类 型 规则 的 演绎 。 


8.2.4 ”定理 [类 型 的 惟一 性 ] :每 个 项 + 至 多 有 一 个 类 型 。 即 如 果 t 是 可 类 型 化 的 , 则 它 的 
类 型 是 惟一 的 。 此 外 ,根据 图 8.1 和 图 8.2 中 的 推导 规则 只 存在 一 个 此 类 型 的 推导 方式 。 


证 明 : 直 接 对 t+ 做 结构 归纳 ,对 每 个 情况 利用 逆转 引 理 中 的 适当 子 句 ( 加 上 归纳 根 设 )。 


在 这 一 章 简单 类 型 系统 的 讨论 中 ,每 个 项 有 一 单个 类 型 (如 果 它 有 类 型 的 话 ) ,并且 只 有 一 
个 推导 树 来 验证 这 个 事实 。 以 后 (比如 ,在 第 15 章 中 讨论 带子 类 型 的 类 型 系统 时 ) 这 些 性 质 将 
不 再 满足 :单个 项 可 以 有 多 个 类 型 ,并 且 一 般 可 以 有 多 种 方法 可 以 推导 出 一 个 给 定 的 项 有 一 个 
给 定 的 类 型 。 

类 型 关系 的 性 质 常 常用 对 推导 树 做 归纳 来 证 明 ,就 像 求 值 关 系 的 性 质 常 常用 对 求 值 推导 
做 归纳 来 证 明 一 样 。 从 下 一 季 开 始 ,我 们 将 看 到 许多 对 类 型 推导 做 归纳 的 例子 。 
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8.3 安全 性 = 进展 + 保持 


一 个 类 型 系统 的 最 基本 性 质 的 状态 是 安全 性 (也 称 为 可 靠 性 ) : 良 类 型 项 不 会 < 出错”。 我 
们 已 经 知道 如 何 形式 化 一 个 项 出 错 的 状态 : 它 意味 着 到 达 了 一 个 “受阻 状态 [定义 (3.5.15)] ， 
并 不 意味 着 这 时 为 一 个 最 后 值 ,而 是 求 值 规则 不 能 告诉 我 们 下 一 步 做 什么 。 我 们 所 要 知道 的 
是 良 类 型 项 不 会 受阻 。 用 两 个 步骤 来 证 明 这 一 点 ,这 两 个 步骤 常常 称 为 进展 和 保持 定理 中。 

进展 :一 个 良 类 型 项 不 会 受阻 (要 人 么 它 是 一 个 值 , 要 么 它 根据 求 值 规则 做 下 一 步 )。 

保持 :如 果 一 个 良 类 型 项 做 一 步 求 值 , 则 所 得 到 的 项 也 是 良 类 型 的 @。 

这 些 性 质 告 诉 我 们 一 个 良 类 型 的 项 在 求 值 过 程 中 不 会 到 达 一 个 受阻 状态 。 

为 了 证 明 进 展 定 理 , 先 说 明 几 个 关于 类 型 Bool 和 Nat 可 能 的 典型 形式 ( 即 这些 类 型 的 良 类 

型 值 ) 。 


8.3.1 引 理 [典型 形式 ] : 


1. 如 果 v 是 类 型 为 Bool 的 一 个 值 , 则 * 要 么 为 tue 要 么 为 false。 

2. 如 果 v 是 类 型 为 Nat 的 一 个 值 , 则 根据 图 3.2 中 的 文法 ,v 是 一 个 数值 。 

证 明 : 对 部 分 (1) ,根据 图 3.1 和 图 3.2 中 的 语法 ,这 个 语言 中 的 值 能 有 4 种 形式 :tme， 
false,0 和 succ nv, 其 中 nv 是 一 个 数值 。 前 两 个 情况 直接 得 到 所 需要 的 结果 。 后 两 个 情况 
不 会 出 现 ,因为 我 们 假设 v 有 类 型 Bool, 并 且 北 转 引 理 的 情况 4 和 情况 $ 告诉 我 们 0 和 
succ ny 能 有 惟一 的 类 型 Nat, 而 不 是 Bool。 部 分 (2) 也 是 类 似 的 。 


8.3.2 ”定理 [进展 ] :假定 t 是 一 个 良 类 型 的 项 ( 即 对 某 个 T, 有 t:T)。 则 要 么 上 是 一 个 值 ， 
要 么 存在 某 个 飞 使 得 tt 一。 
证 明 : 对 t:T 的 一 个 推导 做 归纳 证 明 。 开 Tme,T-False 和 TIszZeno 情况 下 结论 是 直接 得 到 
的 ,因为 在 这 些 情 况 中 t 是 一 个 值 。 对 于 其 他 情况 ,分别 讨论 如 下 : 

情况 T-IF: t= ifti thent2z elset3 

tl : Boo1] 七 2 : 下 t3 : 工 

由 归纳 假设 ,要 么 6 是 一 个 值 , 要 么 存在 某 个 世 使 得 6-> 攻 。 如 果 4 是 一 个 值 , 则 典型 形 
式 引 理 (8.3.1) 确 定 它 必 然 是 true 或 是 false, 在 这 种 情况 下 ,E-IHrrmue 或 已 HFalse 可 应 用 于 
t。 另 一 方面 ,如 果 1ff , 则 由 了 Itt 一 iftf thenb elsebh。 

情况 T-SUcc: 蒋 = Succ ti tl : Nat 
由 归纳 假设 ,要 么 是 一 个 值 , 要 人 么 存在 某 个 症 使 得 1。 如 果 是 一 个 值 , 则 由 典 
型 形式 引 理 , 它 必然 是 一 个 数值 ,因此 + 也 是 一 个 数值 。 另 一 方面 ,如 果 了 -> 刀 则 由 E-Succ， 


Succ 和 一 Succ ft 。 


@ 标语 “安全 性 是 进展 加 保持 “利用 一 个 典型 形式 引 理 ) 是 Hamper 明确 提出 的 ; Wright 和 Feleisen(1994) 提 出 一 个 类 似 
的 说 法 。 

@ 在 我 们 讨论 的 大 部 分 类 型 系统 中 , 求 值 不 仅 保持 良 定性 ,同时 也 保持 项 的 类 型 。 而 在 某 些 系统 中 ,类 型 在 求 值 期 间 
是 可 以 改变 的 。 比 如 ,在 带子 类 型 的 系统 (参见 第 15 章 ) 中 ,类 型 在 求 值 期 间 可 以 变 得 越 来 越 小 (具有 更 多 信息 )。 











62 类 型 和 程序 设计 语言 


情况 T-PRED: 古 =pred tl tl : Nat 
由 归纳 假设 ,要 么 8 是 一 个 值 ,要 么 存在 某 个 二 使 得 二。 如 果 忆 是 一 个 值 , 则 由 典型 形 
式 引 理 , 它 必 然 是 一 个 数值 , 即 要 么 是 0, 要么 对 某 个 nv 是 suce nv, ,并 且 规 则 马 PredZero 或 
已 PredSucc 可 应 用 于 t。 另 一 方面 ,如 果 0 一 二, 则 由 了 Pred,pred tt 一 pred 妇 。 

情况 T-ISZERO: tt 上 = iszero tl tl : Nat 
与 前 类 似 。 
类 型 在 求 值 下 保持 的 证 明 对 这 个 系统 也 可 直接 得 到 。 
8.3.3 定理 [保持 ] :如果 t:T 并 且 t->tf, 则 :T。 
证 明 : 对 t:T 的 一 个 推导 做 归纳 证 明 。 在 归纳 的 每 一 步 ,我 们 假定 所 需要 证 明 的 性 质 对 所 有 
子 推导 成 立 ( 即 ,如 果 s:S 并 且 ss', 则 只 要 由 当前 的 一 个 子 推导 证 明 出 s:S, 就 有 s':S) , 接 
下 来 对 推导 中 的 最 后 规则 做 情况 分 析 ( 我 们 只 证 明 其 中 几 个 情况 ,其 他 是 类 似 的 )。 

情况 TTRUE: t=true  T=Bool 
如 果 在 推导 中 的 最 后 规则 是 TTre, 则 由 这 个 规则 的 形式 知道 :t 必然 是 一 个 常量 tue, 并 
且 了 是 Bool。 但 + 是 一 个 值 ,所 以 不 可 能 存在 某 个 Y 使 得 tt, 并 且 如 果 是 这 种 情况 , 定 
理 就 训 无 意义 了 。 

情况 T-IF: t 上 = iftithentzelseta tl :Bool tz:T tas:T 
如 果 在 推导 中 的 最 后 规则 是 TIf, 则 由 这 个 规则 的 形式 知道 ;必然 对 某 些 b yb 和 by,t 必 有 
形式 让 bb then b else 8。 也 必然 有 含 结 论 :Boolb:T 和 bb:T 的 子 推导 。 现 在 ,看 一 下 
(参见 图 3.1) 左 端 带 主 的 求 值 规则 ,发现 有 3 个 规则 使 得 4 ->Y 是 可 推导 的 :E-HTrue,E-T 
False 和 FE-If。 我 们 分 别 考虑 每 种 情况 (省 略 情况 E-IfFalse, 它 与 Etfrme 类 似 )。 

子 情况 EIFTRUE: tl=true tt=t2 
如 果 tt 用 EITme 可 推导 , 则 由 这 个 规则 的 形式 可 以 知道 ,必然 是 tue, 并 且 结 果 项 
是 第 二 子 表 达 式 bp。 这 样 就 得 证 了 ,因为 我 们 知道 :IT( 由 情况 TE 的 假设 ) ,这 正 是 我 
们 需要 证 明 的 。 

子 情况 E-IF: tl 一 tl ft=iftithentzelset3 
由 情况 THE 的 假设 ,有 一 个 原来 结论 为 :Bool 的 类 型 推导 的 子 推 导 。 我 们 能 运用 归纳 假 
设 到 这 个 子 推导 ,得 到 剖 :Bool。 将 这 一 点 与 (由 情况 T-E 的 假设 )b:T 和 日 :T 事 实 结合 ， 
我 们 能 用 规则 THf 得 出 if then b elseb:T, 即 中:T。 

情况 T-ZEROo: 上 t=0  T=Nat 
不 可 能 发 生 ( 由 于 与 上 述 的 工 True 同样 的 理由 )。 

情况 T-SUucc: 上 t=succtl  T=Nat tl :Nat 
观察 图 3.2 中 的 求 值 规则 ,我 们 知道 只 有 一 个 规则 一 一 ESucc, 能 用 于 推导 t 一 tf"。 这 个 规 
则 的 形式 告诉 我 们 ,a->f。 因 为 我 们 也 知道 6 :Nat, 能 运用 归纳 假设 得 到 1 :Nat, 由 此 可 
得 到 succ 寻 :Nat, 即 根据 应 用 TSucc 规则 ,有 了 :To。 
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8.3.4 练习 [xx 户 ] : 重 构 这 个 证 明 使 其 对 求 值 推导 而 不 是 对 类 型 推导 做 归纳 证 明 。 


保持 定理 常常 称 为 主题 归 约 (或 主题 求 值 ) ,直观 上 理解 为 一 个 类 型 语句 t:T 可 以 看 作为 
一 个 句子 : “有 类 型 T"。 项 + 是 这 个 句子 的 主题 , 且 主 题 归 约 性 质 说 明 这 个 句子 的 真 假 值 是 在 
主题 的 归 约 下 保持 的 。 

不 像 类 型 的 惟一 性 ,在 某 些 类 型 系统 中 成 立 ,在 某 些 系统 中 不 成 立 ,进展 和 保持 将 是 我 们 
考虑 的 所 有 类 型 系统 的 基本 要 求 中 。 

8.3.5 练习 [*]: 求 值 规则 E-PredZero( 参 见 图 3.2) 有 点 违反 直觉 :我 们 可 能 党 得 让 和 零 的 前 

驱 无 定义 更 合理 ,而 不 是 让 零 的 前 驱 定 义 为 零 。 能 香 在 单 步 求 值 的 定义 中 除去 这 个 规则 

而 做 到 这 一 点 呢 ? 

8.3.6 练习 [推荐 ,*x]j: 有 了 主题 归 约 性 质 之 后 ,也 会 想 知 道 相反 的 性 质 一 一 主题 扩张 是 

否 也 成 立 。 是 否 总 存 这 种 情况 成 立 : 如 果 ti 一 并 且 :T 则 tT? 如 果 成 立 , 证 明 它 ;否则 

给 出 一 个 反例 。 

8.3.7 练习 [推荐 ,*x] :假定 我 们 的 求 值 关 系 是 在 大 步 形式 中 定义 ,如 练习 (3.5.17)。 类 

型 安全 性 的 直观 性 质 如 何 能 形式 化 ? 


8.3.8 练习 [推荐 ,**]: 假 定 我 们 的 求 值 关 系 增加 一 些 规则 来 将 无 意义 的 项 归 约 为 一 个 
明显 的 wrong 状态 ,如 在 练习 (3.5.16) 中 一 样 。 现 在 如 何 形式 化 类 型 安全 性 ? 


在 许多 不 同 的 领域 从 无 类 型 到 有 类 型 的 领域 走 过 的 道路 多 次 重复 ， 
大 部 分 又 是 为 了 相同 的 理由 。 





Luca Cardelli 和 Peter Wegner(1985 ) 


@ 这 些 性 质 在 有 些 语 言 中 是 不 成 立 的 。 尽 管 如 此 ,这 些 语言 也 认为 是 类 型 - 安全 的 。 比 如 ,如 果 我 们 用 小 步 形式 来 
形式 化 Java 的 操作 语义 (Flatt, Krishnamurhi 和 Felleisen， 1998a; JIgarachi, Pierce 和 Wadler, 1999 ) , 这 里 给 的 形式 的 类 型 
保持 将 不 成 立 ( 详 见 第 19 章 )。 尽管 如 此 ,可 以 认为 这 是 形式 化 的 一 个 人 为 因素 ,而 不 是 语言 本 身 的 缺点 ,因为 它 
在 语义 的 大 步 表示 中 类 型 保持 根本 不 存在 。 
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这 一 章 将 介绍 在 本 书 中 讨论 的 类 型 语言 系列 中 最 基础 的 一 个 成 员 : Churoh(1940) 和 Cunry 
(1958) 的 简单 类 型 lambda 演算 。 


9.1 项 数 类 型 


在 第 8 章 中 ,我 们 介绍 了 带 两 个 类 型 算术 表达 式 的 一 个 简单 静态 类 型 系统 :Bool( 具 有 该 
类 型 的 项 求 值 为 一 个 布尔 值 ) 和 Nat( 具 有 该 类 型 的 项 求 值 为 一 个 数值 )。 不 属于 这 两 个 类 型 的 
所 谓 ”“ 非 良 类 型 "项 包括 在 求 值 时 到 达 受 阻 状态 的 项 (如 让 0 then 1 else 2) ,以 及 实际 上 在 求 值 
时 行为 良好 的 项 (如 让 true then 0 else false) ,这 是 因为 我 们 的 静态 分 类 太保 守 了 。 

假设 要 构造 一 个 包含 布尔 值 (为 简洁 起 见 , 将 不 考虑 数值 ) 和 纯 lambda 演算 原 语 的 一 个 类 
似 的 类 型 系统 。 即 要 引入 关于 变量 .抽象 和 应 用 的 类 型 规则 以 保持 类 型 安全 [ 即 满足 类 型 保持 
和 进展 定理 (8.3.2) 和 定理 (8.3.3)] ,上 且 不 是 太保 守 , 即 它们 可 以 给 我 们 实际 关心 的 大 部 分 程 
序 指派 类 型 。 

当然 ,由 于 纯 lambda 演算 是 Turing 完备 的 ,无 法 给 出 这 些 原 语 的 精确 类 型 分 析 。 比 如 ,无 
法 在 不 实际 运行 复杂 计算 的 情况 下 可 靠 地 确定 如 下 的 程序 : 

if < 复杂 计算 > then true else (Ax.x) 
是 否 产生 一 个 布尔 值 或 一 个 函数 ,及 看 到 结果 是 tue 还 是 false。 通 常 ,复杂 计算 可 能 发 散 , 并 
县 任何 企图 预测 是 否 发 散 的 类 型 检查 器 也 将 发 散 。 

为 扩展 布尔 值 的 类 型 系统 使 之 包括 函数 ,我们 需要 加 入 一 个 类 型 来 分 类 这 样 的 项 , 它 的 求 

值 结果 为 一 个 函数 。 作 为 一 个 逼近 ,我 们 称 这 个 类 型 为 ~。 如 果 加 入 一 个 类 型 规则 ; 

AXx.t : 一 
使 每 个 和 抽象 类 型 ,我们 能 分 类 像 Xx.x 的 简单 项 , 也 能 分 类 像 :if tme then ()x.tme) else 
(hx.hy. 习 这 样 产生 函数 的 复合 项 。 

但 这 个 粗略 分 析 显 然 太保 守 : 像 Xx.tmue 和 )x.xy.y 这 样 的 函数 归 为 相同 的 类 型 ,而 忽略 
了 这 样 一 个 事实 :应 用 第 一 个 到 tme 产生 一 个 布尔 值 , 而 运用 第 二 个 到 tme 产生 另 一 个 函数 。 
一 般 地 ,为 了 给 一 个 应 用 结果 有 用 的 类 型 ,需要 知道 左 端 是 一 个 函数 外 ,还 要 知道 :函数 将 返回 
什么 类 型 。 此 外 ,为 了 确保 当 函 数 被 调用 时 其 行为 良好 ,需要 了 解 函数 所 期 望 的 参数 类 型 。 为 
了 得 到 这 样 的 信息 ,我 们 用 形 为 下 一 习 的 类 型 的 无 限 集合 替换 空 类 型 一 ,其 中 国 数 类 型 
Ti 一下 说 明 每 个 分 类 函数 希望 获得 类 型 为 了 的 参数 ,并 返回 类 型 开 的 结果 。 


9.1.1 定义 :类 型 Bool 上 的 简单 类 型 集合 是 由 下 列 语法 产生 的 ; 


中 ”本 章 中 讨论 的 系统 是 带 布尔 值 的 简单 类 型 lambda 演算 (参见 图 9.1) 。 相 应 的 OCaml 实现 是 fallsimple。 
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T := 类 型 ， 
Boo1 布尔 类 型 
T-T 函数 类 型 


类 型 构造 子 -> 是 右 结 合 的 一 一 即 表达 式 一 工 一 表示 了 一 (了 一 卫 )。 

比如 Bool>Bool 是 一 个 图 数 类 型 ,将 布尔 型 参数 映射 到 一 个 布尔 型 结果 。(Bool->Bool)- 
(Bool 一 Booi) 或 等 价 地 , (Bool 一 Bool) 一 Bool->Bool 是 一 个 函数 类 型 ,将 布尔 到 布尔 的 函数 作为 
参数 ,并 且 得 出 的 结果 也 是 布尔 到 布尔 的 函数 。 


9.2 类 型 关系 


为 了 给 像 xx.t 这 样 的 抽象 指派 一 个 类 型 , 当 抽 象 应 用 于 某 个 参数 时 需要 计算 会 发 生 什 
么 。 下 一 个 问题 是 :如 何 知道 期 望 得 出 的 参数 是 什么 类 型 9 存在 两 种 可 能 :要 么 简单 地 用 其 参 
数 需 要 的 类 型 注释 抽象 ,要 么 分 析 抽象 体 看 看 参数 如 何 被 使 用 ,并 由 此 演绎 出 它 应 有 的 类 
型 。 现 在 ,选择 第 一 种 方案 。 记 )Xx:T .b ,而 不 是 Xx.t, 其 中 对 男 变 量 的 注释 告诉 我 们 假定 参数 
类 型 是 T 。 

一 般 地 ,借助 于 项 的 类 型 注释 来 检查 类 型 的 语言 称 为 显 式 类 型 化 语言 。 我 们 要 求 类 型 检 
查 器 自己 推导 或 重 构 这 个 信息 的 语言 称 为 隐 式 类 型 化 语言 (在 入 演算 中 ,也 用 类 型 指派 系统 )。 
本 书 将 大 部 分 集中 于 显 式 类 型 化 语言 ; 隐 式 类 型 化 语言 将 在 第 22 章 中 讨论 。 

一 皇 我 们 知道 抽象 的 参数 类 型 ,就 知道 了 函数 结果 的 类 型 将 是 体 的 类 型 ,其 中 b 中 的 x 
假定 表示 类 型 为 卫 的 项 。 这 可 以 由 下 列 类 型 规则 米 表 示 : 

Xx:TI FFt2z :T2 
FF- AX:Ti .t2 : Ti 一 T> 
由 于 项 可 以 包含 嵌 套 和 抽象 ,我 们 一 般 将 需要 考虑 几 个 这 样 的 假设 。 这 将 改变 类 型 关系 ,如 从 
一 个 二 元 关系 蕊 下 到 一 个 三 元 关系 下 F baT, 其 中 了 是 一 个 关于 + 中 自由 类 型 的 假设 集合 。 

形式 地 ,一 个 类 型 化 上 下 文 (也 称 一 个 类 型 环境 )T 是 一 个 变量 和 它们 类 型 的 序列 ,并 且 逗 
号 算 子 (comma) 通 过 在 右边 加 和 人 一 个 新 绑 定 来 扩展 PT。 空 上 下 文 有 时 记 为 @, 但 通常 我 们 省 略 
它 ,用 F tbT 表 示 *“ 封 闭 项 + 在 空 的 假设 集 下 有 类 型 妆 。 

为 避免 新 绑 定 与 出 现在 工 中 的 任何 绑 定 相 混淆 ,要求 选 择 的 x 名 称 不 同 于 被 下 辕 界 的 变 
量 。 由 于 我 们 的 约定 :由 入 抽象 因 界 上 的 变量 可 以 在 方便 时 重新 命名 ,这 个 条 件 在 必要 时 通过 
重新 命名 轩 变 量 总 是 可 以 满足 的 。T 可 以 看 做 是 从 变量 到 它们 类 型 的 一 个 有 限 函 数 。 根 据 这 
一 点 ,我 们 用 aom(I) 表 示 由 了 界定 的 变量 集合 。 

抽象 的 类 型 规则 的 一 般 形式 为 : 


( 工 Abs) 


T, x:Ti FFt2z :T> 


FF AT 让 (CTAbe) 
其 中 前 提 比 结论 多 一 个 假设 。 
变量 的 类 型 规则 可 以 这 样 直接 得 到 :一 个 变量 可 以 有 任何 我 们 当前 假定 的 类 型 ， 
X:T ET 
THFx:T (TVar) 





前 提 x:TeT 读 做 “ 在 P 中 假设 x 的 类 型 为 下 。 
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最 后 ,我们 需要 一 个 应 用 类 型 规则 ; 
[ET TD2 IT FF- t2 : Tll 
0 

如 果 ， 求 值 为 这 样 的 一 个 函数 ,映射 Ti 中 的 参数 到 Ta 中 的 结果 (假设 它 的 自由 变量 表示 的 值 
类 型 为 下 中 假定 的 类 型 ) ,并 且 如 果 忆 求 值 为 Ti 中 的 一 个 结果 , 则 应 用 症 到 的 结果 将 是 类 型 
为 Ta 的 一 个 值 。 

布尔 常量 和 条 件 表达 式 的 类 型 规则 如 前 所 述 (参见 图 8.1)。 注 意 ,尽管 如 此 ,在 条 件 规则 

中 的 元 变量 T: 


(T-App) 


THFtl :Bool EECYT2 TFt3a :T 
THFiftithent2zelset3s :T 


能 实例 化 为 任何 函数 类 型 ,允许 分 支 是 函数 的 类 型 条 件 式 类 型 化 : 


if true then (AX:Boo1. x) else (CAx:Boo1. not x); 
” (和 Ax:Boo1. x) : Boo1 - Bool1 


这 些 类 型 规则 在 图 9.1( 为 完整 起 见 ,还 有 语法 和 求 值 规则 ) 中 进行 了 总 结 。 图 中 加 有 阴 
影 的 区 域 指明 与 无 类 型 演算 不 同 的 新 规则 一 一 新 规则 和 加 到 老 规则 中 的 新 部 分 。 类 似 于 处 理 
布尔 值 和 数值 ,我 们 将 整个 演算 的 定义 分 为 两 个 部 分 :不 带 任何 基 类 型 的 纯 简 单 类 型 lambda 
演算 (如 图 9.1 所 示 ) 和 独立 的 布尔 型 规则 集 ( 参 见 图 8.1, 我 们 必须 将 上 下 文 加 入 到 图 中 每 个 
类 型 语句 中 ) 。 


《CT-IH) 








- 顺 基于 入 15.3) 
语法 求 信 2 
本 项 : 

tl 一 "了 
色 变量 一 一 一 (E-ApP1) 
入 x 计 和 .tt 抽象 iTESE ET 
RE 应 用 2 
3 生生 (E-APP2) 
AVITEE 和 
V_ 2 值 : 
入 x 沽 六 .t 抽象 值 CAx 滑 乔 洲 .tl2) v2> 一 [x - vz]tl2 (E-APPABS) 
类 型 化 人 
上 EEE 
和 磋 函数 类 型 5 CEVAR) 
岂 := 上 下 文 : 
可 汪 项 变量 绑 定 


图 9.1 纯 简单 类 型 的 lambda 演算 (入 - ) 
我 们 经 常用 符号 入 -表示 简单 类 型 的 lambda 演算 (用 相同 的 符号 表示 不 同 基 类 型 的 系统 )。 








Q@ ”从 现在 起 ,例子 及 其 实现 都 将 显示 出 执行 结果 及 结果 类 型 ( 当 它 们 是 显 式 时 ,有 时 会 省 略 )。 
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9.2.1 练习 [*] :不 带 基 础 类 型 的 纯 简单 类 型 lambda 演算 实际 是 退化 的 , 即 它 没 有 和 良 定 


项 。 为 什么 ? 
如 类 型 算术 表达 式 所 示 , 和 .的 类 型 规则 的 实例 可 以 组 合成 推导 树 。 比 如 ,下 面 的 推导 ,说 
明 项 (Xx: Bool.x)tmue 在 空 的 上 下 文中 有 类 型 Bool: 
XxX:Bool E Xx:Boo1 
一 一 工 VAR 
x:Bool1H- x :Bool] 
一 一 TABS 一 一 TITRUE 
FF AX:Boo1.x : Boo1 一 Boo1 FF- true : Boo1 
T-APP 
F_ (AX:Boo1.x) true : Boo1 


9.2.2 练习 [* 广 ] :用 画 推导 树 的 方法 证 明 下 列 项 有 所 指示 的 类 型 ， 


1. f:Boo1-~Boo1F-fCif false then true else false) : Boo1 


2. f:Boo1- Boo1F Ax:Boo1. f(ifxthen falseelse x) : Boo1-Boo1 


9.2.3 练习 [*]: 找 一 个 上 下 文 工 使 得 在 此 上 下 文中 项 fx y 有 类 型 Bool 。 你 能 否 简单 描 
述 一 下 所 有 满足 这 个 要 求 的 上 下 文集 合 ” 


9.3 类 型 的 性 质 


如 在 第 8 章 中 一 样 ,在 证 明 类 型 安全 性 之 前 需要 几 个 基本 引 理 。 大 部 分 引 理 类 似 于 以 前 
所 见 到 的 ,我们 只 需要 将 上 下 文 加 入 到 类 型 关系 中 并 将 子 句 加 入 到 每 个 1 抽象 、 应 用 和 变量 
的 证 明 中 。 惟 一 重要 的 新 要 求 是 类 型 关系 的 代 换 引 理 [参见 引 理 (9.3.8) ]。 

首先 , 道 转 引 理 说 明了 如 何 建立 类 型 推导 :每 个 语法 形式 的 子 句 告诉 我 们 “如 果 这 个 形式 
的 项 是 良 类 型 的 , 则 它 的 子 项 必定 有 这 些 形式 的 类 型 "。 

9.3.1 引 理 [类 型 关系 的 逆转 ] : 

1. 如 果 了 FF x:R, 则 x:RecT。 

2. 如 果 了 FF xiTm .pb:R, 则 对 某 个 R 使 得 P,xz:T Fub:R ,有 R=T-R。 

3. 如 果 了 FF bb:R, 则 存在 某 个 类 型 Ti 使 得 Fa:Ti 一 玉 并 且 PFb:Tus 

4. 如 果 了 TH tme:R, 则 R= Bool 。 

5. 如 果 TF fase:R, 则 R= Bool 。 

6, 如 果 下 Fi 这 t then tb elseb:R, 则 下 Ht :Bool 并 且 下 FF 世 ,b:R。 


证 明 :直接 由 类 型 关系 的 定义 得 出 。 


9.3.2 练习 [推荐 ,*xx] :是 否 存在 某 上 下 文 下 和 类 型 T 使 得 FF xx:T? 如 果 存 在 ,给 出 
工 和 T, 并 给 出 PRF xx:T 的 类 型 推导 ;如 果 不 存在 ,证 明 这 一 点 。 


在 9.2 节 中 ,选择 演算 的 显 式 类 型 化 表示 来 简化 类 型 检查 的 工作 。 这 包括 对 在 函数 抽象 
中 的 男 变 量 加 上 类 型 注释 ,但 其 他 地 方 不 加 。 为 什么 这 样 就 可 以 了 呢 ? 一 个 答案 是 由 “类 型 惟 
一 性 "定理 给 出 的 ,这 个 定理 说 明 良 类 型 的 项 一 一 对 应 于 它们 的 类 型 推导 :类 型 推导 能 从 项 中 


惟一 地 恢复 (反之 也 然 )。 事 实 上 ,这 个 对 应 十 分 直接 ,在 某 种 意义 上 项 与 推导 几乎 没有 区 别 。 
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9.3.3 ”定理 [类 型 惟一 性 ] :在 一 个 给 定 的 类 型 上 下 文 工 中 ,一 个 项 长 其 所 有 自由 变量 在 

P 的 定义 域 中 ) 至 多 有 一 个 类 型 。 即 如 果 一 个 项 是 可 类 型 化 的 , 则 它 的 类 型 是 惟一 的 。 此 

外 ,只 有 一 个 由 产生 类 型 关系 的 推导 规则 建立 的 类 型 化 推导 。 

证 明 : 留 做 练习 。 证 明 实 际 上 可 以 直接 写 出 ,没有 什么 复杂 性 ;但 详细 写 出 对 “建立 ”类 型 

关系 的 证 明 方面 是 一 个 好 的 实践 。 

对 于 书后 面 提 到 的 许多 类 型 系统 ,项 与 推导 之 间 的 这 种 简单 对 应 将 不 再 成 立 :单个 项 被 指 
派 几 个 类 型 ,并且 每 个 类 型 由 几 个 类 型 推导 判定 。 在 这 些 系 统 中 ,这 表明 类 型 推导 能 有 效 地 根 
据 项 来 恢复 是 十 分 重要 的 。 

下 面 的 典型 形 引 理 告诉 我 们 各 种 类 型 值 的 可 能 形式 。 


9.3.4 引 理 [典型 形式 ]: 

1. 如 果 "是 一 个 类 型 为 Bool 的 值 , 则 v 要 么 为 rue, 要 么 为 false。 

2. 如 果 ，* 是 一 个 类 型 为 了 一 开 的 值 , 则 v=)Xx:Ti .bo。 

证 明 :直接 得 到 [类似 于 算术 表达 式 的 典型 形式 引 理 (8.3.1) 的 证 明 ]。 

利用 典型 形式 引 理 ,可 以 类 似 于 定理 (8.3.2) 证 明 一 个 进展 定理 。 这 个 定理 的 陈述 需要 一 
个 小 改动 :我 们 只 关心 封闭 项 , 它 不 含 自由 变量 。 对 于 开 项 ,进展 定理 实际 上 不 成 立 :比如 项 
f true 是 一 个 范式 ,但 不 是 一 个 值 。 尽 管 如 此 ,这 个 失误 不 表示 语言 的 缺陷 ,因为 整个 程序 (就 
是 那些 我 们 实际 想 求 值 的 项 ) 总 是 封闭 的 。 

9.3.$ 定理 [进展 ] :假设 + 是 一 个 封闭 的 , 良 类 型 的 项 ( 即 对 某 个 T, 有 HF t:T)。 则 要 么 : 

是 一 个 值 ,要 么 存在 某 个 使 得 上 。 

证 明 : 直 接 对 类 型 推导 做 归纳 。 布 尔 常量 和 条 件 式 的 情况 与 类 型 算术 表达 式 进展 的 证 明 

相同 。 变 量 情况 不 可 能 出 现 (因为 + 是 封闭 的 )。 抽 象 情况 是 直接 的 ,因为 抽象 是 值 。 

惟一 有 趣 的 情况 是 应 用 ,其 中 t= bb 使 得 -um 一 T 且 -ua:Ti。 出 归纳 假设 ,要 么 4 是 

一 个 值 ,要 么 它 能 做 一 步 求 值 , 对 于 上 同样。 如果， 能 做 一 步 求 值 , 则 规则 E-Appl 运用 

于 to 如 果 ' 是 一 个 值 并 且 be 能 做 一 步 求 值 , 则 规则 下 App2 能 运用 。 最 后 ,如 果 ， 和 局 

两 者 均 是 值 , 则 由 典型 形式 引 理 ,5 有 形式 和 F x:Ti.b, 且 规则 已 Appabs 可 运用 于 + 。 

下 一 步 将 要 证 明 求 值 保持 类 型 。 首 先 陈 述 几 个 类 型 关系 的 “结构 引 理 ”。 它 们 本 身 不 是 特 

别 有 意 义 ,但 由 此 可 以 在 以 后 证 明 中 对 类 型 推导 做 一 些 有 用 处 理 。 

第 一 个 结构 引 理 说 我 们 可 以 置换 一 个 上 下 文 的 元 素 , 而 不 改变 由 此 推导 出 的 类 型 语句 集 

合 。 回 忆 一 下 在 一 个 上 下 文中 所 有 的 绑 定 必定 有 不 同名 称 ,并 且 当 我 们 加 一 个 交界 到 一 

个 上 下 文 时 ,默认 园 界 的 名 称 不 同 于 早已 畴 界 名 称 [如 果 需 要 ,用 约定 (5.3.4) 重 新 命名 ]。 


9.3.6 引 理 [置换 ] :如 果 TFt:T 并 且 A 是 的 一 个 置换 , 则 AhHFt:T。 此 外 ,后 者 的 推导 
有 着 与 前 者 推导 相同 的 深度 。 


证 明 : 直 接 对 类 型 推导 做 归纳 。 


9.3.7 引 理 [ 弱 化 j: 如 果 了 FF GT 并 且 x dom(D), 则 T,x:SFt:T。 此 外 ,后 者 的 推导 有 
着 与 前 者 推导 相同 的 深度 。 





| 一 一 一 一 一 - 
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证 明 ; 直 接 对 类 型 推导 做 归纳 。 
利用 这 些 引 理 ,能 证 明 类 型 关系 的 一 个 至 关 重 要 的 性 质 : 当 用 合适 类 型 的 项 代 换 变量 时 ， 


良 类 型 性 将 保持 。 类 似 的 引 理 在 程序 语言 的 安全 性 证 明 中 起 着 普 适 的 作用 ,常常 称 为 “ 代 
换 引 理 "。 


9.3.8 “ 引 理 [类 型 在 代 换 下 保持 ]; 如 果 T,x:SF ET 并 且 有 FF s:S, 则 PFIz -slt:To 
证 明 : 对 语句 了 T,x:SFt:T 的 推导 做 归纳 。 对 一 个 给 定 的 推导 ,根据 我 们 在 证 明 中 最 后 用 
到 类 型 规则 分 情况 讨论 中。 最 有 趣 的 情况 是 变量 和 抽象 的 情况 。 
情况 T-VAR: 七 =z 
with z:TEe(T,x:S) 
根据 是 x 还 是 另 一 个 变量 ,分 两 个 子 情况 考虑 。 如 果 z=x, 则 [x r~ s]z = s。 所 要 的 结 
果 是 了 FF s:S, 这 是 引 理 的 假设 。 否 则 ,[x ~ s]z = z, 直 接 得 到 所 要 的 结果 。 
情况 T-ABS- 蒋 = Ay:Tz .ti 
T=Tz 一 Ti 
T, x:S,y:T2 Htl :Ti 
由 约定 (5.3.4) ,我 们 假定 xzy 并 且 y 且 (ss)。 利 用 在 给 定 的 子 推导 中 的 置换 ,可 得 到 
PP,y:D,x:SFa63sTD。 利 用 在 其 他 给 定 的 子 推导 (和 F ss:S) 中 的 弱化 ,得 到 了,y: 卫 FF s:S。 
现在 ,由 归纳 假设 ,T,y: 广 [x FF 一 s]t :了 O 由 T-Abs, 广 和 y:T> 。 [x 上 一 s]tb : 卫 一 > 了 o 但 这 
正 是 我 们 所 要 的 结果 ,因为 ,由 代 换 的 定义 ,[x Fr-s]t=)y: 了 T.[xr-s]tin。 
情况 T-APP: 上 = tl t2 
T, x:SFtli :Tz 一 T1 
T,x:SHHt2 :T2 
T=Ti 
由 归纳 假设 ,有 PHFIx rsjtn: 了 一 T 和 TFIxe~ sb: 卫 。 由 T 工 App, 有 PPFfxr=-sjtfx 
F= se:T, 即 下 FIxrF- s] (bb):T。 
情况 T-TRUE: tt= true 
T= Bool1 
则 [x 一 s]t= mme, 并 且 直 接 得 到 所 要 的 结果 :FF[x = sj]t:T。 
情况 T-FALSE: 七 = false 
T=Bool 
类 似 。 


情况 T-IF: 七 = 1ftl thentz elset3 
T,x:SrFtl :Bool 
IT,x:SFt2z :T 
T,x:SFt3a:T 


@ 或 者 等 价 地 ,对 t 的 可 能 形式 来 分 情况 ,因为 对 每 个 语法 构造 存在 一 个 类 型 规则 。 
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三 次 使 用 归纳 假设 得 到 : 


Trf[fx 一 slti :Bool 
TFIxmsltz :下 
TFI[x 一 slt3 :T， 


由 此 利用 TI 得 到 结论 。 

利用 代 换 引 理 , 我 们 能 证 明 类 型 安全 性 性 质 的 另 一 半 一 一 求 值 保持 良 类 型 性 。 

9.3.9 ”定理 [保持 ]: 如 果 TFi:T 并 且 t 一 上 则 PHFY:T。 

证 明 : 留 做 练习 [推荐 ,*x*x]j。 除 了 使 用 代 换 引 理 , 证 明 结 构 非 常 类 似 算 术 表 达 式 的 类 型 
保持 定理 (8.3.3) 的 证 明 。 

9.3.10 练习 [推荐 ,x*x] :在 练习 (8.3.6) 中 我 们 研究 了 类 型 算术 表达 式 的 简单 演算 的 主 


题 扩 展 性 质 。 这 个 性 质 是 否 对 简单 类 型 lambda 演 算 的 “ 本 数 部 分 "也 成 立 ?” 即 假定 t 不 包 
含 任何 条 件 表 达 式 。PFY:T 和 +t->t 是 否 蕴涵 了 FF t:T? 


9.4 Curry-Howard 对 应 


“一 "类 型 构造 子 有 两 种 类 型 规则 


1. 一 个 引入 规则 (T-Abs) ,描述 类 型 的 元 素 是 如 何 产生 的 。 

2. 一 个 消去 规则 (T-App) ,描述 类 型 的 元 素 是 如 何 使 用 的 。 

当 一 个 引信 形 式 (A) 是 一 个 消去 形式 (应 用 ) 的 直接 子 项 时 ,结果 是 一 个 约 式 (一 个 计算 的 机 会 )。 

在 讨论 类 型 系统 时 经 常 使 用 术语 "引入 "和 "消除 "形式 。 当 我 们 在 本 书后 面 接触 更 复杂 欠 
系统 时 ,将 看 到 对 每 个 我 们 考虑 的 类 型 构造 子 有 着 类 似 的 引入 和 消去 形式 。 

9.4.1 练习 [*]: 在 图 8.1 中 类 型 Bool 的 规则 中 哪些 是 引入 规则 ,哪些 是 消除 规则 ? 图 8.2 

中 类 型 Nat 的 规则 中 哪些 是 引入 规则 ,哪些 是 消除 规则 ? 

术语 “引入 ”和 "消除 ?来 自 于 类 型 理论 和 逻辑 之 间 的 一 个 称 为 Cuny-Howard 对 应 或 
Curry-Howard 同 构 的 联系 (Cumy 和 Feys,1958; Howard,1980) 。 简 单 地 说 ,基本 思想 是 :在 构造 还 辑 
中 ,一 个 命题 已 的 证 明 是 由 己 的 具体 证 据 所 组 成 的 8。Curmy 和 Howard 所 注意 到 的 是 这 样 的 
证 据 有 一 个 很 强 的 计算 性 。 比 如 ,一 个 命题 P 2 0 的 一 个 证 明 可 以 看 做 一 个 机 械 过 程 ,给 定 
疡 的 证 明 ,该 过 程 构造 0 的 证 明 ,或 也 可 以 这 样 说 , g 的 证 明 是 P 的 证 明 上 的 抽象 。 类 似 地 ， 
证 明 已 ^ 0 成 立 是 要 证 明 P 和 0 同时 成 立 。 根 据 这 样 的 分 析 得 出 如 下 对 应 关系 : 








逻辑 程序 语言 

命题 类 型 

命题 PDQ 类 型 P 一 Q 

命题 PA^ 0 类 型 Px Q( 参 见 11.6 节 ) 
命题 已 的 证 明 类 型 P 的 项 t 

命题 已 是 可 证 明 的 类 型 P 有 具体 内 容 ( 某 项 ) 


@ 经典 逻辑 和 构造 遇 辑 之 间 的 主要 差别 是 后 者 的 证 明 规 则 中 不 用 排 中 律 。 这 个 规则 是 说 , 对 每 个 命题 Q ,要么 @ 成 
立 , 要 么 一 0 成 立 。 在 构造 好 辑 中 为 了 证 明 CO v 一 0 ,必须 提供 @ 成 立 的 证 据 或 一 @ 成 立 的 证 据 。 
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由 此 ,简单 类 型 lanbda 演算 的 一 个 项 是 对 应 它 的 类 型 的 逻辑 命题 的 一 个 证 明 。 计 算 
(lambda 项 的 归 约 ) 对 应 于 由 cut 消除 简化 证 明 的 逻辑 操作 。Cury-Howard 对 应 也 称 为 命题 比 
做 类 型 。 这 个 对 应 的 完整 讨论 在 许多 地 方 都 出 现 过 ,包括 Girard, Lafont 和 Taylor(1989) , Gallier 
《1993) , Serensen 和 Urzyczyn(1998) , Pfenning (2001) ,Goubault-Larrecqd 和 Mackie (1997) ,以 及 Sim- 
mons(2000) 。 

Cury-Howard 对 应 的 优美 之 处 在 于 它 不 限于 任何 特别 的 类 型 系统 和 相关 的 逻辑 ,相反 , 它 
能 扩展 为 更 广 的 类 型 系统 和 逻辑 。 比 如 ,系统 F( 参 见 第 23 章 ), 它 含有 类 型 量词 的 参数 多 态 
对 应 于 二 阶 构造 逻辑 ,因为 该 逻辑 里 含有 命题 量词 。 而 系统 下 ., (参见 第 30 章 ) 对 应 于 高 阶 轩 
辑 。 的 确 ,对 应 常常 用 来 转换 两 个 领域 中 的 新 进展 。 这 样 , Girard 的 线性 逻辑 (1987) 产 生 了 线 
性 类 型 系统 的 想法 (Wadler,1990, Wadler, 1991 ,Tumer, Wadler 和 Mossin, 1995, Hodas, 1992 , Mack- 
ie,1994, Chirimar, Cunter 和 Riecke, 1996, Kobayashi, Pierce 和 Turmer, 1996, 以 及 许多 其 他 文献 )， 
而 模 态 逻辑 用 来 帮助 设计 部 分 求 值 和 执行 时 间 代 码 生成 的 框架 (参见 Davies 和 Pfenning ,1996 ， 
Wickline, Lee, Pfenning 和 Davies ,1998 ,以 及 他 们 所 引用 的 其 他 文献 ) 。 


9.5 抹 除 和 类 型 性 


在 图 9.1 中 ,我们 直接 在 简单 类 型 项 上 定义 了 求 值 关系 。 尽 管 类 型 注释 在 求 值 中 不 起 作 
用 (我 们 做 任何 执行 时 间 检 查 来 确保 函数 运用 于 合适 类 型 的 参数 ) ,在 求 值 时 确实 连同 考虑 了 
这 些 项 内 部 的 注释 。 

成 熟 程序 语言 的 大 部 分 编译 器 实际 上 避免 在 执行 时 带 上 注释 :它们 在 类 型 检查 时 〔〈 以 及 
在 代码 生成 时 和 在 更 复杂 的 编译 器 中 ) 使 用 ,但 在 程序 编译 的 形式 中 并 不 出 现 。 实 际 上 是 程序 
在 求 值 之 前 转换 成 一 个 无 类 型 的 形式 。 这 种 形式 的 语义 能 用 一 个 抹 除 函数 来 形式 化 ,这 个 抹 
除 函 数 将 简单 类 型 项 映射 到 对 应 的 无 类 型 项 。 


9.S.1 定义 :一 个 简单 类 型 项 t 的 抹 除 定义 为 ; 


erGSe(X) = X 
eraSse(AX:TIi. t2) = AX，eraselt2?) 
erase 人 (tl +t2) = erase(tl) erase(t2) 


当然 ,我 们 期 望 简 单 类 型 演算 语义 的 两 个 表示 方法 实际 上 是 一 致 的 :是 直接 求 值 一 个 类 型 项 ， 
还 是 先 抹 除 类 型 然后 求 值 所 得 到 的 无 类 型 项 都 无 关 紧要 。 这 个 期 望 可 以 用 下 面 的 定理 形式 
化 ,简单 地 说 ,是 “ 求 值 与 抹 除 交换 ”, 意 思 是 这 些 运 算 能 在 不 同 次 序 下 进行 一 一 求 值 然后 抹 除 
或 先 抹 除 然后 求 值 ,得 到 的 项 相同 。 

9.5.2 定理 ; 

1. 如 果 在 类 型 求 值 关 系 下 ,t-t ,那么 erase(t)->erase(t )。 

2. 如 果 在 类 型 求 值 关系 下 ,ease(D ->m', 那 么 存在 一 个 简单 类 型 项 使 得 t_=v 并 且 

erase(t') = m'。 

证 明 : 直 接 对 求 值 推导 做 归纳 。 

由 于 我 们 这 里 考虑 的 “编译 ”是 直接 的 ,定理 (9.5.2) 显 然 成 立 。 对 更 有 趣 的 语言 和 编译 
器 ,这 将 是 一 个 非常 重要 的 性 质 : 它 告诉 我 们 一 个 借助 于 程序 员 写 的 语言 直接 表达 的 “高 级 ” 语 
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义 与 在 语言 的 实现 中 实际 使 用 的 低级 求 值 策略 是 一 致 的 。 
另 一 个 抹 除 函数 引发 的 有 趣 问题 是 :给 定 一 个 无 类 型 lambda 项 征 ,我们 是否 能 找到 一 个 
简单 类 型 项 ! 使 得 抹 除 类 型 后 成 为 m? 


9.S.3 ”定义 :无 类 型 lambda 演算 中 一 个 项 m, 如 果 存 在 某 个 简单 类 型 项 t, 类 型 T 和 上 下 
文 工 使 得 erase(b) =m 并 且 下 HP t:T, 则 下 在 入 .中 是 可 类 型 化 的 。 


在 第 22 章 中 将 对 这 一 点 做 深入 的 讨论 , 那 时 我 们 还 将 考虑 与 入 - 的 类 型 重 构 紧 密 相关 的 
问题 。 


9.6 Curry 形式 和 Church 形式 


我 们 已 经 看 到 简单 类 型 lambda 演算 的 语义 形式 化 有 两 个 不 同 的 形式 :作为 直接 定义 在 简 
单 类 型 演算 的 语法 上 的 求 值 关 系 ,或 作为 对 无 类 型 演算 和 无 类 型 项 上 的 求 值 关系 的 编译 形式 。 
两 个 形式 的 一 个 重要 共同 点 是 :不 管 一 个 项 { 是 否 实际 上 是 良 类 型 的 ,在 两 个 形式 中 均 可 讨论 
这 个 项 t 的 行为 。 这 种 形式 的 语言 定义 称 为 Curry 形式 。 我 们 首先 定义 项 ,然后 定义 一 个 语义 
说 明 它 们 的 行为 如 何 ,， 然后 给 出 一 个 类 型 系统 将 那些 行为 不 合意 的 项 删除 掉 。 语 义 优先 于 
类 型 。 

组 织 一 个 语言 定义 的 另 一 种 方法 是 定义 项 ,然后 确定 良 类 型 项 ,再 给 出 它们 的 语义 。 在 这 
些 所 谓 的 Church 形式 的 系统 中 ,类 型 优先 于 语义 :我 们 决 不 会 问 这 样 的 问题 :一 个 不 良 类 型 
的 项 的 行为 是 什么 ?” 的 确 ,严格 地 讲 ,在 Church 形式 的 系统 中 实际 求 值 的 是 类 型 推导 , 而 不 是 
项 (参见 15.6 节 中 的 例子 )。 

历史 上 ,lambda 演算 的 隐 式 类 型 表示 常 采用 Cuny 形式 ,而 Chureh 形式 的 表示 只 用 于 显 式 
类 型 系统 。 这 导致 了 术语 的 混淆 ;Chureh 形式 有 时 用 于 搞 述 一 个 显 式 类 型 语法 ,而 Cuny 形式 
有 时 用 于 描述 一 个 隐 式 类 型 语法 。 


9.7 注释 
Hindley 和 Seldin(1986) 讨 论 和 研究 简单 类 型 lambda 演算 , 更 详细 的 讨论 可 参见 Hindley 


(1997)。 


和 良 类 型 程序 不 会 出 错 。 
Robin Milner (1978) 
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作为 ML 程序 的 .的 县 体 实现 与 第 7 章 中 无 类 型 lambda 演算 的 实现 相同 。 二 
处 是 一 个 函数 typeof, 它 计 算 一 个 给 定 项 在 给 定 上 下 文中 的 类 型 。 在 此 之 前 ,我 们 先 提 出 一 
低层 机 理 来 处 理 上 下 文 。 


10.1 上 下 文 
回忆 一 下 第 7 章 , 上 下 文 就 是 由 变量 名 和 binding 组 成 的 序 对 的 列表 ; 


type context = (String * binding) 11St 
在 第 7 章 中 ,上 下 文 只 用 于 在 分 析 和 打印 期 间 在 项 的 命名 和 无 命名 的 形式 之 间 的 转换 。 为 此 ， 
我 们 只 需要 知道 变量 的 名 称 ; binding 为 一 个 不 带 任何 信息 的 构造 子 的 数据 类 型 : 
type binding = NameBind 
为 了 实现 类 型 检查 器 ,将 需要 用 上 下 文 携带 关于 变量 的 类 型 假设 。 通过 在 binding 类 型 上 加 上 
一 个 称 为 VarBind 的 新 构造 子 来 实现 这 一 点 : 


type binding = 
NameBind 
1 VarBind of ty 


每 个 VarBind 构造 子 携带 相应 变量 的 类 型 假设 。 为 了 方便 不 关心 类 型 假设 的 打印 和 分 析 的 函 
数 ， VarBind 外 ,保持 老 的 NameBind 构造 子 (实现 策略 是 定义 两 个 完全 不 同 context 类 型 
分 析 和 打印 , 另 一 个 用 来 类 型 检查 )。 

娄 typeof 利用 一 个 函数 addbinding 来 扩展 一 个 含 新 变量 绑 定 (x,bind) 的 上 下 文 et; 因为 
上 下 文 表示 为 列表 ,addbinding 本 质 上 就 是 cons: 


jet addbinding ctx x bind = (x,bind) : :ctx 


反之 ,我们 用 函数 getTypeFromContext 在 一 个 上 下 文 ctx 中 抽取 与 一 个 特殊 变量 i 有 关 的 类 型 假 
设 (如 果 i 超 出 范围 ,文件 信息 在 会 打印 一 个 错误 消息 ): 
et getTypeFromContext fi ctx 1 = 
match getbinding fi ctx 1 with 
Var8BindCtyT) 一 tyT 
| ~ 一 error fi 
〈《“"getTypeFromContext: Wrong kind of binding for variable " 
A (indexzname fi ctx 1)) 


match 提供 某 种 内 部 一 致 性 检查 :在 规范 环境 下 ，getTypeFromContext 总 是 在 一 个 上 下 文中 调 
用 ,在 这 个 上 下 文中 ,第 i 个 绑 定 事实 上 是 一 个 VarBind。 在 后 面 的 章节 中 ,我 们 将 加 入 其 他 形 





人 ”这 里 描述 的 实现 对 应 于 带 布尔 类 型 (参见 图 8.1) 的 简单 类 型 lambda 演算 (参见 图 9.1)。 本 章 中 的 代码 可 以 在 允 eb 
库 的 simplebool 中 找到 。 


ee - 本 
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式 的 绑 定 (特别 是 对 类 型 变量 的 绑 定 ) ,并 可 能 用 错误 变量 调用 getTypeFromContext。 在 这 种 情 
况 下 ,用 低级 error 函数 来 打印 一 个 消息 ,将 消息 传 给 info 使 得 它 能 报告 出 现 错误 的 文件 位 置 。 
val error : info ~ String 一 “a 

eror 函数 的 结果 类 型 是 变量 类 型 'a, 它 能 被 实例 化 为 任何 ML 类 型 (这 是 有 意义 的 ,因为 它 不 会 
返回 : 它 打印 一 个 消息 然后 停止 程序 )。 这 里 ,我 们 需要 假设 eror 的 结果 是 一 个 yy, 因为 这 是 
match 的 另 一 分 支 所 返回 的 。 

注意 我 们 用 索引 来 搜索 类 型 假设 ,因为 项 内 部 表示 为 无 命名 形式 ,而 变量 表示 为 数值 索 
引 。 冰 数 getbinding 在 给 定 的 上 下 文中 简单 搜索 第 i 个 绑 定 ， 


val getbinding : info -~ context 一 int 一 binding 


它 的 定义 可 以 在 本 书 网 站 上 的 simplebool 实现 中 找到 。 


10.2 项 和 类 型 
类 型 的 语法 可 直接 从 图 8.1 和 图 9.1 中 的 抽象 语法 转换 为 一 个 ML 数据 类 型 。 


type ty = 
TyBool1 
| TyArr of ty * ty 


项 的 表示 如 同 我 们 在 无 类 型 lambda 演算 中 一 样 , 只 是 加 入 一 个 类 型 注释 到 TmAbs 子 句 中 


type term = 

TmTrue of info 

TmFalse of info 

TmIf of info * term * term * 七 erm 
Tmvar of info * int * int 

TmAbs of info * string * ty * term 
TmApp of info ”term * term 


10.3 ”类 型 检查 


类 型 检查 函数 gpeof 可 以 看 做 是 和 -的 类 型 规则 (参见 图 8.1 和 图 9.1) 的 一 个 直接 翻译 ,或 
更 精确 地 ,是 逆转 引 理 (9.3.8) 的 一 个 副本 。 第 二 个 观点 是 更 加 精确 的 ,因为 正 是 逆转 引 理 告 
诉 我 们 ,对 每 个 语法 形式 ,这 个 形式 的 一 个 项 是 良 类 型 必须 满足 什么 条 件 。 类 型 规则 告诉 我 们 
一 定形 式 的 项 在 某 些 条 件 下 是 良 类 型 的 ,但 考虑 到 个 别 的 类 型 规则 ,就 不 能 得 出 这 样 的 结论 : 
某 个 项 不 是 良 类 型 的 ,因为 总 有 可 能 存在 别 的 规则 来 类 型 化 该 项 (此 时 ,可 以 出 现 不 明显 的 差 
别 , 因 为 首 转 引 理 是 直接 从 类 型 规则 得 出 的 。 但 在 以 后 的 系统 中 证 明 逆 转 引 理 比 在 和 -中 证 明 
更 复杂 ,所 以 这 个 差别 会 变 得 更 加 重要 )。 


let rec typeof ctx 蕊 = 
match 七 with 
TmTrue(Cfi) 一 
TyBoo1 
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| TmFalseCfiT) 一 
TyBoo1 
| TmIfCfi tl,t2,t3) 一 
if (=) (typeof ctx t1) TyBoo1 then 
]et tyT2 = typeof ctx t2 in 
计 (=) tyT2 (typeof ctx t3) then tyT2 
else error fi “arms of condjtional have different types" 
else error fij “guard of conditional not a boo1ean'" 
| Tmvar(Cfi,i, ) 一 getTypeFromContext fi ctx 
| TmAbs(Cfi ,x,tyT1L,t2) 一 
jet ctx” = addbinding ctx x (VarBindCtyT1)) in 
let tyT2 = typeof ctx' t2 in 
TYArrCtyT1，tyT2) 
| TmApp(Cfi ,tl,t2] 一 
1et tyTL = typeof ctx tl in 
]et tyT2 = typeof ctx t2 1n 
(match tyT1 with 
TyArrCtyT1L1,tyT1L2) 一 
if (=) tyT2 tyT11 then tyT12 
else error fi "parameter type mismatch"” 
| ~ ~ error fi "arrow type expected'"') 


针 相 等 。 即 表达 式 ; 
let t = TmApp(tl,t2) fin 
let +” = TmApp(Ctl,t2) in 
(=) 上 人 
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这 里 ,值得 指出 OCaml 语言 的 几 个 细节 。 首 先 ,OCaml 相等 算 子 = 写 在 括号 内 ,因为 我 们 
在 前 缀 位 置 中 用 它 ,而 不 是 在 正规 的 中 邹 位 置 来 帮助 与 后 面 出 现 的 fypeof 做 比较 , 那 时 的 比较 
类 型 操作 将 比 简 单 相等 更 为 细致 。 第 二 ,相等 算 子 计算 复合 值 上 的 一 个 结构 相等 ,不 是 一 个 指 


保证 产生 te, 尽 管 TmApp 男 界 tt 的 两 个 实例 在 不 同时 间 分 配 内 存 并 且 存 储 在 不 同 地 址 上 。 
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简单 类 型 lambda 演算 有 着 足够 丰富 的 结构 来 讨论 它 的 理论 性质 ,但 对 于 一 个 程序 语言 
说 仍然 不 够 。 在 这 一 章 中 ,开始 引入 几 个 可 以 直接 处 理 类 型 化 的 ,熟悉 的 特征 ,以 使 我 们 所 讨 
论 的 更 接近 大 家 熟悉 的 语言 。 出 现在 本 章 中 的 一 个 重要 概念 是 导出 形式 。 


11.1 基本 类 型 


每 个 程序 语音 提供 各 种 基本 类 型 (简单 的 无 结构 值 的 集合 ,如 数值 ,布尔 值 和 字符 ) 加 上 对 
这 些 值 处 理 的 合适 的 原 语 操作 。 我 们 早已 详细 地 讨论 了 自然 数 和 布尔 值 ; 语言 设计 者 所 希望 
的 许多 其 他 基本 类 型 也 能 用 同样 的 方式 加 进来 。 

除了 Bool 和 Nat ,我 们 将 用 基本 类 型 String( 如 hello 这 样 的 元 素 ) 和 Float( 如 3.14159 这 样 
的 元 素 ) 来 丰富 本 书 中 例子 。 

从 理论 的 角度 出 发 ,通常 抽取 出 特殊 基本 类 型 和 它们 的 运算 细节 , 而 简单 地 假定 我 们 的 语 
言 含有 一 个 具有 无 解释 或 未 知 的 基 类 型 , 且 没 有 原 语 操作 的 集合 入。 这 可 以 通过 简单 地 将 所 
的 元 素 ( 元 变量 A) 加 到 类 型 集合 ,如 图 11.1 所 示 就 可 以 做 到 这 一 点 。 我 们 用 字母 及 而 不 是 字 
母 3 表 示 基 本 类 型 ,来 避免 和 B@ 符 号 的 混淆 ,这 个 符号 已 用 来 表示 一 个 给 定 的 系统 中 布尔 类 
型 。 氢 能 看 做 是 表示 原子 类 型 (基本 类 型 揭 另 一 个 名 称 ) ,因为 就 类 型 系统 而 言 它们 没有 内 部 
结构 。 我 们 将 用 A,B,C 等 作为 基本 类 型 的 名 称 。 注 意 ,如 我 们 处 理 变量 和 类 型 变量 一 样 ,用 
A 表示 基本 类 型 ,同时 也 表示 基本 类 型 上 的 元 变量 ,应 从 上 下 文 来 判断 它 究竟 是 基本 类 型 还 是 
基本 类 型 的 元 变量 。 

- 办 扩展 A_ (9.1) 





新 语法 形式 
T := 类 型 : 
演 基本 类 型 





图 1.1 无 解释 的 基本 类 型 


一 个 没有 解释 的 类 型 有 用 吗 ? 答案 是 肯定 的 。 尽 管 我 们 没有 办 法 直接 命名 它 的 元 素 , 但 
仍 能 绑 定 取 值 于 一 个 基本 类 型 上 的 变量 。 比 如 ,函数 @: 


AX:A，X; 
* <fun> : A 一 A 


是 A 的 元 素 上 的 恒 等 函 数 ,不 管 这 些 元 素 是 什么 。 同 样 : 


中 ”本 章 中 讨论 的 系统 是 纯 类 型 lambda 演算 (参见 图 9.1) 的 各 种 扩展 。 相 应 的 OCaml 实现 ,fallsinple 包括 所 有 这 些 扩展 。 
@ ”从 现在 起 , 当 我 们 展示 求 值 的 结果 时 ,将 省 略 》 抽象 体 一 一 将 它们 只 记 为 <fun> 。 
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AX:B.Xx; 
of EBD 
是 B 上 的 恒 等 本 数 ,而 : 
Af:A 一 A.Ax:A. fCfCx)); 
* <fun> : (CA-A) 一 A 一 人 


是 一 个 函数 , 它 重复 两 次 函数 f 在 一 个 参数 x 上 的 行为 。 
11.2 单位 类 型 


怀 一 个 有 用 的 基本 类 型 ,特别 是 应 用 在 ML 系列 的 语言 中 ,是 图 11.2 中 描述 的 单个 类 型 
(Unit)。 与 上 一 节 中 无 解释 的 基本 类 型 相 比 , 这 个 类 型 是 可 以 用 最 可 能 简单 的 方式 进行 解释 
的 :我 们 显 式 地 引入 一 个 单个 元 素 [项 常量 unit( 记 为 小 写 的 u] 和 一 个 类 型 规则 使 hnit 是 Unit 的 
一 个 元 素 。 我 们 也 将 unit 加 到 计算 可 能 结果 的 值 的 集合 中 去 。 的 确 ,unit 是 求 值 类 型 Unit 的 表 
达 式 产生 的 惟一 的 可 能 结果 。 


一生 扩展 A_ f9. 刀 ) 
9 
新 语法 形式 | 新 关 型 规则 

家 二 人: 
1 常量 uniit TREE (CT-UNIT) 

新 导出 形式 

明王 二 让。 值 : 

常量 Un7t 

和 类 型 : 

HE 单位 类 型 

图 11.2 单位 类 型 


即使 是 在 一 个 纯 函 数 式 的 语言 中 ,类 型 Unit 也 不 是 完全 没有 意义 的 中 ,但 它 的 主要 应 用 是 
在 带 副 作用 的 语言 中 ,如 给 引用 单元 赋值 (在 第 13 章 将 讨论 这 个 话题 )。 在 这 样 的 语言 中 ,我 
们 所 关心 的 往往 是 表达 式 的 副作用 ,而 不 是 结果 ; Unit 是 这 样 表达 式 的 一 个 合适 的 结果 型 。 

Unit 的 作用 类 似 于 C 和 Java 这 样 的 语言 中 的 void 类 型 。 虽然 名 称 void 类 似 于 空 类 型 Bot 
(参见 15.4 节 ) ,但 void 的 使 用 实际 上 更 接近 我 们 的 Unit。 


11.3 导出 形式 :序列 和 通配符 


在 有 副作用 的 语言 中 ,对 序列 中 的 两 个 或 多 个 表达 式 求 值 常常 是 有 用 的 。 序 列 记号 bib 
有 这 样 的 效果 : 求 值 a , 扔 掉 它 平凡 的 结果 ,然后 继续 求 值 b。 


@ .读者 可 能 喜欢 下 面 的 问题 :11.2.1 练习 [ 雪 雪 雪 ] :在 只 带 基本 类 型 Unit 的 简单 类 型 lambda 演算 中 是 否 为 有 一 种 方法 
构造 一 个 项 的 序列 yb ,…, 使 得 对 每 个 n, 项 的 长 度 至 多 是 0O(n) ,但 求 值 到 一 个 范式 所 要 求 的 步 又 至 少 为 
O(2")? 
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实际 上 有 两 个 不 同 的 方法 来 形式 化 序列 。 一 个 是 采用 对 其 他 语法 形式 所 采用 的 方式 :在 
项 的 语法 中 加 入 一 个 新 的 定义 “5b ”和 两 个 求 值 规则 : 
tl 一 tl 
tlitz 一 tiitz (E-Seg) 
unit;t2z 一 ttz 
以 及 一 个 类 型 规则 : 
THFHtl :Unit THFt2z:T2 


(T-Seq) 


来 捕捉 “; ”的 行为 。 

形式 化 序列 的 另 一 个 方法 是 简单 地 将 uie 看 做 是 项 (MXxz:Unit.b)t 的 一 个 缩写 ,其 中 变量 
x 选择 为 新 变量 , 即 不 同 于 b 中 的 所 有 的 自由 变量 。 

直观 上 很 清楚 ,对 程序 员 而 言 ,这 两 种 序列 的 表示 是 相同 的 :序列 的 高 级 类 型 化 和 求 值 规 
则 能 由 (xx:Unit,b)b 的 缩写 形式 bib 导出 。 这 个 直观 对 应 更 形式 地 表示 为 :类 型 化 和 求 值 都 
能 与 缩写 形式 的 原形 交换 。 


11.3.1 定理 [序列 是 一 个 导出 形式 ]: 用 入 (怀表 示 外 部 语言 ) 表 示 带 有 类 型 Unit ,序列 构 
造 子 和 规则 巧 -Seq,E-Seqnext,T-Seq 的 简单 类 型 jambda 演 算 ; 和 (7 表示 内 部 语言 ) 表 示 只 带 
Unit 的 简单 类 型 lambda 演算 。 设 ee 六 一 人 是 通过 用 (Xx:Unitb 6 替换 t 沁 的 每 次 出 现 ， 
将 外 部 语言 转换 为 内 部 语言 的 细致 化 函数 ,其 中 在 每 种 情况 下 选择 x 为 新 值 。 现 在 ,对 
X< 的 每 个 项 t, 我们 有 : 

@t->zt 当 上 且 仅 当 e(bD->，ef() 

@ 下 上 t: 工 当 且 仅 当 PRHF efgtb:T 
其 中 入 和 入 的 求 值 和 类 型 关系 分 别 注 释 为 互 和 7 来 说 明 哪 一 个 是 哪 一 个 。 
证 明 : 当 且 仅 当 ” 的 两 个 方向 的 证 明 可 以 直接 对 t 的 结构 做 归纳 证 明 。 


定理 (11.3.1) 说 明了 术语 导出 形式 的 使 用 合法 性 ,因为 它 说 明 序列 构造 子 的 类 型 和 求 值 
行为 能 由 抽象 和 应 用 更 基本 操作 的 类 型 和 求 值 行为 推导 出 。 这 样 引 人 序列 作为 导出 形式 ,而 
不 是 作为 成 熟 语 言 构造 的 好 处 是 能 扩展 表面 语法 ( 即 程序 员 实 际 用 来 写 程序 的 语言 ) 而 不 增加 
内 部 语言 的 复杂 性 ,而且 这 些 内 部 语言 中 类 型 安全 性 等 定理 必须 证 明 。 这 种 分 解 语 言 特征 摘 
述 的 方法 早已 用 在 Algol 60 的 报告 (Naur 等 ,1963) 中 ,并 且 大 量 用 于 许多 新 近 的 语言 定义 中 ,如 
标准 ME 的 定义 (Milner,Tofte 和 Harper,1990; Milner, Tofte， Harper 和 MacQueen ,1997) 。 

根据 Landin, 导 出 形式 常常 称 为 语法 修饰 ,用 它 的 低级 定义 替代 一 个 导出 形式 称 为 化 简 。 

将 在 后 面 例子 中 用 到 的 另 一 个 导出 形式 是 变量 绑 定 器 的 “通配符 ”约定 。 比 如 ,在 化 简 序 
列 后 产生 的 项 中 ,我 们 常常 写 一 个 “虚拟 "lambda 抽象 ,其 中 参数 变量 不 是 真正 用 在 抽象 体 中 。 
在 这 种 情况 下 ,常常 不 得 不 明显 地 选择 一 个 圈 变 量 的 名 称 ; 而 我 们 更 喜欢 用 一 个 通配符 绑 定 器 
来 替代 它 , 记 为 _ 。 即 用 入 _:S$.t 表 示 )Xx:S$.t 的 缩写 ,其 中 x 是 某 个 在 t 中 不 出 现 的 变量 。 


11.3.2 ”练习 [*] :给 出 通配符 抽象 的 类 型 和 求 值 规则 ,并 且 证 明 它 们 能 从 上 述 的 缩写 中 
推导 出 。 
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11.4 归属 


另 一 个 常用 的 简单 特征 是 能 够 明显 地 将 一 个 特别 类 型 归属 为 一 个 给 定 的 项 ( 即 在 程序 的 
文本 中 记录 这 个 项 有 这 个 类 型 )。 用 "“t as T" 表 示 “ 我 们 将 类 型 了 归属 到 项 让 。 这 个 构造 子 ( 参 
见 图 11.3) 的 类 型 规则 T-Aseribe 简单 地 验证 了 所 归属 的 类 型 T 的 确 是 t 的 类 型 。 求 值 规则 
E-Ascribe 也 是 直接 的 : 它 只 是 丢掉 归属 ,让 t 自 由 地 求 值 。 





一 汪 扩展 A_(9.7) 
新 语法 形式 新 类 型 规则 
二 项 : 

十 归属 3 (T-ASCRIBE) 





新 求 值 规则 攻 二 | 


(上 -ASCRIBE) 


(人 -ASsCRIBEI) 








图 11.3 ”归属 


在 编程 时 有 几 种 情况 能 用 到 归属 。 一 个 常用 的 是 文档 。 它 有 时 使 读者 难以 得 到 一 个 大 的 
复合 表达 式 的 子 表达 式 类 型 。 合 法 地 使 用 归属 可 以 使 程序 易 读 。 类 似 地 ,在 一 个 特别 复杂 的 
表达 式 中 ,甚至 连 程序 员 也 不 是 很 清楚 所 有 的 子 表达 式 的 类 型 是 什么 。 加 入 若干 归属 是 一 个 
很 好 的 办 法 来 清晰 程序 员 的 思路 。 的 确 , 归 属 有 时 在 查 明令 人 不 解 的 类 型 错误 的 来 源 时 是 有 
帮助 的 。 

归属 的 另 一 个 用 处 是 控制 复杂 类 型 的 打印 。 本 书 中 用 来 检查 例子 的 类 现 检 查 器 一 一 及 其 
0OCaml 实现 ( 它 的 名 称 带 上 前 缀 fall) 提供 了 一 个 简单 的 机 制 来 引入 长 的 或 复杂 类 型 表达 式 的 
缩写 (为 了 易于 阅读 和 修改 常常 在 其 他 实现 中 省 略 缩写 机 制 )。 比 如 ,声明 ， 

UU = Unit~Unit; 
用 UU 表 示 Unit>Unit 的 一 个 缩写 。 当 见 到 UU 时 ,就 能 理解 为 Unir>Unit。 比 如 ,我 们 能 写 ， 
(CAf:UU.、f unit) (CAx:Unit.x); 


在 类 型 检查 的 过 程 中 ,这 些 缩写 必要 时 可 以 自动 扩张 。 相 反 地 ,类 型 检查 器 则 尽 可 能 地 采用 缩 
写 形式 (特别 地 ,每 次 它们 计算 一 个 子 项 的 类 型 时 ,检查 是 和 否 这 个 项 正好 匹配 住 柯 当前 定义 的 
缩写 ,如 果 匹配 ,就 用 缩写 替代 类 型 )。 这 一 般 会 给 出 合理 的 结果 ,但 有 时 我 们 可 以 要 求 一 个 类 
型 有 不 同 的 打印 方式 ,这 是 因为 简单 的 匹配 策略 导致 类 型 检查 器 忽略 采用 一 个 缩写 的 机 会 ( 比 
如 ,在 记录 类 型 的 字段 可 以 置换 的 系统 中 , 它 将 不 知道 1a: Bool ,b:Nat| 是 与 1b;Nat ,a: Bool| 可 
交换 的 ) ,或 者 是 因为 其 他 的 原因 。 比 如 ,在 ; 

Af:Unit 一 Unit，f; 


* <fun> : (Unit=Unit) - UU 
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缩写 UU 是 在 函数 的 结果 中 压缩 形式 ,但 在 它 的 参数 中 不 压缩 。 如 果 我 们 要 求 类 型 打印 为 UU 
一 UU, 可 以 要 么 改变 抽象 上 的 类 型 注释 : 
AF2UUS 咎 ; 
* <fun> : UU = 山 


要 么 在 整个 抽象 中 加 入 一 个 归属 ; 
(CAf:Unit--Unit. f) as UU 一 UU; 


* <fun> : UU 一 山 
当 类 型 检查 处 理 一 个 归属 tasT 时 , 它 扩 展 T 中 的 任何 缩写 , 当 检 查 到 t+ 有 类 型 T 时 ,然后 将 T 
本 身 作为 归属 的 类 型 。 这 种 用 归属 来 控制 类 型 的 打印 对 于 本 书 中 的 实现 方法 有 点 特殊 。 在 一 
个 成 熟 的 程序 语言 中 ,缩写 和 类 型 打印 的 机 制 要 么 不 必要 (在 Java 中 ,构造 所 有 的 类 型 是 用 短 
名 称 表示 的 ,参见 第 19 章 ) ,要 么 更 紧凑 地 整合 到 语言 中 (如 在 OCam 中 ,参见 Remy 和 Vouillon， 
1998; Vouillon ,2000 ) 。 

在 15.5 中 将 详细 讨论 关于 归属 的 一 个 用 处 是 抽象 机 制 。 在 一 个 项 + 可 以 拥有 多 种 类 型 
的 系统 中 (如 带子 类 型 的 系统 ) ,用 归属 来 “隐藏 "这 些 类 型 , 即 让 类 型 检查 器 把 + 当成 拥有 一 个 
更 小 的 类 型 集合 来 实现 抽象 机 制 。 归属 和 强制 转型 之 间 的 关系 也 将 在 15.5 节 中 讨论 。 

11.4.1 练习 [推荐 ,*x*]:(1) 说 明 如 何 形式 化 归属 为 一 个 导出 形式 。 证 明 这 里 给 出 的 “ 正 

式 ? 类 型 和 求 值 规则 在 一 个 适当 的 意义 下 对 应 于 你 的 定义 ;(2) 假 定 不 用 求 值 规则 

E-Ascribe 和 E-Ascribel ,我 们 给 出 一 个 “人 迫切” 规则: 

EUiasiE 1 (E-AscribeFager) 
尽早 丢掉 归属 。 归 属 是 否 仍 能 看 做 是 一 个 导出 形式 ? 


11.5 let 绑 定 


当 写 一 个 复杂 表达 式 时 (为 了 避免 重复 和 增加 可 读 性 ) ,常常 给 出 某 些 子 表达 式 名 称 。 大 
部 分 语言 提供 一 个 和 多 个 办 法 来 做 到 这 一 点 。 比 如 ,在 ML 中 ,我 们 写 let x =t iatb 来 表示 求 
值 表达 式 t ,并 且 在 求 值 b 时 绑 定 名 称 x 为 结果 值 。 

我 们 的 let 绑 定 器 (如 图 11.4 所 示 ) 是 根据 ML 的 按 值 调用 的 求 值 顺序 ,其 中 let 轩 项 必须 
在 对 let 体 的 求 值 之 前 完全 求 值 。 类 型 规则 T-Let 告诉 我 们 一 个 let 的 类 型 可 以 这 样 来 计算 : 通 
过 计算 let 轩 项 的 类 型 ,扩展 带 有 这 个 类 型 的 一 个 绑 定 上 下 文 ,并 且 在 这 个 扩展 的 上 下 文中 计 
算 体 的 类 型 ,这样 得 出 的 结果 就 是 整个 let 表 达 式 的 类 型 。 





一 3 本 扩展 A_ (9.1) 
新 语法 形式 
本 本 Rn 到 且 
了 EXst let 绑 定 
新 类 型 规则 


(IT-LET) 






(E-LETV) 


新 求 值 规则 





图 11.4 let 绑 定 
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11.S$.1 练习 [推荐 ,*** ] : letexereise 类 型 检查 器 (在 本 书 的 网 站 上 可 以 查 到 ) 是 一 个 let 

表达 式 的 不 完全 实现 :提供 了 基本 的 分 析 和 打印 函数 ,但 在 evall 和 fypeof 酌 数 中 漏 掉 了 

TmLet 的 子 句 (在 它们 的 位 置 , 会 出 现 与 所 有 都 匹配 并 使 程序 失败 的 虚拟 子 句 ,请 将 TmLet 

子 句 补 上 。 

let 也 能 定义 为 一 个 导出 形式 吗 ? 是 的 ,如 Landin 所 证 明 的 ;但 细节 比 我 们 对 序列 和 归属 
做 的 方法 要 复杂 。 直 观 地 ,很 清楚 我 们 可 以 用 抽象 和 应 用 的 组 合 来 达到 一 个 let 绑 定 的 效果 ， 

Tet x=tl in tz 馈 (AMx:Tito) ti 

但 注意 到 这 个 缩写 的 右 端 包括 类 型 注释 Ti , 它 不 出 现在 左 端 。 即 ,如 果 我 们 将 导出 式 想 像 为 
在 某 个 编译 器 的 语法 分 析 阶 段 的 化 简 , 则 需要 问 如 何 假设 分 析 器 知道 它 应 该 产生 的 T ,是 作 
为 在 化 简 后 的 内 部 语言 项 中 对 入 的 类 型 注释 。 

当然 ,回答 是 这 个 信息 来 自 类 型 检查 器 。 通 过 计算 b 的 类 型 找到 所 需 的 类 型 注释 。 和 更 形 
式 地 ,这 告诉 我 们 构造 子 let 是 不 同 与 我 们 到 现在 为 止 所 抑 的 导出 形式 :我 们 不 应 该 将 它 看 做 
是 一 个 项 上 化 简 后 的 转换 ,而 应 该 将 它 看 做 是 类 型 推导 的 一 个 转换 (或 是 对 带 有 化 简 后 分 析 结 
果 的 类 型 检查 器 的 项 的 转换 ) ,这 个 转换 将 含有 一- 闪 let 推导 ， 


TFti:T [,x:TI FF ft2 :Tz 
TreeiTTTar 
THF letXx=tl int?7 :T2 


映射 为 用 抽象 和 应 用 的 一 个 推导 


ITx:TihtziTz : 
FTPAxiT ti TTT Frtii:Ti 
THF (CAx:Ti,tz) tl :T> 
这 样 , 比 起 我 们 见 到 的 其 他 的 导出 形式 ,let 有 些 不 同 ， 我 们 能 通过 化 简 来 推导 它 的 求 值 行为 ， 
但 它 的 类 型 行为 必须 建立 在 内 部 语言 中 。 
在 第 22 章 中 ,将 看 到 另 一 个 原因 使 我 们 不 将 let 处 理 为 一 个 导出 形式 :在 带 Hindley-Milner 
的 ( 即 基于 合 一 的 ) 多 态 的 语言 中 ,类 型 检查 器 特别 处 理 le 构造 子 , 用 这 个 构造 子 来 推广 多 态 
定义 以 得 到 用 普通 入 抽象 和 应 用 不 能 仿效 的 类 型 。 


11.5.2 练习 [xx] :定义 let 为 一 个 导出 形式 的 另 一 种 方法 可 以 通过 直接 “执行 " 它 ,将 它 
化 简 ,即将 let x=' ip 看 做 是 代 换 体 [x -~ 6 je 的 缩写 。 这 是 一 个 好 想法 吗 ? 


11.6 序 对 


大 部 分 程序 语言 提供 各 种 方法 来 建立 复合 数据 结构 。 其 中 最 简单 的 是 序 对 ,或 更 一 般 的 
说 法 是 值 的 元 组 。 在 本 节 中 处 理 序 对 ,然后 在 11.7 节 和 11.8 节 中 讨论 元 组 和 标签 记录 的 更 
- 般 形 式 宁 。 


T-ApP 


中 ”fllsimple 的 实现 ,实际 上 没有 提供 这 里 序 对 的 语法 ,因为 元 组 是 更 一 般 的 形式 。 
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序 对 的 形式 化 太 简单 了 ,无 需 讨论 。 到 现在 为 止 我 们 能 像 读 一 段 文字 描述 那样 很 容易 理 
解 图 11.5 中 的 规则 。 尽 管 如 此 ,我 们 还 是 简单 地 看 一 下 以 普通 模式 定义 的 各 个 部 分 。 











-于 扩展 A_ 19.1) 
aspemaoamaocmuccoaucoeogaauisamianiagicapae 
新 语法 形式 | 
1 24 所 : (上 E-PROJ2) 
ca Rd 
第 一 投影 
第 二 投影 (E-PAIR1) 
V/ TO 后 值 : 
和 值 序 时 人 (E-PAIR2) 
本 类 型 ，| 新 类 型 规则 
天 区 卫 乘积 类 型 ie 
(T-PAIR) 
新 求 值 规则 | 
0 上 (上 -PAIRBETAI) (T-PROJID) 
(E-PAIRBETA2) 
(T-PROJ2) 
(E-PROJI) 
于 入 序 对 


将 序 对 加 入 到 简单 类 型 lambda 演算 包括 将 项 的 两 个 新 形式 的 项 - 序 对 , 记 为 lb,bf 和 投 
影 ,t 第 一 投影 记 为 t.1,t.2 表示 t 的 第 二 投影 ,加 上 一 个 新 的 类 型 构造 子 Ti x 开 , 称 为 下 和 了 
的 乘积 (或 有 时 称 为 笛 卡 儿 乘积 )。 用 大 括号 表示 序 对 ,以 强调 与 11.8 节 中 记录 的 联系 。 

对 于 求 值 , 我 们 需要 几 个 新 的 规则 说 明 序 对 和 投影 的 行为 。E-PairBetal 和 E-PairBeta2 说 
明 当 一 个 完全 求 值 的 序 对 遇 到 一 个 第 一 或 第 二 投影 时 ,结果 是 适当 的 分 量 。 当 被 投影 的 项 还 
没有 完全 求 值 时 ,EProjl 和 已 Proj2 允许 在 投影 下 归 约 。EPairl 和 已 Pair2 对 序 对 中 的 分 量 求 
值 :首先 是 左边 的 分 量 , 然 后 是 当 左 边 变 成 一 个 值 时 再 对 右边 分 量 求 值 。 

在 这 些 规 则 ,中 元 变量 v 和 't 的 使 用 次 序 使 我 们 必须 采用 从 左 到 右 的 求 值 策略 。 比 如 ， 
组 合 项 : | 

{fpred 4，if true then false else false}.1 


只 能 求 值 如 下 : 


{fpred 4, iftrue then false else falsej}.1 
一 ，{3, iftrue then false else falsej}.1 
一 ，{3, false}.1 
一 3 


@ ”大 括号 对 序 对 和 元 组 不 合适 ,因为 大 括号 是 数学 中 表示 集合 的 符号 。 在 像 ML 这 样 的 大 众 语言 中 和 研究 文献 中 通 
常 将 序 对 和 元 组 括 在 小 括号 中 。 也 采用 其 他 像 方 括号 或 尖 括 号 的 符号 。 
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我 们 也 需要 加 入 一 个 新 的 子 句 到 值 的 定义 中 ,以 说 明 iv ,1 是 一 个 值 。 一 个 序 对 的 值 的 分 量 
必须 本 身 也 是 值 ,这 样 可 保证 将 序 对 作为 参数 传递 给 函数 时 已 经 经 过 了 完全 求 值 以 供 函数 体 
执行 时 用 。 比 如 : 
CAx:NatxNat. x.2) {fpred4,， pred 5} 

EULRCAXY Na NAESX227 03 Dredsj} 

一 (CAx:NatXxNat. x.2) {3,4} 

一 {3,4}.2 

和 
序 对 和 投影 的 类 型 规则 是 直接 的 。 引 入 规则 T-Pair 说 明 :如 果 t 有 类 型 Ti 并 且 口 有 类 型 了 下 ， 
则 1t ,bo} 有 类 型 T x 卫 。 反 之 , 消 规则 TProjl 和 人 Prmj2 告 诉 我 们 :如 果 tb 有 一 个 乘积 类 型 
T x Ti，( 即 如 果 它 将 求 值 为 一 个 序 对 ) , 则 这 个 序 对 投影 的 类 型 是 Ti 和 Ta。 


11.7 元 组 


很 容易 推广 上 一 节 中 二 元 乘积 到 ” 元 乘积 ( 常 称 为 元 组 )。 比 如 11,2,tmue| 是 一 个 三 元 组 ， 
包含 两 个 数 和 一 个 布尔 值 。 它 的 类 型 记 为 1Nat ,Nat ,Bool| 。 

这 个 推广 的 惟一 代价 是 为 形式 化 这 个 系统 ,我 们 需要 提出 一 些 符号 来 统一 地 描述 任意 元 的 
结构 ;这 样 的 符号 总 是 存在 问题 的 ,因为 在 严密 性 和 可 读 性 之 间 总 有 不 可 避免 的 矛盾 。 我 们 用 
ft:sl 2} 表 示 王 个 项 5 的 元 组 ,并 且 用 {T“…"} 表 示 它 的 类 型 。 注 意 这 里 的 ” 可 认为 
0; 在 这 种 情况 下 ,范围 1…n 为 空 , 并 且 {ft“…"} 是 十 , 即 空 元 组 。 注 意 值 5 与 含 一 个 元 素 的 元 
组 15} 是 有 差别 的 :我 们 对 后 者 惟一 合法 的 操作 是 可 以 投影 它 的 第 一 分 量 。 

图 11.6 形 式 化 了 元 组 。 定 义 类 似 于 乘积 (如 图 11;5 所 示 ) 的 定义 ,只 是 序 对 的 每 个 规则 
推广 到 m 元 情况 , 且 对 第 一 和 第 二 投影 的 每 对 规则 变 成 对 元 组 做 任意 投影 的 单个 规则 。 惟 一 
需要 说 明 的 规则 是 E-Tuple, 它 结合 并 推广 了 图 11.5 中 的 规则 E-Pairl 和 了 -Paiz2。 也 就 是 说 ,如 
果 我 们 有 一 个 元 组 中 所 有 字段 ) 左边 的 字段 已 经 归 约 为 值 , 则 这 个 字段 能 从 一 步 求 值 到 才 。 
元 变量 的 使 用 使 我 们 采用 从 左 到 右 的 求 值 策略 。 















- 轩 扩展 4. (9.7) 
新 语法 形式 
局 项 : 二 (E-PROJ) 
元 组 
(E-TUPLE) 
二 值 : 
和 元 组 值 人 
新 类 型 化 规则 
AR 类 型 : 
新 求 值 规则 
sa Cr-PRoD 





(E-PROJTUPELE) 
| 





图 11.6 元 组 
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11.8 记录 


从 半 元 组 推广 到 带 标签 的 记录 也 是 直接 的 。 对 每 个 字段 ,我 们 简单 从 某 个 事先 确定 的 
集合 上 中 取 一 个 标签 1, 注释 字段 ti。 比 如 ,1x= 31 和 |partno =5524,cost = 30.271} 是 记录 值 ; 它 
们 的 类 型 是 }x:Nat| 和 1parmo:Nat ,cost:Float| 。 要 求 在 一 个 给 定 的 记录 项 或 类 型 中 所 有 的 标签 
是 不 同 的 。 

图 11.7 给 出 记录 的 规则 。 惟 一 值得 注意 的 规则 是 E-ProjRcd, 它 依赖 一 个 稍微 非 形式 的 约 
定 。 这 个 规则 应 理解 如 下 :如果 几 , = ws 中 是 一 个 记录 ,并 且 1 是 它 的 第 7 个 字段 的 一 个 标 
签 ;, 则 册 = ws ?1 .7 一 步 求 值 为 第 7 个 值 w。 这 个 约定 (和 在 E-ProjTuple 中 用 的 类 似 ) 能 通 
过 用 一 个 更 明显 的 形式 重 写 规则 来 消除 它 ;尽管 如 此 ,可 读 性 的 代价 是 相当 高 的 。 

一 和 扩展 入 (9.71) 









新 语法 形式 
二 项 : 


: (上 -PROJ) 
记录 












投影 
(FE-RCD) 
V := 值 ; 
记录 值 2 
ON 型 , 
Te 记录 类 型 CERcD) 
新 求 值 规则 
RN 1 T-PRO 
ww (E-PROJRCD) 称 R99 
图 11.7 记录 


11.8.1 练习 [* 广 ] :为 了 比较 ,请 更 明显 地 写 出 E-ProjRcd。 


注意 相同 的 “特征 符号 作出 现在 元 组 和 乘积 定义 的 左上 角 的 特征 列表 中 。 的 确 ,我 们 能 
将 元 组 看 做 是 一 种 特殊 的 记录 ,简单 地 允许 标签 的 集合 含有 字母 标识 符 和 自然 数 。 则 当 一 个 
记录 的 第 〖 个 字段 有 标记 过 时 ,可 以 省 略 这 个 标签 。 比 如 ,我 们 将 { Bool ,Nat ,Bool} 看 做 是 
11:Bool 2:Nat ,3:Bool| 的 一 个 缩写 人 这 个 约定 实际 上 人 允许 我 们 将 命名 和 位 置 混淆 的 字段 ,用 
{a: Bool ,Nat ,c:Bool} 表示 {a:Bool,2:Nat ,c: Bool| 的 一 个 缩写 ,尽管 这 在 实际 中 没有 什么 用 
处 )。 事 实 上 ,许多 语言 保持 元 组 和 记录 的 符号 不 同 是 因为 一 个 更 实用 的 理由 :编译 器 用 不 同 
方法 实现 它们 。 

程序 语言 在 处 理 记录 字段 的 次 序 上 有 所 不 同 。 在 许多 语言 中 ,记录 值 和 记录 类 型 中 字段 
的 次 序 对 意义 没有 影响 一 一 即 ,项 {partno = 5524, cost = 30.27}| 和 | cost = 30.27, partno = 5524| 有 
相同 的 意义 和 相同 的 类 型 ,并 且 可 以 记 为 1partno:Nat,cost:Float| 或 {eost:Rloat,partnmo:Nat| 。 这 里 
采用 另 一 种 表示 方法 :将 |partno = 5524, cost = 30.271 和 { cost = 30.27,partno = 55241} 视 为 不 同 的 
记录 值 ,类 型 分 别 是 {partno:Nat, cost:Float| 和 |{ cost:Float,partno:Nat| 。 在 第 15 章 中 ,对 次 序 将 采 
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用 一 个 更 自由 的 观点 ,引入 一 个 子 类 型 关系 ,其 中 类 型 | partno: Nat, cost: Float| 和 { cost: Float， 
partno: Nat| 是 等 价 的 (每 个 是 另 一 个 的 子 类 型 ) ,使 得 一 个 类 型 的 项 可 以 用 在 任何 一 个 期 望 得 
到 其 他 类 型 的 上 下 文中 (有 了 子 类 型 后 ,有 序 和 无 序 的 记录 之 间 的 选择 对 性 能 有 着 重要 的 影 
响 ; 这 些 将 在 15.6 节 中 进一步 讨论 。 一 旦 确定 采用 无 序 的 记录 ,选择 是 否 考虑 记录 在 开始 时 
是 无 序 的 , 还 是 原始 地 将 字段 看 做 是 有 序 的 ,然后 给 出 可 以 忽略 序 的 规则 ,这 是 一 个 看 法 的 问 
题 。 这 里 采用 后 一 种 处 理 , 因为 它 允 许 我 们 讨论 这 两 个 选择 )。 


11.8.2 练习 [xx*] :在 我 们 记录 的 表示 中 ,投影 操作 用 来 一 次 抽取 记录 的 一 个 字段 。 许 
多 高 级 程序 语言 提供 了 另 一 种 模式 匹配 语法 , 即 一 次 抽取 所 有 的 字段 ,让 程序 可 以 简洁 地 
表示 。 模 式 也 可 以 是 舱 套 的 ,允许 很 容易 地 从 复杂 的 艇 套 的 数据 结构 中 抽取 出 一 部 分 来 。 
我 们 能 在 带 记录 的 无 类 型 lambda 演算 上 加 入 一 企 简 单 形 式 的 模式 匹配 ,通过 加 一 个 新 模 
式 语 法 范畴 ,以 及 一 个 (模式 匹配 构造 子 本 身 ) 新 的 情况 到 项 的 语法 中 (参见 图 11.8)。 








- fj 1et 嘲 ( 无 类 型 扩展 14.7 和 了 171.4 
新 语法 形式 
半 := 泪 变量 模式 (M-RCD) 
3 记录 模式 | “二 二 
项 :| 新 求 值 规则 0 
模式 绑 定 | 1et 六 -vin t> 一 MRIc。 (E-LzrV) 





tl 一 ti 


iT 
CCvAn) | et 蒜 =tl in t2 蒜 =t 2 











图 11.8 (无 类 型 的 ) 记 录 模 式 


用 模式 匹配 的 计算 规则 来 推广 图 11.4 中 的 let 绑 定 规 则 。 它 依赖 一 个 辅助 的 “匹配 ” 画 
数 : 给 定 一 个 模式 p 和 一 个 值 v, 这 个 函数 要 么 失败 (指出 v 与 p 不 匹配 ) ,要 么 产生 一 个 代 换 ， 
将 出 现在 p 中 变量 映射 到 v 的 相应 部 分 。 比 如 , maioji (1x,yl,15,tmue}l) 产 生 代 换 [x Fr=- 5,y Fr 
true] ,mailch(x, 15,true|) 产 生 [x Fr=-1s,true|j] ,而 match(|xl,1s,truel) 失 败 。E-LetV 使 用 matcp 
来 给 p 中 的 变量 计算 一 个 的 合适 代 换 。 

maich 函数 本 身 是 由 一 个 推论 规则 集合 所 定义 的 。M-Var 规则 说 明 一 个 变量 模式 总 是 成 
功 地 送 回 一 个 ,将 变量 映射 到 与 之 匹配 的 整个 值 的 代 换 。M-Red 规则 说 明 为 了 匹配 一 个 记录 
模式 册 = pe? 与 一 个 (相同 长 度 的 , 带 相同 标签 的 ) 记 录 值 1 = vs1" | ,我 们 分 别 匹配 每 
个 子 模式 p; 与 相应 的 值 vi; 来 得 到 一 个 代 换 ci ,并 通过 合成 所 有 这 些 代 换 以 建立 最 终 的 代 换 
《要 求 在 一 个 模式 中 没有 变量 出 现 多 于 一 次 ,这 样 代 换 的 合成 就 是 它们 的 并 )。 下 面 请 说 明 如 
何在 这 个 系统 中 加 入 类 型 。 

1. 给 出 新 构造 子 的 类 型 规则 (必要 时 ,可 对 语法 做 修改 )。 

2. 写 出 整个 演算 的 类 型 保持 和 进展 定理 的 一 个 证 明 提 纲 (不 需要 给 出 整个 证 明 , 只 是 用 

正确 的 次 序 陈述 所 需要 的 引 理 )。 
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11.9 和 


许多 程序 需要 处 理 值 的 异类 集合 。 比 如 ,一 个 二 叉 树 上 的 一 个 节点 可 以 是 一 个 叶子 ,也 可 
以 是 一 个 带 有 两 个 子 节点 的 内 部 节点 ; 类 似 地 ,一 个 列表 单元 可 以 是 nil 或 是 一 个 带 有 一 个 头 
和 一 个 尾 的 cons 单元 ,在 编译 器 中 一 个 抽象 语法 树 的 一 个 节点 能 表示 一 个 变量 .一 个 抽象 和 
一 个 应 用 等 。 支 持 这 种 程序 的 类 型 论 机 制 是 变 式 类 型 。 

在 完全 一 般 化 引入 变 式 之 前 (参见 11.10 节 ) ,考虑 一 个 较 简单 的 情况 :二 元 和 类 型 。 一 个 
和 类 型 描述 从 两 个 给 定 类 型 中 到 值 的 集合 。 比 如 ,假定 我 们 用 类 型 : 


physicalAddr = {firstlast:String， addr:Stringl; 
VirtualAddr = {fname:String，emai1:Stringj; 


表示 不 同 的 地 址 - 预定 记录 。 如 果 要 统一 地 处 理 两 种 记录 (例如 ,要 做 一 个 包 信 两 种 记录 的 列 
表 ) ,可 引 人 和 类 型 @， 
Addr = physicalAddr + Virtua1Addr 


它 的 元 素 , 要 么 是 一 个 PhysicalAddr, 要 么 是 一 个 VirtualAddr。 
通过 标记 类 型 为 PhysicalAddr 和 VirualAddr 的 分 量 的 元 素来 产生 这 个 类 型 的 元 素 。 比 如 ,如 
果 pa 是 一 个 PhysicalAddr, 则 inl pa 是 一 个 Addr( 标 记 inl 和 inr 的 名 称 是 因为 把 它们 看 做 是 函数 : 
in1 : PhysicalAddr -~ PhysicalAddr+VirtualAddr 
inr : VirtualAddr - physicalAddr+Virtua1Addr 
即将 PhysicalAddr 或 VirtualAddr 的 元 素 投 入 到 类 型 Addr 的 左边 和 右边 的 分 量 中 。 注 意 ,尽管 
如 此 ,它们 在 我 们 的 表示 中 不 作为 函数 处 理 ) 。 
一 般 地 ,一 个 类 型 T + 呈 的 元 素 是 由 标记 为 ia 的 Ti 元 素 和 标记 为 inr 的 卫 元 素 组 成 的 。 
为 了 使 用 和 类 型 的 元 素 , 引 人 一 个 构造 子 case, 允许 我 们 区 分 一 个 值 是 来 自 和 类 型 左边 的 
还 是 右边 的 分 支 。 比 如 ,我 们 能 从 一 个 Addr 中 抽取 一 个 名 称 , 像 


getName = Aa:Addr. 
Case a of 
in1 X ”= X.first]ast 
| Tnr y > yY.namey; 
当 参 数 a 是 一 个 标记 为 ml 的 PhysiecalAddr, case 字段 表达 式 将 取 第 一 个 分 支 , 绑 定 变量 x 为 
PhysicalAddr; 第 一 个 分 支 从 x 中 抽取 fistlast 字 段 并 返回 它 。 类 似 地 ,如 果 a 是 一 个 标记 为 inr 的 
值 VirtualAddr, 第 二 分 支 将 被 选择 ,并且 送 回 VirualAddr 的 name 字 段 。 这 样 ,整个 函数 getName 的 
类 型 是 Addr->String。 
上 述 的 直观 讨论 形式 地 表述 在 图 11.9 中 。 对 于 项 的 语法 ,我 们 加 上 左 投 入 \ 右 投入 以 及 
构造 case; 对 于 类 型 ,可 加 上 和 构造 子 。 对 于 求 值 , 加 和 两 个 关于 构造 case 的 “beta 归 约 ?规则 
一 一 一 个 用 于 第 一 个 子 项 已 归 约 到 一 个 标记 为 il 的 值 w 的 情况 , 另 一 个 用 于 第 一 个 子 项 已 


中 ” 像 大 部 分 变化 类 型 的 实际 使 用 一 样 ,这 些 例 子 也 含有 递归 类 型 一 一 一 个 列表 的 尾 也 是 一 个 列表 等 。 我 们 将 在 
第 20 章 中 讨论 递归 类 型 。 
@ fansimple 的 实现 实际 上 不 支持 我 们 这 里 描述 的 二 元 和 的 构造 子 一 一 只 支持 下 面 将 描述 的 更 一 般 的 变化 。 
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归 约 到 一 个 标记 为 inr 的 值 w 的 情况 ; 在 每 种 情况 中 ,选择 适当 的 体 , 并 且 用 w 代 换 团 变 量 。 
其 他 求 值 规则 在 case 的 第 一 个 子 项 中 ,并 在 il 和 inr 标记 下 执行 求 值 。 


- 妇 扩展 A. (9.71) 






(上 -IND) 





有 左 标记 值 
YYV ! 右 标记 值 (E-INR) 
让 类 型 本 
ae 和 类 型 | 新 类 型 化 规则 rrti:T] 
ES (T-IND 
(E-CASEIND) (TINR) 


(E-CASEINR) 








图 11.9 和 


标记 的 类 型 规则 是 直接 的 :为 了 说 明 inl tb 有 一 个 和 类 型 T + 了 ,只 要 说 明 nu 属于 左边 被 
加 数 T ,并 且 inr 类 似 。 对 于 case 结构 ,首先 检查 第 一 个 子 项 有 一 个 和 类 型 Ti + 卫 ,然后 检查 
两 个 分 支 的 体 tb 和 有 相同 结果 类 型 T, 假 设 它们 轩 变 量 a 和 交 分 别 有 类 型 冰 和 卫 ; 整个 
case 的 结果 则 是 T。 遵 循 以 前 定义 的 约定 ,图 11.9 没有 明确 说 明 变量 x 和 z 的 辖 域 是 分 支 体 
6 和 口 ,但 这 个 事实 可 以 从 类 型 规则 T-Case 中 扩展 的 上 下 文中 得 出 。 


11.9.1 ”练习 [xx*] :注意 case 的 类 型 规则 和 图 8.1 中 让 的 类 型 规则 具有 相似 性 :让 能 看 做 
是 case 的 一 个 退化 形式 ,其 中 没有 信息 传 到 分 支 上 。 请 将 tue,false 和 站 定 义 为 和 类 型 以 及 
Unit 类 型 的 导出 形式 ,形式 化 上 面 的 说 法 。 


类 型 的 和 以 及 惟一 性 


纯 入 . (参见 9.3 节 ) 的 类 型 关系 的 大 部 分 性 质 可 扩展 到 含 和 类 型 的 系统 中 ,但 一 个 重要 的 
性 质 则 不 能 : 即 类 型 惟一 性 定理 (9.3.3)。 困 难 来 自 于 标记 结构 inl 和 inr。 比 如 说 ,类 型 规则 
T-Inl 表明 :一 旦 我 们 已 经 说 明 t 是 开 的 一 个 元 素 , 就 能 导出 对 任何 类 型 T ,inl bt 是 Ti + 的 一 
个 元 素 。 比 如 ;我 们 能 导出 inl $:Nat + Nat 和 inl $:Nat + Bool( 以 及 无 限 多 个 其 他 类 型 ) 。 类 型 惟 
一 性 的 不 成 立意 味 着 我 们 不 能 简单 地 “ 自 底 向 上 读 所 有 的 规则 ?来 建立 一 个 类 型 检查 算法 ,就 
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像 我 们 一 直 这 样 做 的 那样 。 这 时 ,可 有 几 种 选择 : 

1. 复杂 化 类 型 检查 算法 使 得 它 能 “ 猜 出 ?T 的 一 个 值 。 具 体 地 说 ,在 这 时 将 卫 设 为 不 确定 ， 
并 在 以 后 设法 发 现 它 的 值 应 该 是 什么 。 这 样 的 技术 将 在 考虑 类 型 重 构 ( 参 见 第 22 章 ) 
时 做 深入 讨论 。 

2. 改进 类 型 的 语言 让 它 一 致 地 表示 呈 的 所 有 可 能 值 。 这 个 选择 将 在 讨论 子 类 型 (参见 
第 15 章 ) 时 做 探讨 s 

3. 可 以 要 求 程序 员 提供 一 个 明显 的 注释 来 指明 类 型 歼 意 指 的 是 哪 一 个 :这 是 一 个 最 简 
单 的 方法 ,并且 它 并 不 像 看 起 来 那样 不 切实 际 , 因 为 在 完整 的 语言 设计 中 ,这 些 明显 的 
注释 常常 可 以 “背负 ?在 其 他 语言 的 结构 中 ,并 且 几 乎 是 不 可 见 的 (将 在 下 一 节 中 回 到 
这 一 点 )。 我 们 暂时 采取 这 种 选择 。 

图 11.10 说 明 关于 图 11.9 的 需要 扩展 。 我 们 不 用 inl t 或 inr t, 而 是 用 inl tasT 或 inr t as T， 
其 中 了 T 说 明 我 们 要 投入 的 元 素 属 于 整个 和 类 型 。 类 型 规则 TInl 和 T-Inr 在 检查 了 投入 项 实际 
属于 和 类 型 的 合适 分 支 之 后 ,将 声明 的 和 类 型 作为 投入 的 类 型 (为 避免 在 规则 中 重复 写 
T + 中 ,语法 规则 允许 任何 类 型 T 作 为 投入 的 注释 。 类 型 规则 确保 注释 总 是 一 个 和 类 型 ,如 果 
投入 是 良 类 型 的 ) 。 类 型 注释 的 语法 建议 采用 11.4 节 中 归属 结构 :事实 上 这 些 注释 可 以 看 做 
是 语法 上 要 求 的 归属 。 














一 :未 扩展 A- {9. 下 ) 
case (inr vo 6) 
项 : of jin] xli>tl | inr xz>=>tz ” (E-CASEINR) 
( 左 ) 标记 一 [xz 一 vojt2 
( 右 ) 标记 本 后 本 
人 值 : in1 tl 沽 风格 一 in1 t1 注 和 和 
in1 v 请 ( 左 ) 标记 值 人 
inr v 入 汪 ( 右 ) 标 记 值 | ”TFT 请 二 in 二。 
新 类 型 规则 新 类 型 规则 
和 工 Ftli :Ti 
case (inl vo 六 6) 2 (T-IND) 
of inl xi=>tl | inr xz2ta ，(E-CASEIND T F inl tl 有 : Ti+Tz 
一 [xl 一 vojtl 上 起 3 T> i 
FF 二 
11.10 〈( 带 惟一 类 型 的 ) 和 
11.10 变 式 


二 元 和 推广 为 带 标签 的 变 式 就 像 乘积 推广 为 含 标签 的 记录 。 我 们 不 把 它 写 成 了 + 呈 , 而 
是 记 为 <1 :T 沁 :; 了 > ,其 中 1 和 了 是 字段 标签 。 不 用 inl t as 了 + 了 ,而 用 <1 =t>as 
<13:T ,1 :TD > 。 不 用 给 含 nl 和 inr 的 case 分 支 加 上 标签 , 而 是 用 同一 标签 作为 相应 的 和 类 
型 。 有 了 这 些 推广 ,上 节 中 的 getAddr 例子 变 成 : 
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一 -~ 


Addr = <physica1:PhysicalAddr，virtual:Vj rtualAddr>; 
a = <physical=pa> as Addr; 


* a :Addr 


getName = Aa:Addr . 
Case a of 
<physical1=x> > x.first1ast 
| <virtual=y> = y.name; 


* getName ; Addr 一 String 


变 式 的 形式 定义 在 图 11.11 中 给 出 。 注 意 , 如 同 11.8 中 的 记录 一 样 ,在 一 个 变 式 的 类 型 中 标 
签 的 次 序 在 这 里 是 重要 的 。 












一 区 扩展 入 (9.71) 
ea 生 。 ， (E-CASE) 
类 型 : (E-VARIANT) 

变 式 类 型 


(T-VARIANT) 
(E-CASEVARIANT) 


(T-CASE) 


人 | 


图 11.11 变 式 





选择 
关于 变 式 的 一 个 有 用 的 习惯 用 法 是 选 值 。 比 如 ,类 型 

OptionalNat = <none:Unit，some:Nat>; 
的 一 个 元 素 要 么 是 带 有 标记 none 的 平凡 unit 值 , 要 么 是 带 有 标记 some 的 一 个 数 。 换言之 ,类 
型 OptionalNat 是 同 构 于 由 一 个 附加 不 同 值 none 扩充 的 Nat。 比如 ,类 型 : 

Table = _ Nat 一 OptionalNat; 
表示 从 数 到 数 的 有 限 映射 :这 样 的 一 个 映射 的 定义 域 是 输入 的 集合 , 对 某 个 / 结果 为 
< some = 由 > 。 如 果 空 表 : 

emptyTable = An:Nat. <none=unit> as Optiona1lNat; 


* emptyTable : Table 
是 一 个 常量 函数 ,对 每 个 输入 返回 mone。 构 造 子 ， 
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extendTable = 
At:Table. Am:Nat. Av:Nat. 


An:Nat. 
if equal n m then <some=v> as Optiona1Nat 


else 七 ni; 
* extendTab1le : Tabie -- Nat -~ Nat - Table 
取 一 个 表 并 加 上 (或 禾 盖 ) 一 个 条 件 输入 映射 ,将 输入 吓 映 射 到 输出 < some = v> [equal 函数 定 
义 在 练习 (11.11.1) 的 答案 中 ]。 
可 以 通过 封装 case 语句 来 对 Table 查找 ,从 而 得 到 结果 。 比 如 ,如 果 t 为 所 定义 的 表 并 且 
要 查找 条 件 5 的 情况 ,可 以 写 为 : 


x = Case t(5) of 
<nhone=u> > 999 
| <Some=v> = Vi; 


当 t 在 5 上 无 定义 的 情况 下 ,将 999 作为 x 的 默认 值 。 

许多 语言 对 选择 提供 内 置 的 支持 。 比 如 ,0OCaml 预定 义 了 一 个 类 型 构造 子 option, 以 及 在 
典型 的 OCaml 程序 中 许多 函数 产生 选择 。 在 像 C,C++ 和 Java 的 语言 中 ,null 值 实际 上 是 一 个 
伪装 的 选择 。 在 这 些 语言 中 类 型 T 的 一 个 变量 (其 中 T 是 一 个 “引用 类 型 "一 即 在 堆栈 中 所 
分 配 的 ) 能 实际 包含 一 个 特殊 值 nal ,或 一 个 指向 T 值 的 指针 。 即 这 样 一 个 变量 的 类 型 是 真正 
的 Ret(Option(T) ) ,其 中 Option(T) = < none: Unit,some:T> 。 第 13 章 将 深入 讨论 构造 子 Ref。 
枚 举 

有 了 两 个 变 式 类 型 的 “退化 情况 ”值得 特别 注意 : 枚 举 的 类 型 和 单个 字段 的 变 式 。 

一 个 枚 举 的 类 型 (或 枚 举 ) 是 一 个 变 式 类 型 ,其 中 与 每 个 标签 相关 的 字段 类 型 是 Unit。 比 
如 ,一 个 表示 工作 周 中 星期 几 的 类 型 可 以 定义 为 : 

Weekday = <monday:Unit，tuesday:Unit， wednesday :Unit， 
thursday :Unit，friday:Unit> 
这 个 类 型 的 元 素 是 < monday = unit > as Weekday 这 样 的 项 。 的 确 , 因 为 类 型 Unit 只 有 unit 作为 
其 成 员 ,类 型 Weekday 共有 5 个 值 ,每 个 值 对 应 一 周 的 一 天 。 构 造 子 case 可 以 用 来 定义 枚 举 类 
型 上 的 计算 : 
nextBusinessDay = Aw:Weekday . 
case W of <monday=x> <tuesday=unit> as Weekday 

<tuesday=x> “” 忆 <wednesday=unit> as weekday 
<wednesday=x> > <thursday=unit> as Weekday 
<thursday=x> <friday=unit> as Weekday 
<friday=x> ”> <monday=unit> as Weekday; 
显然 ,我们 这 里 用 的 具体 语法 使 得 程序 不 易 写 和 不 易 读 。 某 些 语言 (最 早 是 Pasoal) 提 供 特殊 语法 
来 声明 和 使 用 枚 举 类 型 。 其 他 语言 (如 ML) 将 枚 举 作 为 变 式 的 一 个 特殊 情况 。 


单字 段 变 式 


另 一 个 有 意思 的 特殊 情况 是 只 带 单个 标签 1 的 变 式 类 型 
V = <1:T>; 
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这 样 的 类 型 初 看 起 来 可 能 不 是 非常 有 用 :上 毕竟 V 的 元 素 将 一 一 对 应 于 字段 类 型 了 的 元 素 , 因 
为 V 的 每 个 成 员 有 形式 <1=t> (对 某 个 上 T)。 重 要 的 是 在 T 上 的 通常 操作 在 没有 事先 解 包 
它们 时 ,不 可 以 应 用 到 V 的 元 素 : 一 个 V 不 可 能 磁 巧 为 一 个 T。 
比如 ,假设 我 们 写 一 个 程序 做 多 币 种 财务 计算 。 这 样 的 一 个 程序 可 以 包括 在 美元 和 欧元 
之 间 的 转换 函数 。 如 果 两 个 表示 为 Float, 则 这 些 本 数 看 起 来 像 这 样 : 
do11ars2zeuros = Ad:Fl1oat， timesfloat d 1.1325; 


* do11arszeuros : Float 一 Float 
euros2do]11ars = Ae:F1oat，. timesfloat e 0.883; 


* euros2dol1iars : Float 一 Fl1oat 
(其 中 timesfloat:Float->Float->Float 乘 以 浮 点 数 ) 如 果 我 们 从 一 个 美元 数目 开始 ， 
mybankbalance = 39.50; 
可 以 转换 为 欧元 ,然后 像 这 样 : 
euros2do1l1lars (do11ars2zeuros mybankbalance) ; 
* 39.49990125 : Float 
转换 回 美元 。 所 有 这 些 部 有 意义 。 但 我 们 很 容易 执行 完全 没有 意义 的 操作 运算 。 比 如 ,可 以 
转换 我 的 银行 存款 到 欧元 两 次 : 
doliars2euros (do11ars2euros mybankba1lance) ; 
> 590.660971875 : Fl1oat 
因为 所 有 的 数目 简单 地 表示 为 浮 点 ,没有 办 法 可 以 帮助 类 型 系统 阻止 这 种 无 意义 的 行为 。 尽 
管 如 此 ,如果 我 们 定义 美元 和 欧元 为 不 同 的 变 式 类 型 (它们 的 根本 表示 是 浮 点 型 ); 


Dol11arAmount = <do11ars:F1oat> ; 
EuroAmount = <euros:Float>; 


则 可 以 定义 转换 函数 的 安全 形式 ,它们 将 只 接受 当前 币 种 的 数目 。 


do11arsz2euros = 
Ad:Do11arAmount. 
case d of <do11ars=Xx> > 
<euros = timesfloat X 1.1325> as EuroAmount; 


* do11ars2euros : Doj1arAmount 一 EuroAmount 
eurosz2do11ars = 
Ae:EuroAnmount . 
Case ee Of <euros=X> 人 
<dol11lars = timesfloat Xx 0.883> as Do11arAmount ; 


* euros2dol1lars : EuroAmount 一 Do11arAmount 
现在 类 型 检查 器 可 以 跟踪 在 计算 中 用 到 的 币 种 ,并 且 提 醒 我 们 如 何 解释 最 终结 果 ; 


mybankbalance = <dol1lars=39.50> as Do1]1arAmount:; 
euros2do11ars (do11ars2euros mybankba1ance) ; 


* <do11ars=39.49990125> as Do11arAmount : Do11arAmount 
此 外 ,如 果 写 一 个 无 意义 的 两 次 转换 ,类 型 将 不 能 匹配 ,并 且 我 们 的 程序 (即使 正确 ) 将 被 拒绝 ， 
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do11arszeuros (doljars2euros mybankbalancey) ; 


* Error: parameter type mismatch 


变 式 和 数据 类 型 


个 形 为 <1:T 关 > 的 变 式 类 型 了 大 致 类 似 于 ML 中 的 形 为 ,定义 为 上 ， 


typeT= 1 of Ti 
| ]> Of T2 
| ... 
| 1nr of Tn 


的 数据 类 型 。 但 它们 之 间 存 在 几 个 差别 值得 注意 。 


1 


io 


(AD 


不 重要 但 可 能 引起 混淆 的 是 ,我们 这 里 假设 的 标识 符 的 大 小 写 约 定 不 同 于 OCaml 的 相 
应 约定 。 在 0Caml 中 类 型 必须 以 小 写字 母 开 头 ,并 有 旦 数据 类 型 构造 子 (用 我 们 的 术语 ， 
标签 ) 以 大 写字 母 开 头 , 因 此 ,严格 地 讲 , 上 述 的 数据 类 型 声明 应 该 写成 如 下 形式 : 
typet=Lloft | ... | Lof tn 
为 避免 项 t 和 类 型 T 之 间 的 混淆 ,在 下 面 的 讨论 中 将 忽略 OCaml 的 约定 ,而 采用 我 们 的 
约定 。 
最 有 趣 的 差别 是 当 一 个 构造 子 1 用 于 将 Ti 的 一 个 元 素 投入 到 一 个 数据 类 型 T 时 ， 
OCaml 不 要 求 类 型 注释 :简单 地 写 1 (bD 。OCaml 处 理 这 个 的 办 法 (并 保留 惟一 类 型 ) 是 
数据 类 型 T 必 须 在 它 能 使 用 之 前 声明 的 。 此 外 ,在 了 中 的 标签 不 能 被 任何 其 他 在 同一 
辖 域 中 声明 的 数据 类 型 所 使 用 。 因 此 , 当 类 型 检查 器 看 见 1 (D 时 , 它 知 道 注释 只 能 是 
T。 事 实 上 ,注释 是 隐藏 在 标签 中 的 。 
这 个 技巧 消去 了 许多 愚 豆 的 注释 ,但 它 导致 了 用 户 之 间 一 定 的 抱怨 ,因为 它 意 味 着 标 
签 不 能 在 不 同 数据 类 型 之 间 共 享 一 一 至 少 不 能 在 同一 模块 内 共享 。 在 第 15 章 中 ,我 
们 将 看 到 另 一 种 方法 来 省 略 注释 以 避免 这 种 缺点 。 
另 一 个 0Caml 采用 的 方便 技巧 是 一 个 数据 类 型 定义 中 相关 的 类 型 就 是 Unit 时 , 它 可 以 
一 起 忽略 掉 。 例 如 可 定义 为 : 
type Weekday = monday | tuesday | wednesday | thursday | friday 
而 不 用 : 
type Weekday = monday of Unit 

| tuesday of Unit 

| wednesday of Unit 

| thursday of Unit 

| friday of Unit 


类 似 地 ,标签 monday 本 身 ( 而 不 是 应 用 于 平凡 值 unit 的 monday) 不 认为 是 类 型 Weekday 
的 一 个 值 。 





为 了 与 本 书 中 其 他 实现 一 致 起 见 ,这 一 节 采 用 OCaml 具体 的 数据 类 型 语法 ,但 它们 出 现在 ML 的 较 早 版 本 中 ,可 以 
在 Sandard ML 以 及 Haskell 这 样 类 似 ML 语言 中 找到 基本 上 相同 形式 。 数 据 类 型 和 模式 匹配 是 这 些 日 常 程序 设计 
请 言 的 一 个 最 有 用 的 优点 。 
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4. 最 后 ,OCaml 数据 类 型 实际 上 将 变 式 类 型 与 几 个 我 们 将 在 以 后 章节 中 分 别 讨 论 的 附加 
特征 绑 在 一 起 。 
e 一 个 数据 类 型 定义 可 以 是 递归 的 一 一 即 定义 的 类 型 允许 出 现在 定义 体 中 。 比 如 ,在 
Nat 列表 的 标准 定义 中 ,标记 为 cons 的 值 是 一 个 序 对 , 它 的 第 二 个 元 素 是 一 个 NatList， 


type NatList = nil 
| cons of Nat * NatList 


e 一 个 OCaml 数据 类 型 可 以 在 一 个 类 型 变量 上 参数 化 ,如 同 在 数据 类 型 List 的 一 般 定 
义 中 一 样 ， 
type 'a List = ni] 
| cons of "aw 'a List 


从 类 型 理论 的 角度 来 看 ,List 可 以 看 做 是 一 种 函数 ( 称 为 一 个 类 型 算 子 ) , 它 将 "a 的 每 个 
选择 映射 到 一 个 具体 的 数据 类 型 ,Nat 到 NatList 等 。 类 型 算 子 是 第 29 章 的 主题 。 


作为 不 交 并 的 复式 

和 类 型 与 变 式 类 型 有 时 称 为 不 交 并 。 类 型 T + 且 是 T 和 呈 的 一 个 “并 ”, 意 义 为 : 它 的 元 
素 包 括 T 和 的 所 有 元 素 。 这 个 并 是 不 相交 的 ,因为 下 或 王 的 元 素 集合 是 在 它们 组 合 之 前 
分 别 标记 为 il 或 inr, 使 得 并 的 元 素 很 清楚 ,是 来 自 合 还 是 来 自卫 。 词 语 并 类 型 也 用 来 指 无 
标记 (相交 ) 并 类 型 ,将 在 15.7 节 中 描述 。 


动态 类 型 


即使 在 静态 类 型 语言 中 ,常常 要 求 处 理 那 些 类 型 在 编译 时 不 能 确定 的 数据 ,特别 是 出 现在 
数据 的 存活 时 间 跨 越 多 个 机 器 或 编译 器 的 多 个 执行 ,比如 当 数 据 存储 在 一 个 外 部 文件 系统 或 
数据 库 中 ,或 通过 一 个 网 络 通信 时 。 为 了 安全 地 处 理 这 样 的 情形 ,许多 语言 提供 工具 在 执行 时 
间 来 检查 值 的 类 型 。 

实现 这 一 点 的 一 个 办 法 是 加 上 一 个 类 型 Dynamic, 它 的 值 是 一 个 值 v 和 一 个 类 型 了 的 序 
对 ,其 中 v* 有 类 型 T。Dynamic 的 实例 用 一 个 明显 的 标记 结构 来 建立 ,并 且 用 一 个 类 型 安全 
typecase 结构 来 检查 。 事 实 上 , Dynamic 可 以 看 做 是 一 个 无 限 不 交 并 , 它 的 标签 是 类 型 。 参 见 
Gordon(circa 1980) , Mycroft (1983) , Abadi , Cardelli , Pierce 和 了 Plotkin (1991b) ,Leroy 和 Mauny(1991 ) ， 
Abadi, Cardelli, Pierce 和 Remy(1995) ,以 及 Henglein(1994) 。 


11.11 一 般 递归 


在 大 部 分 程序 语言 中 可 以 找到 的 另 一 个 功能 是 定义 递归 函数 的 能 力 。 我 们 已 经 见 到 (在 
第 5 章 中 ) 在 无 类 型 lambda 演算 中 ,这 样 的 函数 可 以 借助 于 fr 组 合式 来 定义 。 

递归 函数 可 以 用 类 似 的 方法 在 一 个 类 型 环境 中 定义 。 比 如 ,这 里 iseven 函数 , 当 用 一 个 偶 
数 参 数 调 用 时 它 返回 hue, 否则 返回 false: 


ff = Aie:Nat 一 Boo1 . 
AX:Nat 。 
放 iszero xX then true 
else 计 jszero (pred x) then false 
else ie (pred (Cpred x7); 
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* ff : (CNat 一 Boo1) ~ Nat 一 Bool 
iseven = fix ff; 

w* iseven : Nat 一 Bool 
iseven 7; 


* false : Bool 


直观 地 , 传 给 fx 的 高 阶 函 数 企 是 函数 iseven 的 一 个 产生 器 :如 果 企 运用 于 一 个 函数 ie, 这 个 天 
数 模拟 iseven 的 行为 最 大 到 数 ”( 即 对 小 于 或 等 于 m” 的 输入 返回 正确 结果 的 一 个 函数 ) ,然后 
它 返回 一 个 更 接近 iseven 的 函数 ,对 一 直到 m + 2 的 输入 都 能 返回 正确 结果 。 运 用 fx 到 这 个 
产生 器 返回 它 的 不 动 点 函数 ,对 所 有 的 输入 mn 做 出 相应 的 行为 。 

然而 ,有 一 个 重要 的 差别 不 同 于 无 类 型 环境 :fix 本 身 不 能 定义 在 简单 类 型 lambda 的 演算 
中 。 的 确 ,在 第 12 章 中 ,将 看 到 没有 能 导致 非 终止 性 计算 的 表达 式 , 可 以 只 用 简单 类 型 来 类 型 
化 上 。 因 此 ,我们 不 是 定义 fkx 为 语言 中 的 一 个 项 ,而 是 简单 地 将 它 加 上 ,作为 一 个 新 原 语 ,其 
求 值 规则 模仿 无 类 型 fx 组 合式 的 行为 ,以 及 用 一 个 类 型 规则 捕捉 它 想 要 的 用 法 。 这 些 规 则 在 
图 11.12 中 列 出 (后 面 会 谈 到 letrec 缩写 )。 











一 油 震 扩展 和 A.(9. 了 ) 

本 呈 ，| 新 类 型 化 规则 

t 的 不 动 点 (T-FIDO) 
新 导出 式 


新 求 值 规则 





。(E-FIXBETA) 


图 11.12 一 般 递归 


具有 数 和 fix 的 简单 类 型 lambda 演算 ,长 期 以 来 是 程序 语言 研究 者 所 喜欢 的 实验 主题 ,因为 
它 是 一 些 复杂 的 语义 现象 中 最 简单 的 语言 。 这 类 语义 现象 中 包括 了 全 抽象 (Plotkin,1977,Hyland 
和 Ong,2000,Abramsky,Jagadeesan 和 Malacaria,2000)。 它 常常 被 称 为 PCF。 


11.11.1 练习 [xx]: 用 fix 定义 equal,plus,times 和 factorial。 


fix 结构 典型 地 用 来 建立 函数 (如 函数 到 函数 的 函数 不 动 点 ) ,但 值得 注意 的 是 在 规则 T-Fix 
中 的 类 型 了 不 限于 函数 类 型 。 这 种 额外 的 能 力 有 时 是 有 用 的 。 比 如 , 它 允 许 我 们 定义 互 递归 
函数 的 一 个 记录 为 在 (函数 的 ) 记 录 上 的 一 个 函数 的 不 动 点 。: 如 下 面 的 iseven 的 实现 用 到 一 个 
辅助 函数 isodd; 两 个 函数 定义 为 一 个 记录 的 字段 ,其 中 这 个 记录 的 定义 在 一 个 记录 ieio 上 抽 
象 , 它 的 成 员 用 来 从 iseven 和 isodd 字段 体 中 做 递归 调用 。 





@ 在 以 后 章节 中 (参见 第 13 章 和 第 20 章 ), 将 看 到 一 些 恢复 系统 中 似 定 义 的 简单 类 型 的 扩展 。 








第 11 章 简单 扩展 95 





ff = Xieiol[fiseven:Nat 一 Bo01，isodd:Nat 一 Boo11 . 
fiseven = AX:Nat. 
if iszero X then true 
el]lse ieio.isodd (pred x) ， 
1sodd = AX:Nat. 
jf iszero X then false 
else ieio.iseven (pred x)}; 


* ff : {fiseven:Nat 一 Boo1,isodd:Nat 一 Boo1} 一 
fiseven:Nat 一 Boo1，isodd:Nat 一 Boo11 


形成 函数 在 的 不 动 点 给 出 两 个 函数 的 一 个 记录 ; 
Fr = fix ff; 
*  : {fiseven:Nat~Boo1，ijisodd:Nat 一 Boo11 
并 且 这 些 枉 数 的 第 一 投影 是 函数 iseven 本 身 ; 
iseven = .iseven; 


* iseven : Nat 一 Boo1 
iseven 7; 


> false : Bool1 
能 对 任何 了 的 一 个 类 型 为 T >T 的 函数 形成 其 不 动 点 ,会 带 来 某 种 惊人 的 结果 。 特 别 是 , 它 表 
明了 每 个 类 型 都 拥有 一 些 项 。 为 了 明白 这 一 点 ,注意 ,对 每 个 类 型 T, 我 们 能 定义 一 个 函数 
diverger 如 下 所 示 ; 
diverger = 和 :Unit. fix (CAx:T.x); 
> diverger : Unit - T 
当 divergeyr 运用 于 一 个 unit 参 数 ,可 得 到 一 个 非 终止 性 求 值 序列 ， 对 此 序列 一 次 一 次 地 运用 
E-FixBeta, 总 会 产生 相同 的 项 。 即 对 每 个 类 型 T, 项 divergey unit 是 工 的 一 个 无 定义 元 素 。 我 们 
可 以 考虑 的 (最 后 的 ) 改 进 是 绑 定 一 变量 为 一 个 递归 定义 的 结果 ,为 这 样 的 普通 情况 引入 更 方 
便 具 体 的 语法 。 在 大 部 分 高 级 语言 中 iseven 的 第 一 个 定义 可 以 写成 如 下 形式 ， 
1]etrec iseven : Nat 一 Boo1 = 
AX:Nat。 
if 1szero X then true 
else if iszero (pred xJ then false 
else jseven (pred (pred x)) 
Tin 
iseven 7; 
* false : Bool 
递归 绑 定 构造 子 letree 可 以 容易 地 定义 为 一 个 导出 形式 : 
]etrec x:Ti=tl int> 虐 let x=Tfix (Ax:Ti,tli) int2 


11.11.2 练习 [*] :用 letrec 而 不 用 fx, 重 写 练习 (11.11.1) 中 plus,times 和 factorial 的 定义 。 
Klop(1980) 和 Winskel(1993) 进 一 步 讨 论 了 不 动 点 算 子 。 


11.12 列表 
我 们 见 到 的 类 型 特征 可 以 分 为 基本 类 型 ,如 Bool,Unit 及 类 型 构造 子 , 如 -> 和 x ,用 来 从 旧 
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的 类 型 建立 新 的 类 型 。 另 一 个 有 用 的 类 型 构造 子 是 List。 对 每 个 类 型 T, 类 型 List T 描 述 有 限 
长 且 元 素来 自 T 的 列表 。 

图 11.13 给 出 了 列表 的 语法 .语义 和 类 型 规则 。 除 了 语法 差别 (是 List T 而 不 是 Tlist 等 ) 
以 及 对 我 们 表示 中 的 所 有 语法 形式 的 显 式 类 型 注释 外 ,这 些 列表 基本 上 等 同 于 在 ML 和 其 他 
函数 式 语言 中 的 列表 (类 型 T 的 元 素 )。 空 列表 记 为 mil[T]。 加 一 个 (类 型 T 的 ) 新 元 素 b 到 一 
个 列表 的 前 部 所 形成 的 列表 记 为 cons[Tjtb。 一 个 列表 t 的 头 和 尾 记 为 head[T]t 和 tail[T]ti 
布尔 谓词 isnil[Tjt 产生 tmue 当 上 且 仅 当 t+ 是 空 的 0。 














一 B 瑟 和 洽 含 布尔 类 型 〈 参 见 图 8.1) 的 扩展 入 (参见 图 9.1) 
新 语法 形式 
下 项 : 0 (E-ISNIL) 
列表 构造 子 
Eees E-HEADCONS) 
表 尾 (E-HEAD) 
WE 值 : 
列表 构造 子 (上 -TAILLCONS) 
和 类 型 ; 本 (E-TAID) 
藉 SS 攻 列 表 类 型 | ,多 入 全 人 
新 类 型 化 规则 区 Ft3:T] 


新 求 值 规则 tt 一 七 





(IT-NID) 










(E-CONSH) 
(T-CONS) 


(E-CONS2) 
(T-ISNID) 





(E-ISNILNIIL) 
(T-HEAD) 


(T-TAID) 


图 11.13 列表 


11.12.1 练习 [***] :验证 带 布尔 型 和 列表 型 的 简单 类 型 lambda 演算 的 进展 和 保持 定理 。 
11.12.2 练习 [xx*]: 这 里 列表 的 表示 包括 许多 实际 不 需要 的 类 型 注释 ,因为 类 型 规则 可 
以 很 容易 地 由 上 下 文 导出 注释 (这 些 注释 打算 用 来 简化 与 在 23.4 节 中 列表 编码 之 间 的 比 
较 )。 所 有 的 类 型 注释 可 以 删除 吗 ? 


〇 @ 为 了 简单 起 见 , 我 们 这 里 采用 列表 的 “head/tailisnil 表示 "。 从 语言 设计 角度 来 看 ,将 列表 作为 一 个 数据 类 型 ,用 case 
表达 式 来 分 解 可 能 更 好 ,因为 更 多 的 程序 错误 可 以 这 样 作 为 类 型 错误 捕捉 到 。 
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在 本 章 中 ,我 们 将 考虑 纯 简单 类 型 lambqa 演算 的 另 一 个 基本 理论 性 质 :一 个 良 类 型 程序 
的 求 值 保证 在 有 限 步 内 停机 ( 即 每 个 自 类 型 项 是 可 规范 化 的 )。 

不 像 我 们 已 经 考虑 过 的 类 型 安全 性 性 质 , 规 范 化 性 质 不 能 扩展 到 完整 的 程序 语言 ,因为 这 
些 语 言 几乎 总 是 扩展 简单 类 型 lambda 演算 ,使 其 带 有 像 一 般 递归 (参见 11.11 节 ) 或 递归 类 型 
(参见 第 20 章 ) 这 样 的 构造 子 , 有 了 它们 就 可 以 写 非 终止 性 程序 。 尽 管 如 此 ,规范 化 的 问题 在 
讨论 (参见 30.3 节 ) 系 统 已 的 元 理论 时 ,在 类 型 的 层次 上 将 会 重新 提起 ,在 这 个 系统 中 , 类 型 
的 语言 有 效 地 包含 简单 类 型 lambda 演算 的 一 个 拷贝 ,并 且 类 型 检查 算法 的 终止 与 否 ,将 由 类 
型 表达 式 上 的 一 个 “规范 化 "操作 停止 来 决定 。 

研究 规范 化 证 明 的 另 一 个 理由 是 ,它们 是 在 类 型 论 中 发 现 的 最 优美 ( 令 人 兴奋 的 ) 的 数学 ， 
常常 (这 里 所 见 ) 包 含 逻 辑 关 系 的 基本 证 明 技巧 。 

某 些 读者 在 第 一 次 读本 书 时 可 以 册 过 这 一 章 ; 这 样 做 不 会 影响 阅读 以 后 的 章节 。 


12.1 简单 类 型 的 规范 化 


这 里 将 考虑 的 演算 是 在 一 单个 基本 类 型 A 上 的 简单 类 型 lambda 演算 。 这 个 演算 的 规范 
化 不 是 完全 平凡 的 ,因为 一 个 项 的 每 个 归 约 可 以 在 子 项 中 复制 约 式 。 

12.1.1 练习 [*]: 如 果 我 们 企图 直接 对 一 个 良 类 型 项 的 长 度 做 规范 化 归纳 证 明 , 会 在 什 

么 地 方 失败 呢 ? 

这 里 的 关键 问题 (如 在 许多 归纳 证 明 中 一 样 ) 是 找 一 个 足够 强 的 归纳 假设 。 为 此 ,我 们 对 
每 个 类 型 T, 定义 一 个 类 型 T 的 封闭 项 集合 &r。 我 们 把 这 些 集合 看 做 是 谓词 ,并 且 用 RR(t) 表 
示 teRi@。 


12.1.2 定义 


e R(t) 当 是 仅 当 + 停止 。 
e Rr -tb) 当 且 仅 当 + 停止 ,并 且 当 Ru (s) 时 ,我 们 有 Rn (ts)。 


这 个 定义 给 出 了 需要 的 归纳 假设 。 我 们 的 主要 目标 是 证 明 所 有 的 程序 ( 即 基 本 类 型 的 所 
有 封闭 项 ) 停 止 。 但 基本 类 型 的 封闭 项 可 以 包含 函数 类 型 的 子 项 ,这 样 就 需要 知道 关于 子 项 的 
基本 性 质 。 此 外 , 光 知 道 这 些 子 项 停止 还 是 不 够 的 ,因为 一 个 规范 化 的 函数 对 一 个 规范 化 参数 
的 运用 包含 一 个 代 换 ,这 可 能 需要 更 多 步 的 求 值 。 因 此 我 们 对 函数 类 型 的 项 需要 一 个 更 强 的 
条 件 :它们 不 仅 本 身 停 止 ,而 且 运用 于 停止 的 参数 时 ,也 将 产生 停止 的 结果 。 


@ ”本章 中 讨论 的 语言 是 带 单个 基本 类 型 A( 参 见 图 11.1) 的 简单 类 型 lambda 演算 (如 图 9.1 所 示 )。 
@ 集合 护 有 时 称 为 亿 和 集合 或 可 归 约 候选 。 
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定义 (12.1.2) 的 形式 是 逻辑 关系 证 明 技 巧 的 特征 (因为 ,这 里 只 处 理 一 元 关系 ,应 该 称 逻 
辑 谓 词 更 合适 )。 如 果 我 们 要 证 明 所 有 类 型 A 的 封闭 项 具有 某 个 性 质 已 ,对 类 型 做 归纳 ,证明 
所 有 类 型 A 的 项 具有 人 性质 忆 , 所 有 类 型 A->A 的 项 保持 性 质 已 ,所 有 类 型 (A-~A)->~(A 一 A) 的 
项 都 有 保持 尸 性 质 的 性 质 ,等 等 。 我 们 可 以 通过 定义 由 类 型 为 索引 的 谓词 集合 来 做 到 这 一 
点 。 对 于 基本 类 型 A, 谓 词 就 是 P。 对 于 函数 类 型 ,函数 应 该 将 满足 输入 类 型 谓词 的 值 映射 到 
满足 输出 类 型 谓词 的 值 。 

我 们 使 用 这 个 定义 在 两 步 内 给 出 规范 化 的 证 明 。 首 先 ,注意 到 每 个 集合 咎 的 每 个 元 素 
是 可 规范 化 的 。 然 后 证 明 类 型 了 的 每 个 良 类 型 的 项 是 尺 , 的 一 个 元 素 。 

第 一 步 直 接 由 下, 的 定义 得 到 。 

12.1.3 引 理 :如 果 Rb , 则 tt 停止 。 

第 二 步 分 为 两 个 引 理 。 首 先 ,注意 R 中 的 成 员 关 系 在 求 值 下 保持 不 变 。 

12.1.4 引 理 : 如 果 t:T 并 且 t-, 则 Rs (tb , 当 且 仅 当 及 (CD)。 


证 明 :对 类 型 T 的 结构 做 归纳 。 首 先 ,这 是 很 清楚 的 :t 停止, 当 且 仅 当 + 停 止 。 如 果 

工 = A, 没 有 什么 需要 证 明 的 。 另 一 方面 ,假设 对 某 个 T 和 也 ,有 T= Ti -> 了 。 对 于 “ 仅 当 ” 

部 分 (全 ) ,假定 Rr (以 及 对 某 个 任意 的 s:T, Rr (s)。 由 定义 ,可 有 Ra (ts)。 但 

ts -ts, 由 对 类 型 也 的 归纳 假定 ,我 们 有 Rn (ts)。 因 为 这 对 任意 一 个 s 成 立 , Rr 的 定 

义 给 出 Ra(t)。 对 于 “ 当 且 "部 分 (和 后) 的 讨论 是 类 做 的 。 

下 面 ,我 们 要 证 明 类 型 了 的 每 个 项 属于 Rr。 这 里 ,将 对 类 型 推导 做 归纳 (如 果 看 到 一 个 关 
于 和 良 类 型 项 的 证 明 不 是 对 类 型 推导 做 归纳 可 能 会 令 人 感到 惊讶 )。 在 这 里 ,困难 之 处 在 于 处 理 
抽象 的 情况 。 因 为 我 们 是 用 归纳 方法 证 明 , 证 明 一 个 项 xx:T .e 属于 Ri .将 包括 运用 归纳 
假设 米 证 明 be 属于 Rs 。 但 是 Ra 定义 为 封闭 项 的 集合 ,而 昌 可 以 包含 某 个 自由 的 x, 这 样 就 
没有 意义 了 。 

这 个 问题 可 以 用 适当 推广 的 归纳 假设 这 个 技巧 来 解决 :我 们 不 是 证 明 含有 一 个 封闭 项 的 
语句 ,而 是 推广 它 使 得 包含 一 个 开 项 + 的 所 有 封闭 实例 。 

12.1.$ 引 理 :如 果 和 ToxosT FF GT 并 且 w，w 分 别 是 类 型 了 ，…T, 的 封闭 值 ， 

使 得 对 每 个 i 有 人 (r ), 则 Rar( [xi 上 一 [xs [一 wj]t)。 

证 明 : 对 和 :T xz:T FFtT 的 一 个 推导 做 归纳 (最 有 意思 的 情况 是 抽象 ) 。 

情况 TVAR: t=x  T=fT 


证 明 是 直接 的 。 


情况 T-ABS: 上 = Ax:S1.Sz xi:Tl，...,Xxn:TnX:SIH S2 :So 
T= 31 一 92 


显然 , [Do -wx 一 求 值 为 一 个 值 , 因 为 它 早已 是 一 个 值 。 下 面 要 证 明 的 是 对 
任何 s;S, 使 得 Rs (s), 有 Rs (([x 一 wm …[x rw]t)s)。 假 设 s 是 这 样 一 个 项 。 由 引 


理 (12.1.3), 我 们 对 某 个 v* 有 s 一 "ve。 由 引 理 (12.1.4), Rs (v)。 现 在 ,由 归纳 假设 , Rs 
([x FF [xx F=~ wj[x F= vs )。 但 : - 
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《(AX:91. [xi 一 vI].…… [xn 一 vn]sz)S 


车 


一 ” [Da 一 V] [xn 一 vn][xm= v]s2， 
引 理 (12.1.4) 告 诉 我 们 : 
Rs:((AxX:S1. [xl 一 VI] [xn 一 vn]sz) sh)， 
即 :Rs (CC[x Fr=v]…[x rm]lx:S .ea))s)。 因 为 s 是 任意 选择 的 ,由 Rs --s 的 定义 ， 
得 到 ; 
Rsi-s:([xa 一 VI]-… [xn mvn](CAx:S1. 52)). 


情况 T-APP;: 七 =tltz2 


xl1:Ti,， ,xn:TnHFti :TIlI 一 Ti2 
xl1:T1，.…，xn:TnHt2 :TIl 
T=Ti2 


由 归纳 假设 得 到 , R， 一 了 T ([x Fr 阅 ] [xx Fw]t) 并 且 Ri (xi H~ Vi …[Lx， F~ vb)。 


由 AT -T， 的 定义 ; 
RTae(([XI 一 VI] [xn 盖 vn]ti) (xi 一 Vi [xn vn]t2))， 
即 Rr([xi 一 vI].… [xn 一 vn](tit2z)) 


我 们 在 引 理 (12.1.5) 中 简单 地 取 项 t 为 封闭 的 ,然后 记 住 对 每 个 T, R; 的 所 有 元 素 是 规范 
的 ,作为 一 个 推论 我 们 就 得 到 了 规范 化 的 性 质 。 


12.1.6 定理 [规范 化 ] :如 果 Ft:T, 则 + 是 可 规范 化 的 。 
证 明 :由 引 理 (12.1.5) ,有 Ri(t); 因 此 ,由 引 理 (12.1.3) 中 ,t 是 可 规范 化 的 。 


12.1.7 ”练习 [推荐 ,*xx*] :扩展 本 章 中 的 证 明 技巧 来 证 明 简单 类 型 lambda 演算 在 扩展 为 
包含 布尔 值 (参见 图 3.1) 和 乘积 (参见 图 11.5) 后 保持 可 规范 性 。 


12.2 注释 


在 许多 文献 中 将 规范 化 性 质 形式 化 为 带 完全 ( 非 确定 性 的 )beta 归 约 的 演算 的 强 规范 化 。 
Tait(1967) 提 出 了 标准 证 明 方法 ,Girard(1972,1989) 将 它 推广 到 系统 F( 参 见 第 23 章 ) ,以 后 Tait 
(1975) 简 化 了 证 明 。 这 里 采用 的 形式 是 将 Tait 的 方法 改 为 按 值 调用 的 方法 ,该 方法 是 由 Martin 
Hofmann 提 出 的 (私人 通信 )。 逻 辑 关 系 证 明 技 巧 的 经 典 文 献 参 见 Howard (1973) , Tait(1967) ， 
Friedman(1975) , Plotkin (1973 ,1980) ,以 及 Statman (1982, 198Sa, 198Sb) 。 在 许多 关于 语义 的 文献 
中 ,如 Mitchel(1996) 和 Gunter(1992) ,也 有 讨论 。 

Tait 的 强 规 范 化 证 明 对 应 于 所 谓 的 求 值 规范 化 或 类 型 导向 部 分 求 值 的 简单 类 型 项 求 值 的 
算法 (Berger, 1993; Danvy, 1998) ; 也 可 参见 Berger 和 Schwichtenberg(1991) , Filinski(1999》, Filinski 
《2001) 以 及 Reynolds(1998a) 。 
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到 目前 为 止 ,我 们 讨论 了 各 种 纯 语 言 特征 ,包括 函数 抽象 ,如 数 和 布尔 值 的 基本 类 型 ,记录 
和 变 式 的 结构 化 类 型 。 这 些 特 征 形成 了 大 部 分 程序 语言 的 主干 一 一 包括 像 Haskel 这 样 的 纯 
函数 式 语 言 ,ML 这样 的 “主要 函数 式 " 语 言 ，C 这 样 的 命令 式 语 言 , 以 及 Java 这 样 的 面向 对 
象 语 言 。 

大 部 分 实际 程序 语言 也 包含 各 种 不 纯 的 特征 ,它们 不 能 在 我 们 所 用 的 简单 语义 框架 中 描 
述 。 特 别 地 ,除了 只 产生 结果 ,在 这 些 语 言 中 项 的 求 值 可 以 指派 给 易 变 化 的 变量 (引用 单元 、 列 
表 、 易 变化 记录 字段 等 ) ,执行 输 和 信和 输出 到 文件 ,显示 或 网 络 连接 ,通过 蜡 常 , 跳 肾 或 继续 控制 
非 局 部 转换 ;参与 处 理 内 部 的 同步 和 通信 等 。 在 程序 语言 的 文献 中 ,计算 的 这 种 “副作用 "通常 
称 为 计算 效应 。 

在 本 章 中 ,将 看 到 一 种 计算 效应 ( 易 变化 引用 ) 如 何 加 到 我 们 研究 的 演算 中 去 。 主 要 的 扩 
展 将 明确 地 处 理 一 个 存储 (或 堆栈 )。 这 个 扩展 是 可 以 直接 定义 的 ;最 有 意思 的 部 分 是 我 们 对 
类 型 保持 定理 [定理 (13.5.3)] 需 要 做 的 改进 工作 。 考 虑 另 一 种 效应 一 一 异常 和 控制 的 非 局 部 
转换 (参见 第 14 章 )。 


了 


13.1 引 


几乎 每 个 程序 语言 @ 提 供 某 种 形式 的 赋值 操作 ,用 来 改变 原先 分 配 存储 段 的 内 容 。 在 某 
些 语 言 (如 ML 和 它 的 类 似 语 言 ) 中 ,名 称 绑 定 机 制 和 赋值 机 制 是 分 开 的 。 我 们 可 以 有 一 个 变 
量 x, 它 的 值 是 5, 或 一 个 变量 y, 它 的 值 是 一 个 引用 (或 指针 ) ,指向 一 个 易 变化 的 单元 ,这 个 单 
元 的 当前 内 容 是 5, 并 且 这 个 差别 对 程序 员 是 可 见 的 。 可 以 将 x 加 到 另 一 个 数 ,但 不 能 给 它 赋 
值 。 我 们 可 以 用 y 直接 将 一 个 值 赋 给 y 所 指向 的 单元 ( 记 y: = 84) ,但 不 能 用 它 直 接 作为 plus 
的 一 个 参数 。 必 须 明 显 将 反 引 用 记 为 "17”, 以 得 到 它 的 当前 内 容 。 在 大 部 分 其 他 语言 (特别 在 
包括 Java 在 内 的 C 系列 语言 中 ) 中 ,每 个 变量 名 称 指 向 一 个 易 变 化 的 单元 ,并 且 反 引用 一 个 变 
量 得 到 它 当 前 内 容 的 操作 是 隐 式 的 @。 

为 了 形式 研究 的 目的 ,将 这 两 个 机 制 分 开 是 有 意义 的 @; 在 本 章 中 ,将 研究 的 模型 接近 于 
ML 模型 。 这 些 内 容 可 直接 应 用 到 像 C 这 样 的 语言 中 ,只 要 忽略 某 些 差别 ,将 一 些 操作 ,如 把 
反 引 用 看 做 隐 式 的 ,而 不 是 显 式 的 。 


本 章 中 讨论 的 系统 是 带 Unit 和 引用 的 简单 类 型 lambda 演算 (如 图 13.1 所 示 )。 相 应 的 OCaml 实现 是 fallref。 

即使 像 Haskel 这 样 通过 单 体 扩展 的 “ 纯 函 数 式 "语言 。 . 

严格 地 讲 , 在 C 或 Java 中 类 型 了 的 大 多 数 变量 实际 上 看 做 是 指向 包含 类 型 为 Option(T) 值 的 单元 指针 ,说 明 一 个 变 
量 的 内 容 可 以 是 一 个 合适 的 值 或 者 是 一 个 特殊 值 null。 

图 从 语言 设计 的 角度 来 看 这 种 分 开 处 理 也 是 值得 的 。 让 易 变 单元 以 明确 的 选择 方式 来 使 用 , 而 不 是 采取 默认 的 方 
式 , 可 以 鼓励 采用 主 函 数 式 程序 设计 风格 ,这 种 风格 中 引用 很 少 使 用 ;这 种 办 法 可 以 使 程序 更 易 写 .维护 和 推理 , 特 
别 在 像 并 发 性 这 样 的 特征 出 现 的 时 候 。 


思 旨 日 
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基础 
引用 的 基本 操作 是 分 配 、 反 引用 和 赋值 。 为 了 分 配 一 个 引用 ,我 们 用 算 子 ref, 对 新 的 单元 
提供 一 个 初始 值 : 
rr= ref 5; / 
”PP : Ref Nat 
类 型 检查 器 会 指出 "的 值 是 一 个 引用 ,指向 一 个 总 是 含有 一 个 数 的 单元 。 为 了 读 这 个 单元 中 
的 当前 值 ,我 们 用 反 引 用 算 子 "!”: 
1r; 
”35 : Nat 
为 了 改变 存储 在 这 个 单元 中 的 值 ,使 用 赋值 算 子 : 
Pr := 7; 
*” unit : Unit 
(赋值 的 结果 是 平凡 的 unit 值 ; 参 见 11.2 节 ) 如 果 再 次 对 r 反 引用 ,可 得 到 更 新 的 值 : 
1r; 


”7 : Nat 


副作用 和 序列 
一 个 赋值 表达 式 的 结果 是 平凡 值 unit 的 事实 与 定义 在 11.3 节 中 的 序列 概念 非常 符合 : 序 
列 允 许 写 : 
(Cr:=SsuccCIr); 1r); 
> 8 : Nat 
来 蔡 代 等 价 的 但 宛 长 的 形式 : 
(A_:Unit. !r) (Cr := succCIr)); 
”9 : Nat 
并 且 按 次 序 求 值 两 个 表达 式 并 送 回 第 二 个 的 值 。 限 制 第 一 个 表达 式 的 类 型 为 Unit 让 第 一 个 
值 保证 平凡 时 将 其 丢弃 ,这 样 可 帮助 类 型 检查 器 捕捉 一 些 简单 的 错误 。 
注意 ,如 果 第 二 个 表达 式 也 是 一 个 赋值 , 则 整个 序列 的 类 型 将 是 Unit, 因此 我 们 能 有 效 地 
将 它 放 在 另 一 个 表达 式 的 左边 来 建立 更 长 的 赋值 序列 ; 
《r:=SuccCIr);i ri=SuccCIr); r:=SucCCIr); riassuccClr)，1r); 


*” 13 : Nat 


引用 和 别名 
记 住 团 界 于 r 的 引用 和 由 这 个 引用 所 指 的 存储 中 的 单元 之 间 的 差别 是 很 重要 的 ; 


AN 
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如 果 我 们 做 的 一 个 拷贝 ,使 得 绑 定 它 的 值 为 另 一 个 变量 s; 


S = 了; 
* S : Ref Nat 
所 找 贝 的 只 是 引用 (图 中 的 箭头 ) ,而 不 是 单元 : 
Pr = NA 1 
我 们 可 以 验证 这 一 点 ,通过 赋 一 个 新 的 值 到 s: 
S := 82; 
* unit : Unit 
并 且 通 过 r 读 它 : 
1; 
* 82 :; Nat 
引用 r 和 s 称 为 是 同一 个 单元 的 别名 。 
13.1.1 练习 [*]: 画 一 个 类 似 的 图 来 说 明 求 值 表 达 式 a= | ref 0,ref 0 和 了 b= (Xx:Ref Nat， 
xx )Cref 0) 的 效果 。 
共享 状态 
可 以 使 用 别名 使 得 带 引 用 的 程序 推理 非常 困难 。 比 如 ,表达 式 (r: =1; r: = !s) , 赋 1 给 r， 
并 且 马 上 用 s 当前 的 值 覆盖 它 ,与 直接 赋值 r: = 1s 有 着 相同 效果 ,除非 我 们 将 它 写 在 一 个 上 下 
文 ,其 中 z 和 s 是 相同 单元 的 别名 。 
当然 ,别名 是 使 引用 发 挥 作用 的 重要 原因 。 特 别 是 它 允 许 我 们 在 一 个 程序 的 不 同 部 分 之 
间 设 定 “ 隐 式 通 信 通 道 " 一 一 共享 状态 。 比 如 ,假设 我 们 定义 一 个 引用 单元 和 两 个 函数 来 处 理 


它 的 内 容 ; 
cC = fref 0; 


* C : Ref Nat 
incc = AX:Unit、(C := SUCC〔〈!C) 
* incc : Unit 一 Nat 
decc = AMx:Unit，(c := pred(〈!c) 
* decc : Unit 一 Nat 
调用 incc: 
incc unit; 
* 1】 :; Nat 
使 c 改变 的 原因 可 以 通过 调用 decc 观察 到 : 


decc unit; 


* 0 : Nat 
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如 果 将 ince 和 decc 包装 在 一 个 记录 中 : 


oo=fi=incc,， dd= decchly; 
"oo: fti:uUunit-Nat，d:Unit 一 Nath 


则 可 以 将 整个 结构 作为 一 个 单位 ,并 用 它 的 成 员 对 在 。 中 状态 的 共享 部 分 做 增 量 和 减 量 操 作 。 
其 实 我 们 已 经 构造 了 一 个 简单 对 象 。 这 个 想法 将 在 第 18 章 中 做 进一步 的 讨论 和 研究 。 


对 复合 类 型 的 引用 


一 个 引用 单元 不 一 定 只 包含 一 个 数 : 上 述 的 原 语 人 允许 我 们 产生 指向 任何 类 型 值 (包括 对 函 

数 ) 的 引用 。 比 如 ,我 们 可 以 用 到 示 数 的 引用 ,来 给 册 一 个 (不 是 非常 有 效 的 ) 数 列 的 实现 。 用 
NatArray 表示 类 型 Ref( Nat->Nat ) ， 
NatArray = Ref (Nat 一 Nat) ; 


为 了 建立 一 个 新 的 数组 ,分 配 一 个 引用 单元 ,并 填 人 一 个 函数 。 这 样 当 给 定 一 个 索引 ,总 是 返 
回 0: 


newarray = 和 A_:Unit，ref (Mn:Nat.0); 


* newarray : Unit 一 NatArray 


为 了 查找 一 个 数组 中 的 元 素 , 只 要 运用 函数 到 相应 的 索引 ， 


]ookup = Aa:NatArray. An:Nat.(〔(!a) ni; 
* ]1ookup : NatArray 一 Nat ~ Nat 


编码 有 意思 的 部 分 是 更 新 函数 update。 它 取 一 个 数组 .一 个 索引 和 一 个 新 的 存储 在 该 索引 位 
置 中 的 值 , 并 产生 (存储 在 引用 中 ) 一 个 新 的 函数 ,这 个 函数 当 问 起 在 这 个 索引 上 的 值 时 ,返回 
赋 给 update 的 新 值 ,并 且 对 所 有 其 他 的 索引 ,将 查询 传 给 引用 中 以 前 存 鱼 的 函数 ， 


update = 和 Aa:NatArray. Am:Nat. Av:Nat . 
Tet oldf = !a in 
a := (An:Nat. if equal mn then v else ol1df nm; 
* update : NatArray 一 Nat ~ Nat 一 Unit 


13.1.2 练习 [xx] :如 果 我 们 更 紧 致 地 定义 update 如 下 ; 


update = Aa:NatArray. Am:Nat.，Av:Nat . 
a := (An:Nat. if equal mn then v else 〈!a) n); 


它 的 行为 是 否 一 样 ? 
对 包含 其 他 引用 的 值 再 引用 也 很 有 用 , 它 允 许 我 们 定义 像 易 可 变 列 表 和 树 这 样 的 数据 结 
构 (这 样 的 结构 通常 包含 递归 类 型 ,将 在 第 20 章 中 引入 递归 类 型 ) 。 


垃圾 收集 


在 我 们 形式 化 引用 之 前 的 最 后 一 个 问题 是 存储 的 回收 。 当 引用 单元 不 再 需要 时 ,并 没有 
提供 任何 回收 它 的 原 语 。 的 确 , 像 许多 现代 语言 (包括 ML 和 Java) ,我 们 依赖 于 执行 时 间 系 统 
来 执行 垃圾 收集 , 即 收集 和 重新 使 用 程序 不 再 访问 的 单元 。 这 不 仅 是 程序 设计 风格 的 问题 : 回 
收 操作 很 难保 证 类 型 的 安全 性 。 主 要 是 由 播 摆 引 用 问题 引起 的 :我 们 分 配 含 有 一 个 数 的 单元 ， 
将 指向 它 的 引用 存储 在 某 个 数据 结构 中 ,使 用 一 会 儿 , 然 后 回收 它 , 再 分 配 一 个 含 布尔 值 的 新 
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单元 ,可 能 重新 使 用 同一 个 存储 单元 。 这 样 就 对 同一 个 存储 单元 取 了 两 个 名 称 , 一 个 类 型 为 
Ref Nat, 另 一 个 类 型 为 Ref Bool。 


13.1.3 练习 [xx*]: 说 明 这 如 何 违反 类 型 安全 性 。 


13.2 ”类 型 化 


ref, : = 和 ! 的 类 型 规则 直接 根据 我 们 对 它们 的 行为 描述 得 出 : 
[rtl:Ti 
Frreftl :RefTi 
工 F-tl: :RefTi 
ThFtl :RefTi TFt2 :Ti 
工 上 HH ti:=t2 : Unit 


(T-Ref) 


(T-Deref) 





(T-Assign ) 


13.3 求 值 


当 我 们 考虑 如 何 形式 化 引用 的 操作 行为 时 出 现 了 一 个 更 复杂 的 现象 。 要 想 知道 为 什么 要 
问 : 类 型 Ref T 的 值 将 是 什么 ?需要 考虑 的 关键 是 求 值 一 个 ref 算 子 还 需要 做 点 别 的 什么 事 
(比如 ,分 配 某 个 存储 ) ,并 且 该 操作 的 结果 将 是 对 这 个 存储 的 引用 。 

那么 ,一 个 引用 是 什么 ? 

在 大 部 分 程序 语言 实现 中 执行 时 间 存 储 ,本 质 上 就 是 一 个 大 的 字 节 数组 。 执 行 时 间 系 统 
找到 这 个 数组 中 当前 使 用 的 部 分 ; 当 需 要 分 配 一 个 新 的 引用 单元 时 ,我 们 从 存储 的 自由 区 域 中 
分 配 一 个 足够 大 的 段 (一 个 整数 占 4 个 字 节 , 浮 点 数 占 8 个 字 节 等 ) ,标记 它 为 正在 使 用 ,然后 
送 回 新 近 分 配 区 域 的 开头 索引 (典型 地 ,一 个 32 位 或 外 位 的 整数 )。 这 些 索引 就 是 引用 。 

我 们 暂时 不 需要 太 上 有 具体。 

考虑 存储 时 ,应 将 不 同 值 运 行 时 表示 的 不 同 大 小 抽象 出 来 ,不 将 其 考虑 为 一 组 字 节 而 是 一 
组 值 。 此 外 ,因为 引用 ( 即 该 数组 的 索引 ) 为 数字 ,我 们 可 以 进一步 抽象 。 将 引用 看 做 是 某 个 存 
储 位 置 的 无 解释 集合 上 的 元 素 ,然后 将 存储 看 做 是 位 置 ! 到 值 的 一 个 部 分 函数 。 用 元 变量 
表示 存储 。 那 么 ,一 个 引用 就 是 一 个 位 置 ,一 个 到 存储 的 抽象 索引 。 从 现在 起 我 们 将 用 位 置 而 
不 用 引用 或 指针 来 强调 这 个 抽象 质量 @。 

下 面 ,需要 扩展 操作 语义 ,将 存储 考虑 进来 。 因 为 求 值 一 个 表达 式 的 结果 通常 将 依赖 于 求 
值 所 在 的 存储 内 容 , 求 值 规则 不 应 该 只 将 一 个 项 作为 参数 ,还 应 该 将 一 个 存储 作为 参数 。 此 
外 ,因为 一 个 项 的 求 值 可 以 引起 存储 上 的 副作用 ,这 可 能 会 影响 其 他 项 在 以 后 的 求 值 ,所 以 求 
值 规则 需要 送 回 一 个 新 的 存储 。 这 样 , 单 步 求 值 关系 的 形式 从 t 一 改变 为 tu lm 其 中 必 


@ ”这样 抽 象 处 理 位 置 将 防止 我 们 对 在 像 C 这 样 的 低级 语言 中 的 运行 指针 算术 建 模 。 这 个 限制 是 故意 的 。 尽 管 指针 
算术 有 时 是 很 有 用 的 (特别 在 实现 执行 时 间 系 统 的 低级 部 分 ,如 垃圾 收集 时 ) ,大 部 分 类 型 系统 不 能 采用 指针 算术 : 
在 存储 中 位 置 = 包含 一 个 Float 并 不 能 告诉 我 们 位 置 + 4 的 类 型 。 在 上 语言 中 ,指针 算术 是 违反 类 型 安全 性 的 一 
个 主要 因素 。 
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和 性 是 存储 的 开始 和 结束 状态 。 实 际 上 ,我 们 已 经 丰富 了 抽象 机 的 概念 ,使 得 一 个 机 器 状态 
不 只 是 一 个 程序 计数 器 (表示 为 一 个 项 ) ,而 是 一 个 程序 计数 器 加 上 存储 的 当前 内 容 。 
为 实现 这 个 改变 ,我 们 首先 需要 扩充 现 有 的 求 值 规则 ,使 其 包含 存储 因素 ; 


CAx:Tll,tl2) vz|A 一 [x 一 Vvz]tl2|N (了 -Appabs) 
tillR 一 让 | 人 
一 一 一 一 了 -Appl 
tl t2z1A 一 tltz|HK CEApPP11 
tz| 1 一 tz|UH (上 -App2) 


Vi tz| 有 一 Vit2| 人 
注意 这 里 的 第 一 个 规则 返回 不 变 的 存储 p: 函数 应 用 本 身 没 有 副作用 。 其 他 两 个 规则 简单 地 
将 副作用 从 前 提 传 播 到 结论 。 
下 面 , 我 们 将 对 项 的 语法 做 一 个 小 的 改动 。 求 值 一 个 ref 表达 式 的 结果 将 是 一 个 新 位 置 ， 
这 样 就 需要 将 位 置 包 括 求 值 结果 集中 一 一 即 在 值 的 集合 中 : 


V ::= 值 : 
AX :下 .t 抽象 值 
uniit 单位 值 
1 存储 位 置 
因为 所 有 的 值 也 是 项 ,这 意味 着 项 的 集合 应 该 包括 位 置 ， 
t := 项 ; 
X 变量 
AX:T, 二 抽象 
t 七 应 用 
unit 常量 unit 
re 下 七 引用 创建 
! 反 引 用 
t:=t 赋值 
1 存储 位 置 


当然 ,将 这 个 扩展 到 项 的 语法 上 并 不 意味 着 我 们 打算 让 程序 员 写 带 有 明显 具体 位 置 的 项 :这 样 
的 项 只 作为 求 值 的 中 间 结 果 。 事 实 上 ,在 这 一 章 中 的 项 语言 应 该 认为 是 对 中 间 语 言 的 形式 化 ， 
它 的 某 些 特 征 对 程序 员 来 说 不 能 直接 使 用 。 

借助 于 这 个 扩张 的 语法 ,我们 可 以 陈述 关于 新 的 处 理 位 置 和 存储 构造 的 求 值 规则 。 首 先 ， 
为 了 求 值 一 个 反 引 用 的 表达 式 心 ,必须 先 归 约 忆 直到 它 变 成 一 个 值 ; 

tl 一 绎 | 风 
一 且 完 成 6 的 归 约 ,应 该 得 到 一 个 形 为 !1 的 表达 式 , 其 中 1 是 某 个 位 置 。 一 个 企图 对 其 他 类 的 
项 值 进行 反 引 用 ,如 对 一 个 函数 或 unit 都 是 错误 的 。 求 值 规则 在 这 种 情况 下 将 出 现 受阻 现象 。 
在 13.5 节 中 的 类 型 安全 性 人 性质 确保 良 类 型 项 将 不 会 出 现 这 样 的 行为 ， 
AD =V 
HA 一 vv 

下 面 , 为 了 求 值 一 个 贱 值 表达 式 0 : = 已, 必须 先 求 值 b 直到 它 变 成 一 个 值 ( 即 一 个 位 置 ) 


(E-Deref) 


《了 -DerefLoc) 
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tl | 让 一 tl|H 
ti:=tz |A 一 tt:=tz | 入 (上 -Assignl) 
然后 求 值 直到 它 变 成 一 个 (任何 种 类 的 ) 值 ; 
t2 | 下 一 区 
(上 E-Assign2) 


Vii=t2 1U 一 V13=t2 | 
一 旦 完成 了 对 和 已 的 求 值 ,就 得 到 一 个 形 为 1: = wm 的 表达 式 , 我 们 执行 它 来 更 新 存储 使 位 


置 1 包含 V2 
1:=vz [ANA 一 unit1L--vz]n (上 E-Assign) 


(这 里 的 记号 [7 > 六 取 表示 ”将 映射 为 训 和 对 所 有 其 他 位 置 的 映射 为 本 身 , 如 六 的 存储 ”。 
注意 ,由 求 值 得 到 的 项 是 unity 有 趣 的 结果 是 更 新 的 存储 ) 。 
最 后 ,为 了 对 形 为 ref t 的 一 个 表达 式 求 值 , 首 先 求 值 g 直到 它 变 成 一 个 值 ， 
tillA 一 t| 丰 
ref tl | 一 refti1 
然后 ,为 了 求 值 rsf 本身 ,选择 一 个 新 位 置 !( 即 不 是 /定义 域 的 部 分 中 位 置 ) 并 且 产 生 一 个 存 
储 用 绑 定 1 一 mw 来 扩展 。; 


(E-Ref) 


1 5& dorm(H) 
refvIn 一 由 Tv 
由 这 一 步 得 到 的 项 是 新 近 分 配 位 置 的 名 称 /。 
注意 这 些 求 值 规则 不 执行 任何 垃圾 收集 :我 们 允许 存储 随 着 求 值 进行 无 限制 地 增加 。 这 
不 影响 求 值 结 果 的 正确 性 (毕竟 ,垃圾 " 指 的 是 不 再 可 达 , 因 此 在 求 值 过 程 中 不 再 起 任何 作用 
的 存储 部 分 )。 但 它 意味 着 求 值 器 的 一 次 无 知 的 执行 ,将 有 时 会 用 尽 内 存 , 而 这 时 一 个 更 复杂 
的 求 值 器 将 重用 那些 内 容 变 成 垃圾 的 位 置 。 
13.3.1 ”练习 [*x*x]; 为 了 对 按 圾 收集 建 模 ,如 何 改 进 求 值 规则 ? 为 了 说 明 这 样 的 改进 是 
正确 的 ,我们 需要 证 明 什么 样 的 定理 ? 


13.4 存储 类 型 


将 语法 和 求 值 规则 加 入 引用 以 后 ,最 后 的 任务 是 写 出 新 的 构造 类 型 规则 ,并且 , 检 查 它 们 
是 可 靠 的 。 自 然 地 ,关键 问题 是 “ 一 个 位 置 的 类 型 是 什么 ?” 

当 我 们 求 值 一 个 含有 具体 位 置 的 项 时 ,结果 的 类 型 依赖 于 开始 存储 的 内 容 。 比 如 ,如 果 我 们 
在 存储 (4 一 unit, /2 一 unib) 中 求 值 项 !. ,结果 是 unit; 如 果 在 存储 (1，F~ unit, 7，F= )Xx3:Unit g) 
中 求 值 相同 的 项 ,结果 是 ix:Unit.x。 关 于 前 一 个 存储 ,位 置 5 有 类 型 Unit ,而 后 者 有 类 型 Unit-> 
Unit。 这 使 我 们 立即 想 出 如 下 关于 位 置 的 一 个 类 型 规则 ; 

TFA(D) :Ti 
TH :RefTi 
即 为 找 一 个 位 置 ! 的 类 型 ,在 存储 中 查找 ! 的 当前 内 容 , 并 计算 内 容 的 类 型 T 。 位 置 的 类 型 就 
是 RefT。 
如 果 是 这 样 ,就 需要 进一步 考虑 才能 达到 一 个 协调 的 状态 。 事 实 上 ,使 一 个 项 的 类 型 依赖 


(了 上 -Refv ) 
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于 存储 时 ,我 们 已 经 改变 了 类 型 关系 ,从 一 个 三 元 关系 (上 下 文 ` 项 和 类 型 之 间 ) 变 成 一 个 四 元 
关系 (上 上下文、 存储 、 项 和 类 型 之 间 )。 因 为 存储 直觉 上 是 我 们 计算 一 个 项 的 类 型 所 在 上 下 文 
的 一 个 部 分 ,所 以 可 将 这 个 带 存储 的 四 元 关系 为 了 IF ttT。 引 用 类 型 化 规则 现在 的 形式 为 : 
[IIAFAOD :Ti 
TINAFT :RefTi 
并 且 系 统 中 其 余 类 型 规则 可 以 类 似 于 存储 进行 扩展 。 其 他 规则 与 存储 没有 任何 有 趣 的 关系 ， 
只 是 直接 将 存储 从 前 提 传 播 到 结论 。 
然而 ,这 个 规则 仍 有 两 个 问题 。 首 先 ,类 型 检查 效率 不 高 ,因为 计算 一 个 位 置 ! 的 类 型 包 

括 计 算 当 前 ! 内 容 v 的 类 型 。 如 果 /在 一 个 项 t 中 出 现 许 多 次 ,我 们 将 在 构造 t 的 一 个 类 型 推 
导 中 计算 v 的 类 型 许多 次 。 更 粳 的 是 ,如 果 v 本 身 包 含 位 置 , 则 将 不 得 不 在 它们 出 现 的 每 一 次 
再 次 计算 它们 的 类 型 。 比 如 ,如 果 存 储 包 含 : 

人 一 Ax:Nat. 999， 

有 一 Ax:Nat，. (In) X， 

13 一 AX:Nat. (11z) X， 

1 一 AX:Nat.(〔(!113》xX， 

右 一 人 AxX:Nat.〔《!04) X)， 
则 计算 5 的 类 型 包括 计算 4 ,4 ,1 和 几 的 类 型 。 

其 次 ,上 面 提 到 的 位 置 类 型 规则 可 能 在 存储 包含 一 个 循环 时 推导 不 出 任何 结果 。 比 如 , 关 

于 存储 : 

全 一 AXINat,， (Li2) X， 

DrmAXx:Nat.(In) x)， 
位 置 2 没有 有 限 的 推导 ,因为 计算 .的 一 个 类 型 要 求 找到 上 的 类 型 , 它 反 过 来 又 包含 /等 ， 
循环 引用 结构 在 实际 中 常常 出 现 (比如 ,可 以 用 来 建立 双 链 接 列表 ) ,并 且 希 望 我 们 的 类 型 系统 
能 够 处 理 它们 。 


13.4.1 练习 [*]: 能 否 找到 一 个 项 , 它 的 求 值 将 产生 这 个 特别 的 循环 存储 ? 


这 两 个 问题 都 是 由 下 面 的 事实 引起 的 :上 面 提 到 的 位 置 类 型 规则 要 求 每 次 在 一 个 项 中 提 
旬 位 置 时 再 次 计算 它 的 类 型 。 但 直觉 上 没有 必要 这 样 做 。 毕 竟 , 当 一 个 位 置 第 一 次 创建 时 ,我 
们 知道 存储 到 它 里 面 的 初始 值 的 类 型 。 此 外 ,尽管 以 后 可 能 存储 其 他 值 到 这 个 位 置 ,那些 值 将 
总 是 与 初始 值 的 类 型 相同 。 换 言 之 ,我们 头脑 中 对 存储 中 的 每 个 位 置 总 是 有 一 单个 的 确定 类 
型 , 当 位 置 被 分 配 时 就 固定 了 。 这 些 想 要 的 类 型 可 以 收集 在 一 起 ,作为 一 个 存储 类 型 一 一 个 
将 位 置 映射 到 类 型 的 有 限 函 数 。 我 们 将 用 元 变量 表 示 这 样 的 函数 。 

假设 用 存储 类 型 Z 来 描述 将 被 求 值 的 某 项 上 所 在 的 存储 wk。 则 能 用 工 来 计算 + 的 结果 类 
型 ,而 不 需要 直接 根据 AR。 比 如 ,如 果 开 是 (0 Fr= Unit, 1， r-~ Unir>Unit) , 则 可 以 直接 推导 出 多 
有 类 型 Unit>Unit。 更 一 般 地 ,位置 类 型 规则 可 以 根据 ， 

z(1) =Ti 
[IT1|1zEHF-L:RefTi 


存储 类 型 规则 来 重新 形式 化 。 一 个 四 元 关系 也 可 以 类 型 化 ,但 它 是 对 一 个 存储 类 型 参数 化 而 
不 是 对 一 个 具体 存储 。 其 余 的 类 型 规则 可 以 类 似 地 用 存储 类 型 来 扩充 。 


(T-Loc) 
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当然 ,只 有 在 求 值 过 程 中 用 到 的 具体 存储 确实 一 致 于 我 们 为 了 类 型 检查 而 假定 的 存储 类 
型 时 ,这 些 类 型 规则 才 将 精确 预测 求 值 的 结果 。 这 个 附带 条 件 正 好 平行 于 到 目前 为 止 所 见 演 
算 中 含 自 由 变量 的 情况 :根据 代 换 引 理 [ 参 见 引 理 (9.3.8)] 有 如 果 了 下 FtT 则 可 以 用 列 在 下 
中 类 型 的 值 替代 中 的 自由 变量 , 而 得 到 一 个 娄 型 T 的 封闭 项 ,由 类 型 保持 定理 [参见 
定理 (9.3.9)] ,这 个 封 财 项 将 求 值 为 类 型 下 的 最 后 结果 (如 果 它 产生 任何 结果 的 话 )。 我 们 在 
13.5 节 中 将 看 到 如 何 形式 化 一 个 类 似 于 存储 和 存储 类 型 的 概念 。 

最 后 要 注意 ,为 了 对 程序 员 实际 写 的 项 进行 类 型 检查 ,不 需要 费 任何 周折 来 猜测 我 们 用 的 
是 什么 存储 类 型 。 如 上 面 所 述 , 具 体位 置 常量 只 出 现在 作为 求 值 中 间 结 果 的 项 中 ;它们 不 会 出 
现在 程序 员 写 程序 用 的 语言 中 。 这 样 , 可 以 根据 空 存储 类 型 来 类 型 检查 程序 员 的 项 。 随 着 求 
值 的 进行 和 新 位 置 的 创建 ,将 总 是 能 够 看 到 如 何 着 眼 于 新 的 分 配 单元 中 初始 值 的 类 型 来 扩展 
存储 类 型 ;这 个 直觉 在 下 面 的 类 型 保持 定理 [参见 定理 (13.5.3)] 的 陈述 中 形式 化 。 

既然 解决 了 位 置 问题 ,其 他 新 的 语法 形式 的 类 型 规则 马上 就 可 以 得 出 。 当 我 们 产生 一 个 
引用 到 类 型 个 的 一 个 值 时 ,引用 本 身 有 类 型 Ref T : 

TIzFt:T 
II1zZHFreftl :RefTi 
注意 ,这 里 不 需要 扩展 存储 类 型 ,因为 新 位 置 的 名 称 在 执行 时 间 之 前 是 不 会 确定 的 ,而 荆 只 记 
录 已 经 分 配 的 存储 单元 和 它们 类 型 之 间 的 关联 。 

反之 ,如 果 求 值 结 果 类 型 为 Ref Ti 的 一 个 位 置 , 则 对 仅 引 用 将 确保 产生 类 型 为 下 ,的 

一 个 值 : 


(TRef) 


1|ZFtl:RefTii 
[1 ZHItl :Ti 
最 后 ,如果 4 表示 类 型 Ref Ti 的 一 个 单元 , 则 我 们 能 存储 5 到 这 个 单元 中 ,只 要 已 的 类 型 
也 是 T : 


(T-Deref) 


TIZHFti :RefTil T1zYFtz :Ti 
工 | 互 F tl:=tz :Unit 
图 13.1 总 结 了 带 引用 的 简单 类 型 lambda 演算 的 类 型 规则 (及 为 方便 引用 提出 的 语法 和 
求 值 规则 )。 


13.5 ”安全 性 


本 章 的 最 后 任务 是 检查 含 引用 的 演算 是 否 仍然 符合 标准 类 型 安全 性 质 。 进展 定理 ( 良 类 
型 项 不 会 受阻 氏 参 见 定理 (13.5.7)] 的 提出 与 证 明 大 致 与 前 几 章 相似 ;我 们 只 需要 加 上 几 个 直 
接 可 证 的 情况 来 处 理 新 的 构造 。 保 持 定 理 有 点 意思 ,因此 我 们 首先 来 看 看 保持 定理 。 

因为 扩展 了 求 值 关 系 ( 带 初始 和 最 终 存 储 ) 和 类 型 关系 ( 带 一 个 存储 类 型 ) ,我 们 需要 改变 保 
持 的 语句 将 这 些 参数 包括 进来 。 显 然 ,不 能 只 加 上 存储 和 存储 类 型 而 不 考虑 它们 之 间 的 联系 。 

HLIIZHFt:TandtiIRA 一 tnthenTr13Ht :T (错误 1) 
如 果 根 据 存储 值 类 型 的 假设 集合 进行 类 型 检查 ,并 且 对 违反 这 些 假设 的 一 个 存储 来 求 值 ,结果 
将 是 一 个 灾难 。 下 面 提出 了 必要 的 约 柬 。 

13.5.1 定义 :对 于 一 个 存储 彤 一 个 类 型 上 下 文 P 和 一 个 存储 类 型 Z, 如 果 dom(n) = 

dom(Z) 且 对 每 个 le dom(a),PIZEH AD 成 立 , 则 称 呈 为 良 类 型 的 , 记 为 IEZF RD):ZCD)。 
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~ unit 巍 滑 用 Unit 来 扩展 X_ (9.7 和 1.2) 
人 
七 := 项 ; 
X 数量 tl 省 一 + 了 全 
AXET 抽象 titz 千 一 如 已 用 轴 
蕊 二 应 用 
unit 常量 uniit (E-APP2) 
引用 创建 
解 引用 | CAx:Til.tl27) ) v 醒 二 区 ~ -valtl > 
赋值 (E-APPABS) 
入 存储 位 置 
(上 -REFV) 
V，: 评 值 : 
AIX2J 二 抽象 值 
unit 常量 unit (E-REF) 
关 存储 位 置 
机 函数 类 型 
Unit 单位 类 型 0 六 
0 引用 单元 类 型 (E-DEREF) 
人 上 下 文 : (E-ASSIGN) 
亿 空 止 下 文 
和 人 (E-ASSIGNT) 
镭 := 存储 : 
名 人 (E-ASSIGN2) 
外 位 置 绑 定 
灵 := 存储 类 型 ; 
次 空 存储 类 型 
位 置 类 弄 CoOttinaed... 
X:T ET CEVAR 
TI-x:T 
T, x:Ti 放 rt :T RE 
CE 人 (T-ABS) 
二 FAx:Ti.t2 : 
[有 展 志 IE2 Ti 
(TI-APP) 
I -unit : Unit (T-UNIT) 
(T-ASSIGN) 
图 13.1 引用 


”直觉 地 ,如 果 在 存储 中 每 个 值 具有 存储 类 型 预测 的 类 型 ,一 个 存储 与 一 个 存储 类 型 
是 一 致 的 。 
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13.5.2 ”练习 [ 丸 ] ;能 否 找到 一 个 上 下 文 P, 一 个 存储 ， 和 两 个 不 同 的 存储 类 型 六 和 马 
使 得 PIZ 广 关 并 且 下 有 Fo 


下 面 的 表述 较 接 近 于 理想 的 保持 性 质 ， 


如 果 ， 
工 | 三- 塘 :T 
t|R 一 臣下 
工 | 王 上 太 
则 ，T1EFt' :T，( 还 有 一 些 错误 ) 
这 个 陈述 几乎 对 所 有 的 求 值 规则 是 正确 的 ,除了 分 配 规则 E-RefVv。 问 题 是 这 个 规则 产生 一 个 
带 有 比 初 始 存储 更 大 定义 域 的 存储 ,这 使 得 上 述 结 论 不 成 立 : 如 果 彤 包含 一 个 对 新 位 置 ! 的 绑 
定 , 则 /不 可 能 在 荆 的 定义 域 中 ,所 以 将 不 会 出 现 这 样 的 情况 :在 王 下 (其 中 心 明确 地 包含 了 
由) 是 可 类 型 化 的 。 
显然 ,因为 在 求 值 过 程 中 存储 的 大 小 可 以 增加 ,我 们 人 允许 存储 类 型 也 增加 。 这 得 到 了 类 型 
保持 性 质 的 最 后 (正确 的 ) 陈 述 。 
13.5.3 ”定理 [保持 ] :如 果 ， 
[1ZzFt:T 
工 [过 F KR 
tl1R 一 臣下 
则 , 对 某 个 三 2 开 : 
TJ1zZFt T 
T 1 广 岂 . 
注意 保持 定理 仅仅 断定 存在 某 个 存储 类 型 闷 3( 即 在 所 有 老 位 置 的 值 与 己 一 致 ) ,使 得 新 的 
项 t 关 于 蕊 是 良 类 型 的 ; 它 没有 告诉 我 们 翌 是 什么 。 当 然 , 这 直观 上 是 清楚 的 , 立 要 么 是 荆 , 要 
么 是 (1 一 工 ) ,其 中 /是 一 个 新 近 分 配 的 位 置 ( 凡 的 定义 域 中 新 元 素 ) ,并 且 了 全 是 在 扩展 的 
存储 (n, 7 一 w) 中 国界 ;的 初始 值 的 类 型 ,但 明显 地 陈述 这 一 点 将 使 定理 的 陈述 变 得 更 复杂 ， 
而 不 会 使 它 变 得 更 加 有 用 。 上 面 较 弱 形式 的 定理 早已 是 以 正确 形式 (因为 它 的 结论 荀 涵 它 的 
假设 ) 来 重复 推导 ,并 且 得 出 结论 :每 个 求 值 步骤 的 序列 保持 良 类 型 性 。 将 其 与 进展 性 质 相 结 
合 , 我 们 可 保证 ;“ 良 类 型 的 程序 不 会 出 错 ”。 
为 了 证 明 保持 性 ,我 们 需要 几 个 技术 性 引 理 。 第 一 个 是 标准 替换 引 理 [参见 引 理 (9.3.8)] 
的 简单 扩展 。 


13.5.4 引 理 [ 代 换 ]: 如 果 T,x:SIZEFtT 和 TIEZF s:S 成 立 , 则 PIZF[Ixr=slt:T 成 立 。 
证 明 : 同 引 理 (9.3.8) 。 
下 面 的 引 理 说 用 一 个 适当 类 型 的 新 值 蔡 代 存储 中 一 个 单元 的 内 容 将 不 会 改变 存储 的 整个 类 型 。 


13.5.5 引 理 :如 果 : 
工 1 王 FR 
ZE(D) =T 工 
[TI1ZHYIT 





则 ,riIEZFC=-vln 
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证 明 : 直 接 由 TIZHF pm 的 定义 得 到 。 


最 后 ,我 们 需要 一 种 存储 的 弱化 引 理 ,如 果 一 个 存储 用 一 个 新 的 位 置 扩展 , 则 扩展 的 存储 
仍 允 许 我 们 给 以 前 相同 的 项 指派 类 型 。 


13.5.6 引 理 :如 果 TIZF ET 成 立 且 双 22, 则 有 下 IZH Et:T。 
证 明 :简单 归纳 证 明 。 
现在 我 们 证 明 主 要 的 保持 定理 。 


保持 定理 (13.5.3) :直接 对 求 值 推导 做 归纳 ,利用 上 面 的 引 理 和 类 型 规则 的 逆转 性 质 [ 引 
理 (9.3.1) 的 一 个 直接 推广 ]。 


对 进展 定理 [参见 定理 (9.3.5)] 的 扩展 必须 要 考虑 存储 及 存储 类 型 。 


13.S.7 ”定理 [进展 ] :假设 { 是 一 个 封闭 的 、 良 类 型 的 项 ( 即 对 某 个 T 和 了 并 ,有 CIZEHF t:T)。 
则 要 么 { 是 一 个 值 ,要 么 对 任何 存储 疡 使 ZIZHF ,存在 某 个 项 Y 和 存储 凡 使 得 tbrrbia。 


证 明 :直接 对 类 型 推导 做 归纳 ,如 定理 (9.3.5) 的 形式 [典型 形式 引 理 (9.3.4) 需 要 两 个 附 
加 的 情况 ,用 来 说 明 所 有 类 型 Ref T 的 值 是 位 置 ,与 Unit 类 似 ]。 


13.$.8 ”练习 [推荐 ,xxx]: 本 章 中 的 求 值 关系 是 否 在 良 类 型 的 项 上 是 规范 化 的 ? 如 果 是 ， 
证 明 它 ; 如 果 不 是 ,在 当前 的 演算 ( 带 有 数值 和 布尔 值 ) 中 写 出 一 个 良 类 型 的 阶乘 函数 。 


13.6 注释 


本 章 中 的 内 容 是 根据 Harmper(1994,1996) 的 处 理 方式 修改 而 成 的 。Wright 和 Felleisen(1994) 
给 出 了 一 个 风格 类 似 的 说 明 。 ， 

将 引用 (或 其 他 计算 效果 ) 组 合 到 ML 形式 的 多 态 类 型 推论 中 产生 了 某 些 相当 麻烦 的 问题 
(参见 22.7 节 ) , 且 这 种 组 合 在 研究 文献 中 受到 重视 。 参 见 Tofte(1990) ,Hoang 等 (1993) ,Jouvelot 
和 Cifford(1991) ,Talpin 和 Jouvelot(1992), Leroy 和 Weis(1991) , Wright(1992) , Harper(1994,1996 ) ， 
以 及 他 们 所 列 的 参考 文献 。 

别名 的 静态 预测 是 一 个 在 编译 实现 ( 称 为 别名 分 析 ) 和 程序 语言 理论 中 长 期 未 解决 的 问 
题 。Reynolds(1978 ,1989) 的 一 个 有 影响 的 尝试 被 冠 名 为 干扰 的 语法 控制 。 这 些 想 法 最 近 引 发 
一 个 新 活动 一 一 参见 0" Heam 等 (1995) 和 Smith 等 (2000) 。Reynolds(1981) 以 及 Ishtiag 和 0"7 Heam 
(2001) 所 列 的 参考 文献 中 讨论 了 对 别名 的 更 一 般 的 推理 技术 。 

在 Jones 和 Lins(1996) 中 可 以 找到 关于 垃圾 收集 的 一 个 全 面 论述 。 更 偏重 于 语义 的 处 理 在 
Mormisett 等 (1995) 中 有 所 论述 。 





我 们 现在 就 应 找 出 致使 他 发 疯 的 原因 ,或 令 其 发 疯 的 某 些 缺陷 , 因为 疯 症 是 个 结 
果 , 而 此 结果 必定 是 某 缺 陷 所 造成 的 。 
一 一 哈姆雷特 工 ,第 2 幕 
指向 月 亮 的 手指 不 是 月 亮 。 
一 一 佛 说 
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在 第 13 章 中 ,我 们 看 到 了 如 何 扩展 带 可 变 引 用 的 纯 简 单 类 型 lambda 演算 的 简单 操作 语 
义 ,并 考虑 了 这 种 扩展 对 类 型 规则 和 类 型 安全 性 证 明 的 影响 。 在 这 一 章 中 ,我 们 处 理 另 一 种 计 
算 模型 的 扩展 :提升 和 处 理 异 常 。 

实际 编程 中 经 常会 遇 到 这 种 情况 :一 个 函数 需要 向 它 的 调用 者 发 出 一 个 信息 ,由 于 某 种 原 
因 不 能 执行 它 的 任务 ,因为 某 个 计算 包含 被 零 整除 ,或 一 个 算术 溢出 ,一 个 查找 键 从 字典 中 的 
丢失 ,数组 下 标 越 界 , 一 个 文件 不 能 找到 或 打开 ,以 及 某 个 灾难 性 事件 的 发 生 , 如 系统 内 存 满 
了 ,或 用 户 强行 终止 了 某 个 进程 ,等 等 。 

这 些 异 常 条 件 中 某 一 些 可 以 通过 使 函数 返回 一 个 变 式 (或 一 个 选择 ) 来 显示 ,如 在 1.10 节 
中 所 见 到 的 那样 。 但 在 异常 条 件 是 真正 的 异常 情形 中 ,我 们 不 可 以 要 求 函 数 每 次 来 处 理 可 能 
出 现 的 异常 ,而 更 希望 一 个 异常 条 件 引 起 一 个 直接 控制 转换 为 程序 更 高 层 中 定义 异常 处 理 器 
(如 果 蜡 常 条 件 是 非常 罕见 的 ,或 如 果 调 用 者 没有 办 法 从 异常 中 恢复 ) 简 单 地 终止 程序 。 我 们 
首先 考虑 后 一 种 情况 (参见 14.1 节 ) ,其 中 的 一 个 异常 是 放弃 整个 程序 ,然后 加 上 一 个 机 制 来 
捕获 异常 并 恢复 (参见 14.2 节 ) ,最 后 改进 这 两 个 机 制 , 允 许 只 有 程序 员 说 明 的 数据 可 以 在 异 
常 的 点 和 处 理 器 之 间 传 递 (参见 14.3 节 )。 


14.1 提升 异常 


在 简单 类 型 lambda 演算 中 加 入 可 能 最 简单 的 提示 蜡 常 的 机 制 :一 个 项 emor, 当 求 值 时 ,如 
果 该 项 出 现 , 则 完全 终止 项 的 求 值 。 图 :14.1 给 出 了 所 需要 的 扩展 。 








0 扩展 A- (9: 了 ) 
二 | 。 新 美 型 规 则 
:= en 孙 行 时 邮 晤 浊 (IT-ERROR) 
新 求 值 规则 
ER 
RE 
图 14.1 错误 


在 写 eror 的 规则 时 ,最 主要 考虑 的 是 在 操作 语义 中 如 何 形式 化 “ 非 正常 终止 ”。 我 们 简单 
采用 让 eror 本 身 就 是 放弃 一 个 程序 的 结果 。 用 规则 E-AppErrl 和 规则 了 -AppErm2 说 明 这 个 做 ， 


〇 本 章 中 讨论 的 系统 是 扩展 为 包含 各 种 异常 和 异常 处 理 原 语 (如 图 14.1 和 图 14.2 所 示 ) 的 简单 类 型 lambda 演算 ( 参 
见 图 9.1)。 第 一 个 扩展 的 OCaml 实现 fullerror。 带 值 异 常 (如 图 -了 玛 .3 所 示 ) 的 语言 没有 实现 ! 
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法 。E-AppErl 说 明 : 如 果 将 应 用 的 左 端 归 约 为 一 个 值 时 遇 到 项 eror, 我 们 应 该 立即 产生 error 
作为 应 用 的 结果 。 类 似 地 ,E-AppEr2 说 明 : 如 果 将 应 用 的 参数 归 约 为 一 个 值 时 遇 到 一 个 error， 
则 应 该 放弃 应 用 并 立即 产生 eror。 
注意 ,我们 没有 将 emor 包括 在 值 的 语法 中 ,只 是 在 项 的 语法 中 。 这 保证 了 在 E-AppAbs 和 

E-AppErr2 规则 的 左 端 永远 不 会 出 现 重 释 , 即 求 值 : 

(Ax:Nat.0) error 
这 样 的 一 个 项 不 会 含糊 不 清 : 是 执行 应 用 (产生 0 作为 结果 ) 还 是 放弃 。 结 果 是 选择 后 者 。 类 
似 地 ,在 忆 4AppEr2 中 使 用 元 变量 w (而 不 是 取 任 何 项 n ) 人 迫使 求 值 器 等 待 ,直到 一 个 应 用 的 左 
端 在 放弃 之 前 归 约 为 一 个 值 ,即使 右 端 是 eror。 这 样 ,如 : 

(fix (AX:Nat.X)) error 


这 样 的 项 将 发 散 而 不 是 终止 。 这 些 条 件 确保 求 值 关系 仍然 是 可 确定 的 。 

类 型 规则 T-Eeror 也 很 有 意思 。 因 为 我 们 允许 在 任何 上 下 文中 提升 一 个 异常 ,项 emor 的 形 

式 可 以 有 任何 的 类 型 。 在 : 
(CAX:Boo1.x) error; 

中 它 有 类 型 Bool。 在 : 
(CAx:Boo1.x) (Cerror true)] ; 

中 它 有 类 型 Bool-~Bool 。 

enmor 类 型 的 这 个 灵活 性 在 实现 类 型 检查 算法 时 会 提高 难度 ,因为 它 破坏 了 下 面 的 性 质 :每 
个 在 语言 中 可 类 型 化 的 项 有 惟一 的 类 型 [参见 定理 (9.3.3)]。 这 能 用 几 种 方法 来 处 理 。 在 带 
有 子 类 型 的 语言 中 ,我 们 能 给 emor 赋予 最 小 类 型 Bot( 参 见 15.4 节 ) , 它 在 必要 时 可 以 提升 为 
任何 其 他 类 型 。 在 带 参数 多 态 的 语言 中 (参见 第 23 章 ) ,能 给 eror 多 态 类 型 VX.X, 它 能 实例 
化 为 任何 其 他 类 型 。 这 两 种 办 法 允许 eror 的 无 限 多 个 可 能 的 类 型 紧 致 地 表示 为 一 个 单一 
类 型 。 

14.1.1 ”练习 [*j: 如 果 要 求 程序 员 在 使 用 eror 的 每 个 上 下 文中 用 合适 的 类 型 注释 error， 

这 样 是 否 更 简单 ? 

对 于 带 异 常 语言 的 类 型 保持 性 质 也 成 立 : 如 果 一 个 项 有 类 型 T, 并 且 我 们 对 它 一 步 求 值 ， 
结果 仍 为 类 型 T。 进 展 性 质 则 需要 做 点 修改 。 在 原来 的 形式 中 ,进展 性 质 说 明 一 个 良 类 型 程 
序 必 须 求 值 为 一 个 值 (或 发 散 )。 但 现在 我 们 引入 了 一 个 非 值 的 范式 eror, 它 可 以 是 一 个 良 类 
型 程序 的 求 值 结 果 。 根 据 这 一 点 需要 重 述 进展 。 


14.1.2 ”定理 [进展 ] :假设 + 是 一 个 封闭 的 良 类 型 范式 , 则 要 么 + 是 一 个 值 ,要 么 t = error。 
14.2 处理 异常 
error 的 求 值 规则 可 以 看 做 是 “展开 调用 堆栈 " ,放弃 未 决 的 函数 调用 直到 emor 扩散 到 顶 


层 。 在 实际 带 异 常 语言 的 实现 中 ,会 发 生 :调用 堆栈 由 活动 记录 的 集合 组 成 ,每 个 活跃 函数 调 
用 有 一 个 活动 记录 ;提升 一 个 异常 引起 活动 记录 从 调用 堆栈 中 弹出 直到 堆栈 变 空 为 止 。 
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在 大 部 分 带 异 常 的 语言 中 ,也 可 能 在 调用 堆栈 中 装 上 一 个 异常 处 理 器 。 当 一 个 异常 提升 
时 ,活动 记录 从 调用 堆栈 中 弹出 直到 遇 到 一 个 异常 处 理 器 ,并 且 求 值 在 有 这 个 处 理 器 的 情况 下 
继续 进行 。 换 言 之 ,异常 函数 作为 控制 的 一 个 非 局 部 转换 器 , 它 的 目标 是 最 近 装 上 的 异常 处 理 
器 ( 即 在 调用 堆栈 中 最 近 的 一 个 )。 

对 异常 处 理 器 的 形式 化 类 似 于 ML 和 Java( 参 见 图 14.2)。 表 达 式 tyt witht 表示 “ 送 回 + 
的 求 值 结 果 ,除非 它 放弃 ,放弃 时 会 求 值 处 理 器 b”。 求 值 规则 ETyV 说 明 : 当 归 约 为 一 个 
值 w 时 ,可 以 丢掉 ty, 因为 它 不 会 再 需要 了 。 另 一 方面 , ETyEmor 说 明 :如 果 求 值 + 导致 
eror, 则 可 以 用 已 蔡 代 try, 并 且 从 那里 继续 求 值 。E-Try 告诉 我 们 在 归 约 ti 为 一 个 值 或 emor 之 
前 ,应 该 继续 对 * 求 值 并 且 考虑 b。 


~ error 源 尖 扩展 带 errors 的 A_(I4.1) 


error Tv 
新 语法 形式 
了 项 : (E-TRY) 
YE 捕获 错误 






新 求 值 规则 新 类 型 规则 





图 14.2 eror 处理 


tr 的 类 型 规则 直接 根据 它 的 操作 语义 。 整 个 tr 的 结果 可 以 是 主体 t 的 结果 ,也 可 以 是 
处 理 器 b 的 结果 ;如 果 它们 有 相同 的 类 型 Titry 的 类 型 也 为 T。 
类 型 安全 性 性 质 和 它 的 证 明 本 质 上 与 上 一 节 相同 。 


14.3 带 值 的 异常 


在 14.1 节 和 14.2 节 中 引入 的 机 制 使 函数 提示 它 的 调用 者 “ 某 种 不 寻常 的 事情 发 生 了 ”。 

提示 发 生 了 哪些 不 寻常 的 事 ,这 种 信息 是 很 有 意义 的 ， 因为 处 理 器 需要 采取 的 行动 (要 妈 
恢复 并 且 重 试 ,要 么 将 一 个 可 理解 的 错误 消息 反馈 给 用 户 ) 将 依赖 于 这 个 信息 。 

14.3 说 明基 本 异常 处 理 的 构造 如 何 可 以 加 强 , 使 得 每 个 异常 携带 一 个 值 。 这 个 值 的 类 
型 记 为 Te。。 暂 时 我 们 不 设 定 这 个 类 型 的 确切 性 质 ; 下 面 将 讨论 几 种 可 能 的 选择 。 

原子 项 eror 用 一 个 项 构造 子 raise t 替代 ,其 中 t 是 一 个 我 们 需要 传 给 异常 处 理 器 的 额外 
信息 。try 的 语法 仍然 不 变 ,但 ty th with b 中 的 处 理 器 b 现在 解释 为 一 个 函数 ; 它 取 这 个 额外 
信息 为 参数 。 

求 值 规则 已 TryRaise 实现 这 个 行为 ,从 体 h 中 取出 由 二 个 raise 携带 的 额外 信息 ,将 它 传 给 
处 理 器 e。E-AppRaisel 和 EAppRaise2 在 应 用 中 传递 异常 ,就 像 图 14.1 中 的 E-AppErrl 和 
FAppFErm2。 然 而 要 注意 ,这 些 规则 只 允许 传递 额外 信息 为 一 个 值 的 异常 ;如 果 我 们 企图 求 值 
一 个 带 额 外 信息 的 raise, 而 额外 信息 本 身 要 求 求 值 ， 这 些 规则 将 受阻 ,迫使 我 们 先 采 用 ERaise 
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来 对 额外 信息 求 值 。 当 求 值 的 额外 信息 是 其 他 异常 中 发 送 的 时 候 会 发 生 异 常 ,而 这 种 异常 由 
E-RaiseRaise 传递 。E-TryV 告诉 我 们 ,一 旦 一 个 tr 的 主体 归 约 为 一 个 值 就 可 以 丢弃 ty ,就 像 在 
14:2 节 中 一 样 。E-Try 引导 求 值 器 在 一 个 tr 的 体 上 求 值 直到 它 成 为 一 个 值 或 一 个 raise。 

一 扩展 入 _ (9.7) 








项 (上 -TRYV) 
提升 异常 
处 理 异 常 (上 -TRYRAISE) 
We (E-TRY) 
本 (E-APPRAISEID) 2 
[rt:T 
，(E-APPRAISE2) [Crt:T] 
(T-EXN) 
(E-RAISE) 
(T-TRY) 
(E-RAISERAISE) 








14.3” 带 值 的 异常 


行为 上 ,类 型 规则 反映 这 些 改变 。 在 TRaise 中 我 们 要 求 额外 信息 有 类 型 T。, ;整个 raise 
可 以 赋予 上 下 文 要 求 的 任何 类 型 T。 在 TTr 中 ,把 处 理 器 b 当成 一 个 函数 ,对 给 定 类 型 T。。 
的 额外 信息 ,产生 与 相同 类 型 的 一 个 结果 。 

最 后 ,考虑 类 型 T。。 的 可 能 方案 。 


1. 可 以 取 T。 为 Nat 。 这 对 应 于 UNKX 操作 系统 函数 所 用 的 ermo 约定 :每 个 系统 调用 返 
回 一 个 数值 的 “错误 代码 ”, 用 0 表示 成 功 ,其 他 值 表示 各 种 异常 条 件 。 

2. 可 以 取 T。。 为 Sting, 这 可 以 避免 在 表 中 查询 错误 数 ,并 且 人 允许 异常 提升 点 构造 所 希望 
的 更 具 描 述 性 的 消息 。 这 个 额外 灵活 性 的 代价 是 错误 处 理 器 可 能 不 得 不 分 析 这 些 字 
符 串 来 找 出 发 生 了 什么 。 

3. 可 以 继续 将 信息 更 多 的 异常 传递 出 去 ,而 避免 字符 串 分 析 ,条 件 是 定义 T.. 为 一 个 变 式 


类 型 : 

Texn = <divideByzero: Unit， 
overf1ow: Unit， 
fi1eNotFound : String， 


fi1eNotReadab1le: String， 
> N 


这 个 方案 允许 一 个 处 理 器 用 一 个 简单 case 表达 式 来 区 别 各 种 异常 。 不 同 的 异常 可 以 
携带 不 同类 型 的 附加 信息 : 像 divideByZero 这 样 的 异常 不 需要 额外 打包 ,fleNotFound 
可 以 携带 一 个 字符 串 标示 在 错误 出 现时 哪个 文件 被 打开 过 ,等 等 。 
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但 这 个 方案 有 点 不 灵活 ,需要 事先 固定 能 由 程序 提升 的 异常 整个 集合 ( 即 变 式 类 型 T。 
的 标签 的 集合 )。 这 样 程序 员 没 有 余地 来 声明 应 用 特有 的 异常 。 


. 上 一 个 想法 可 以 改进 ,考虑 用 户 定义 的 异常 ,通过 取 T。。 为 一 个 可 扩展 的 变 式 类 型 。 


ML 采用 这 个 想法 ,提供 单个 的 可 扩展 变 式 类 型 称 为 en ML 声明 exception 1 of T 在 当 
前 的 情况 下 可 以 为 “确保 1 不 同 与 任何 在 变 式 类 型 T.. 中 出 现 的 标签 @, 并 且 从 现在 起 ， 
设 T .为 <1:T :tl:T> ,其 中 1:fT 到 1:t 是 在 此 声明 之 前 的 可 能 变 式 ”。 
ML 提升 异常 的 语法 是 raise 1(t) ,其 中 1 是 一 个 定义 在 当前 辖 域 中 的 异常 标签 。 这 可 以 
理解 为 标签 算 子 和 简单 raise 的 组 合 : 


raise 1(t) 暗 ” raise (<1=t> asTeoun) 


类 他 地 ,ML try 构造 可 以 用 简单 的 tr 加 一 个 case 化 简 : 


def 


trytwith1CDI ~h = 三 trytwith 
Ae:Texn ， Case e of 
<]1=Xx> 之 h 
1 -> raisee 


case 检查 被 提升 的 异常 是 否 标签 为 1。 如 果 是 , 它 绑 定 被 异常 所 携带 的 值 到 变量 x, 并 
且 对 处 理 器 h 求 值 。 如 果 不 是 , 它 到 else 子 句 , 重新 提升 异常 。 异 常 将 继续 传递 (并 可 
能 被 捕获 和 重新 提升 ) 直 到 它 要 么 到 达 一 个 要 求 处 理 它 的 处 理 器 ,要 么 到 达 顶 层 并 且 
放弃 整个 程序 。 


. Java 用 类 (而 不 是 可 扩展 的 变 式 ) 来 支持 用 户 定义 的 异常 。 这 个 语言 提供 一 个 内 置 类 


Throwable; Throwable 的 一 个 实例 或 它 的 子 类 实例 可 以 在 一 个 throw 中 (如 同 raise) ,或 
ty…catch( 如 同 ty…with) 语 句 中 使 用 。 新 的 异常 可 以 通过 定义 Throwable 的 新 的 子 类 
来 声明 。 

实际 上 这 个 异常 处 理 机 制 和 ML 的 机 制 有 密切 的 对 应 。 粗 略 地 讲 ,在 Java 中 一 个 异常 
对 象 在 运行 时 间 中 表示 为 一 个 指示 它 的 类 的 一 个 标签 (这 直接 对 应 于 在 ML 中 可 扩展 
的 变 式 标 签 ) 加 上 一 个 实例 变量 的 记录 (对 应 于 由 这 个 标签 标记 的 额外 信息 )。 

Java 异常 在 许多 方面 比 ML 更 进一步 。 其 中 一 个 是 在 异常 标签 上 存在 一 个 自然 偏 序 ， 
这 个 偏 序 是 由 子 类 序 生成 的 。 蜡 常 1 的 一 个 处 理 器 实际 上 捕 损 携带 一 个 类 1 或 任何 1 
子 类 对 象 的 所 有 蜡 常 。 另 一 个 是 java 区 分 应 用 程序 想 要 捕 提 并 试图 恢复 的 异常 (内 置 
类 FException 的 子 类 Throwable 的 一 个 子 类 ) 和 指示 一 个 通常 应 该 停止 执行 的 严重 状 
况 的 错误 ( Error 的 子 类 一 一 也 是 Throwable 的 一 个 子 类 ) ,两 者 之 间 的 关键 区 别 在 于 类 型 
检查 规则 ,这些 规 则 要 求 方法 明确 地 声明 它们 提升 的 是 哪个 异常 (而 不 是 哪个 错误 )。 





14.3.1 ”练习 [*xxj] :在 上 述 的 方案 4 中 可 扩展 的 变 式 类 型 的 解释 有 点 非 形 式 化 。 说 明 如 
何 使 它 精确 化 ? 


中 ”可 以 进一步 地 将 可 扩展 的 变 式 类 型 作为 一 个 一 般 的 语言 特征 ,但 ML 的 设计 者 选择 将 em 处 理 为 一 个 特殊 情况 。 


思 


因为 exception 的 形式 是 一 个 绑 定 器 ,我 们 总 可 以 保证 1 不 同 于 在 Te 中 使 用 的 标签 ,如 有 必要 可 利用 alpha 转 化 。 
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14.3.2 ”练习 [xxwx] :注意 到 Java 异常 (那些 Exception 的 子 类 ) 比 起 ML 中 异常 (或 这 里 
定义 的 ) 限 制 更 多 ;由 方法 可 以 提升 的 异常 必须 在 方法 的 类 型 中 声明 。 扩 展 你 对 练习 
14.3.1 的 解答 ,使 得 一 个 函数 的 类 型 指示 不 但 是 它 的 参数 和 结果 类 型 ,而 且 也 指示 它 可 能 
提升 的 异常 集合 。 证 明 你 的 系统 是 类 型 安全 的 。 


14.3.3 练习 [xxx]: 许 多 其 他 控制 构造 子 可 以 用 类 似 于 在 本 章 中 见 到 的 技术 来 形式 化 。 
熟悉 Scheme 的 “当前 连续 调用 ”(callycc) 算 子 (参见 Clinger, Friedman 和 页 and ,1985; Kelsey， 
Clinger 和 Rees,1998; Dybvig,1996; Friedman, Wand 和 Haynes,2001) 的 读者 ,可 以 试 着 形式 
化 基于 了 连续 的 一 个 类 型 Cont T( 即 期 望 类 型 T 的 一 个 参数 的 连续 ) 上 的 类 型 规则 。 














第 三 部 分 子 类 型 化 


第 15 章 “ 子 类 型 

第 16 齐 ” 子 类 型 的 元 理论 

第 17 章 ” 子 类 型 化 的 ML 语言 实现 、 
第 18 章 实例 分 析 : 命 令 式 对 象 

第 19 章 实例 分 析 : 轻 量 级 的 Java 











第 1S 章 子 类 型 


在 第 二 部 分 中 ,我 们 用 最 后 几 个 章节 的 篇 幅 学 习 了 在 简单 类 型 的 演算 框架 内 的 语言 肿 
征 的 种 种 类 型 化 行为 。 本 章 将 着 重 讲述 一 个 更 加 基本 的 扩展 部 分 : 子 类 型 化 (有 时 也 称 为 子 类 
型 的 多 态 性 )。 到 目前 为 止 我 们 所 讨论 的 内 容 之 间 的 联系 并 不 紧密 ,与 之 不 同 的 是 , 子 类 型 是 
一 个 交叉 的 领域 ,对 绝 大 多 数 的 语言 特征 之 间 有 着 非常 重要 的 影响 。 

子 类 型 化 是 面向 对 象 程序 语言 所 特有 的 ,并 且 通 常 认为 是 面向 对 象 类 型 的 一 个 最 本 质 的 
特征 。 在 第 18 章 将 对 这 方面 的 内 容 做 进一步 探讨 ;现在 ,尽管 已 经 出 现 了 很 多 有 趣 的 课题 ,但 
我 们 对 子 类 型 化 的 表述 仍 将 停留 在 简单 的 形式 中 , 即 只 讨论 函数 和 记录 。 在 15.5 节 中 ,将 讨 
论 子 类 型 与 前 几 章 提 到 的 其 他 特征 的 结合 。 在 15.6 节 将 用 更 加 精确 的 语言 描述 子 类 型 ,并 与 
运行 时 间 强 制 转换 的 加 入 对 应 。 


15.1 包含 


如 果 没 有 子 类 型 ,简单 类 型 的 入 演算 规则 的 实现 会 遇 到 很 大 的 困难 。 系 统 类 型 的 存在 ,使 
参数 类 型 完全 与 函数 类 型 的 字段 相 匹配 ,这 将 导致 类 型 检查 器 抛弃 众多 的 对 程序 员 来 讲 似乎 
是 有 着 明显 良好 性 能 的 程序 ,比如 ,我们 回顾 一 下 作为 函数 应 用 的 类 型 化 规则 ; 

TFtli :Tili-Ti2 TIFt2z :Til 


[THFtitz :ITi> CT-App) 


根据 这 个 规则 ,正确 的 项 : 
《Ar:{X:Nat}，『.xX) {fx=0,y=11} 
是 不 能 类 型 化 的 ,因为 参数 类 型 是 jx:Nat,y:Nat| ,而 函数 所 接受 的 参数 却 是 ;jx:Nat}|。 但 是 , 函 
数 显然 仅仅 要 求 它 的 参数 是 带 字段 x 的 记录 , 它 并 不 关心 参数 是 否 带 其 他 字段 。 而 且 ,能 从 这 
个 函数 的 类 型 看 出 :我 们 并 不 需要 查看 函数 体 以 确认 除了 字段 x 外 它 没 有 使 用 其 他 的 字段 。 
传递 类 型 为 1x:Nat,y:Nati 的 参数 给 希望 得 到 参数 类 型 为 jx:Nai} 的 函数 总 是 安全 的 。 
进行 子 类 型 化 的 目的 是 改进 类 型 化 规则 ,这 样 出 现 上 面 情 况 的 项 也 是 可 接受 的 。 一 些 类 
型 比 其 他 类 型 带 来 的 信息 更 准确 , 为 此 要 将 该 想法 形式 化 :所 说 的 S 是 T 的 子 类 型 , 记 为 
S <:T, 意 味 着 所 有 类 型 为 $ 的 项 用 在 需要 类 型 了 的 项 的 上 下 文中 都 是 安全 的 。 这 个 子 类 型 化 
的 观点 通常 被 称 为 安全 代 换 原则 。 
S <:T 了 更 简单 的 理解 是 “用 S 刻画 的 每 一 个 值 就 是 用 T 来 刻画 的 ”, 也 就 是 说 “S 型 的 元 素 
集合 是 了 型 元 素 集 合 的 子 集 "。 我 们 在 15.6 节 中 将 会 看 到 其 他 对 子 类 型 化 更 加 精确 的 解释 有 
时 是 有 用 的 ,但 是 本 书 的 子 集 语义 足以 满足 大 部 分 要 求 。 


人 ”本章 学 习 的 演算 是 和。 , 它 是 带子 类 型 化 (参见 图 15.1) 和 记录 类 型 (参见 图 15.3) 的 简单 类 型 》 演算 ;相关 的 0Caml 
实现 是 redsub( 一 些 例 子 还 使 用 了 数字 ;应 该 用 follsub 来 检查 它们 )。 
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类 型 关系 与 这 里 的 子 类 型 关系 之 间 的 桥梁 可 通过 增加 一 个 称 为 包含 的 新 类 型 规则 建立 
起 来 : 
[tt:9 S <: 了 
工 上 -七 :下 


这 个 规则 告诉 我 们 ,如果 S <:T, 那 么 S 中 的 每 一 个 元 素 也 都 是 T 中 的 元 素 。 举 例 来 说 ,如 果 定 
义 子 类 型 关系 如 |x:Nat,y:Natl<:ix:Natl ,那么 就 可 以 用 公式 (TSub) 来 推导 出 Fljx= 0,y=]: 
lx:Natl ,这 样 提 出 的 例子 能 通过 类 型 检查 。 


15.2 子 类 型 关系 


子 类 型 关系 是 将 $ <:T[ 可 读 做 “S 是 T 的 一 个 子 类 型 "或 “了 是 S 的 父 类 型 ”) ] 形 式 的 推导 
语句 组 成 的 推论 规则 集成 起 来 进一步 形式 化 。 我 们 分 开 考虑 每 种 类 型 形式 (如 函数 类 型 ,记录 
类 型 等 ); 对 每 种 类 型 ,都 将 介绍 一 条 或 多 条 规则 ,用 来 将 应 该 使 用 某 个 类 型 元 素 的 地 方 却 使 用 
了 另 一 种 类 型 的 元 素 而 依然 是 安全 的 这 种 情况 进行 了 形式 化 。 

在 展开 特殊 的 类 型 构造 子 之 前 , 先 提 出 两 个 一 般 的 约定 :第 一 , 子 类 型 化 应 该 有 自 反 性 : 


(TSub) 


S<:S (S-Refl) 
第 二 , 子 类 型 化 应 该 有 传递 性 ， 
S <: U<:T 
SRTT (CS Tans) 


提出 这 些 规 则 是 直接 出 于 安全 代 换 的 考虑 。 
现在 ,对 于 记录 类 型 ,有 类 型 S= |k :S … ku。 :S | 和 类 型 T= 和 :了 工 …1. : 工 .| ,如 果 工 含 的 
字段 数 少 于 小 于 $, 就 认为 $S 是 T 的 子 类 型 。 特 别 情况 下 “忘记 ”记录 类 型 最 后 的 某 些 字段 是 

无 大 碍 的 。 这 个 思想 可 称 为 广度 子 类 型 化 : 
{1:Tieerney <: {1:Tis (S-RcedWidth) 


这 看 上 去 有 些 不 可 思议 :一 个 “更 小 "的 类 型 ( 子 类 型 ) 却 有 更 多 的 字段 。 最 简单 的 理解 方法 就 是 
这 里 对 记录 类 型 采用 一 种 比 11.8 节 中 用 到 的 更 为 自由 的 观点 ,即将 一 个 记录 类 型 jx:Nat|} 理 解 为 
“所 有 至 少 含 Nat 类 型 的 字段 x 的 记录 集合 。 值 jx= 31 和 fx = 5$| 就 是 这 个 类 型 的 元 素 ,同样 , 值 
lx=3,y7=100| 和 jx=3,a= tue,b= tmel 也 是 如 此 。 同 理 , 记 录 类 型 jxz:Nat,y:Natj 是 描述 至 少 
售 x 和 y 两 个 字段 , 且 x 和 y 的 类 型 都 是 Nat 的 记录 。 值 ftx=3,y= 100| 和 jx=3,y= 100,z= 
tmue| 都 是 这 个 类 型 的 成 员 ,而 fx = 3i 则 不 是 ,fx = 3,a = tme,b = tme} 也 不 是 。 这 样 一 来 ,属于 
第 二 个 类 型 的 值 的 集合 就 正好 属于 第 一 个 类 型 值 的 集合 的 子 集 。 记 录 的 字段 数 越 多 限制 也 就 
越 多 ,但 带 来 的 信息 含量 也 越 多 ,所 以 表示 的 值 集 就 越 小 。 

广度 子 类 型 化 规则 仅仅 适用 于 公用 字段 完全 相同 的 记录 类 型 。 只 要 两 个 记录 中 每 个 对 应 
字段 的 类 型 仍 是 子 类 型 关系 ,个 别 字 段 的 类 型 改变 也 是 允许 的 。 这 一 点 可 用 深度 子 类 型 化 规 
则 来 说 明 

对 每 个 1 Si <:Ti 


{1i3:SrIetay <: {T113:Ti IceLo 《S-RedDepth) 


一 一 一 一 一 一 一 一 一 一 一 .一 一 一 一 一 -一 
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接 下 来 子 类 型 化 的 推导 是 将 S-RedWidth 和 S-RcdpDepth 规则 一 起 使 用 来 说 明 骨 套 的 记录 
类 型 {x: ja:Nat,b:Natl ,y:im:Nat 上 是 类 型 |x: la:Natl ,y:| 的 子 类 型 ， 


一 一 -RDWIDTH 一 一 一 一 -RDWIDTH 
{a:Nat,b:Natl <: {a:Nath {m:Naty <: {f} 


{x:fa:Nat,b:Nat},y:{fm:Nat}j <: {x:{fa:Natl,y':ftj} 


如 果 用 规则 S-RedDepth 来 改进 有 单一 字段 的 记录 类 型 (如 上 面 例子 所 做 的 ,不 是 改进 每 一 个 字 
段 ) ,我 们 可 用 规则 S-Refl 来 对 其 他 的 字段 做 一 个 细微 子 类 型 推导 : 


S-RCDDEPTH 


一 一 一 TSRCDWprE RNTCTNRIS 
- 。 。1al: m:Natj <: {m:Na 
人 ratoinat etaiar SRCDDEprH 


{x:fa:Nat,b:Natj,y:fm:Nat}l <: {x:ifa:Natj,y:{fm:Natj】} 


还 可 以 用 传递 规则 S-Trans 将 广度 子 类 型 化 和 深度 子 类 型 化 规则 结合 起 来 进一步 推导 。 比 如 ， 
可 以 去 掉 一 个 类 型 ,同时 提升 另 一 个 类 型 ,以 获得 超 类 型 ， 


一 一 S-RCDWIDTH 
{fa:Nat,b:Natj 
<: {fa:Nat} 
一 一 一 -RDWIDTH 一 -一 一 S-RCDDEPTH 
{tx:fa:Nat,b:Natj,y:{fm:Natlj} {x:{fa:Nat,b:Nat}】 
<: {x:fa:Nat,b:Nat}} <: {fx:{fa:Nat}} 


3S-TRANS 
{x:{fa:Nat,b:Naty,y:fm:Natjl <: {x:fta:Nat}T 
从 最 后 的 记录 子 类 型 化 规则 可 看 出 字段 的 顺序 如 何 变化 对 安全 使 用 该 记录 没什么 影响 ， 
因为 构造 好 了 记录 后 惟一 要 做 的 事情 是 取出 字段 ,而 不 是 关心 字段 的 顺序 。 


tku:SjA 是 1Ti3Tero] 的 一 个 置换 


{kj:S) Je 时 < TITi TEL (S-RcdPerm) 


例如 :规则 SRedPem 说 明 le:Top,b:Bool,a:Natl 是 |a:Nat,b:Bool,c:Topil 的 一 个 子 类 型 ,反之 
也 成 立 (这 说 明子 类 型 关系 不 是 反对 称 的 )。 

将 规则 S-RedPermm 与 S-RedWidth 和 S-Trans 结合 使 用 ,在 记录 类 型 中 的 任何 位 置 都 能 减少 
字段 ,而 不 一 定 非 要 在 未 端 。 


1S$.2.1 练习 [*] :做 一 推导 证 明 |x:Nat,y:Nat,z:Natl 是 1y:Nat| 的 一 个 子 类 型 。 


S- RedWidth,S - RecdDepth 和 S - RedPermm 中 每 个 规则 都 使 记录 的 使 用 灵活 化 了 。 为 便于 
讨论 将 它们 视 为 三 个 独立 规则 ,特别 情况 下 ,有 的 语言 只 使 用 了 部 分 规则 ; 比如 , Abadi 和 
Cardelli 的 对 象 演算 (1996) 的 大 部 分 变化 都 忽略 了 广度 子 类 型 化 规则 。 然 而 考虑 到 实际 使 用 
的 方便 ,将 它们 三 者 组 合 为 一 条 宏 规 则 ,一 次 完成 3 件 事 ( 该 宏 规 则 将 在 下 一 章 中 讨论 )。 

因为 我 们 使 用 的 是 高 阶 (higher-order) 语 言 ,不 但 数字 和 记录 可 作为 参数 ,而 且 函 数 也 能 作 
为 参数 传递 给 其 他 函数 ,所 以 还 需要 给 出 关于 函数 类 型 的 子 类 型 化 规则 , 即 必须 说 明 在 任何 情 
况 下 相关 的 上 下 文中 原本 该 使 用 一 个 不 同 的 函数 类 型 却 实际 使 用 了 另 一 种 类 型 的 函数 也 是 安 
全 的 。 

Ti <: S1 92 <: T> 


S1 一 92 <: TI 一 T> 《SArow) 
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注意 到 对 于 左 端 前 提 的 参数 类 型 的 子 类 型 关系 是 相反 的 ( 逆 变 式 ) ,而 对 函数 类 型 ,结果 类 型 有 
着 相同 的 方向 ( 协 变 式 )。 规 则 是 这 样 的 ,如 果 我 们 有 一 个 类 型 为 S-S 的 函数 f, 可知 ff 接受 
类 型 S, 的 元 素 , 显 然 ,{ 也 接受 任何 为 S 的 子 类 型 T 的 元 素 。f 的 类 型 同时 返回 了 类 型 S 的 
元 素 ; 这 些 返回 的 结果 都 属于 S 的 超 类 型 下 。 那 么 ,类 型 S 一 S 的 任何 函数 f 也 可 以 被 看 做 
是 类 型 Ti 一 T 的 函数 。 

有 另 一 种 观点 认为 ,在 一 个 上 下 文中 只 要 传递 给 函数 的 参数 全 满足 由 <:S, 及 返回 的 结果 
也 全 满足 S <:T , 则 本 该 使 用 类 型 Ti 一 T 的 函数 之 处 使 用 了 类 型 S ~>S, 的 函数 也 是 安全 并 
允许 的 。 

最 后 ,可 找 一 个 所 有 类 型 的 超 类 型 。 这 里 引入 一 个 新 的 类 型 常量 Top, 加 上 一 条 规则 使 
Top 为 子 类 型 关系 的 最 大 元 素 ; 

S <: Top (S-Top) 

15.4 节 中 将 对 Top 做 更 深入 的 讨论 。 

形式 上 , 子 类 型 关系 是 给 出 规则 的 最 小 闭关 系 。 图 15.1, 图 15.2 和 图 15.3 重点 讲述 了 带 
记录 和 子 类 型 化 的 简单 类 型 入 演算 的 完全 定义 ,突出 讲述 了 在 这 章 中 添加 的 语法 形式 和 规则 。 
注意 到 子 类 型 关系 满足 自 反 性 和 传递 性 ,所 以 它 是 一 个 前 序 ; 然 而 ,由 于 记录 置换 规则 , 它 并 不 
是 偏 序 :存在 许多 不 同类 型 的 序 对 ,其 中 一 个 类 型 是 另 一 个 类 型 的 子 类 型 。 
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图 15.1 带子 类 型 化 的 简单 类 型 和 演算 (入 。. ) 
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一 全 入- (9.1) 的 扩展 
新 的 语法 形式 ti 一 1 
好 栅 ， ETEAST (E-PROJ) 
{f1li=ti 1 记录 。 避 
老 . 1 投影 2 
{f1isvi ts， 1j=tj ,1k=tkkshn} (E-RCD) 
VE 值 ，| 一 {li=vi'e1j=ti 1k=tke 
fi=Vi 4 记录 值 新 类 型 化 规则 
foreachi THFti3:T 
下 类 型 : 一 一 (CTRCD) 
ay， 记录 类 型 了 
RE Eee 
新 的 求 值 规则 TI FF tl . 17 & Ti (TPROD) 
flisvie] .1 一 VJj (E-PROJRCD) 


和 
15.2 ”记录 规则 ( 同 图 11.7) 
一 1 六 有 AL15. 刀 扩展 和 简单 的 记录 类 型 规则 (15.2) 


一 一 一 
新 的 子 类 型 规则 1 







(9-RCDPERM) 


图 15.3 ”记录 和 子 类 型 化 


作为 子 类 型 关系 讨论 的 结束 ,让 我 们 证 明 一 下 本 章 开始 时 举 的 例子 能 通过 类 型 检查 。 下 
面 的 推导 采用 如 下 的 缩写 表示 : 


f MAr:{fx:Nat}j.r.x Rx 翌 {x:Nat} 


xy 竹 {x=<0,y=1} Rxy 答 


假设 通常 的 类 型 规则 是 针对 数字 常量 的 ,我 们 可 以 构造 一 个 类 型 语句 F f xy:Nat 的 推导 ,如 
下 所 述 : 


{fx:Nat,y:Nat} 


HHO:Nat FILI:Nat 


S-RCDWIDTH 


T-RcD 一 一 一 一 
Rxy <: RX 
T-S 





FF XY :2 Rxy 


上- 千 : Rx 一 Nat H- Xy ; RX 
T-ApPP 


FFfxy : Nat 
15.2.2 ”练习 [*] :请 问 这 是 语句 F f xy:Nat 惟一 的 推论 吗 ? 
15.2.3 ”练习 [*]:(1) 请 问 ia:Top,b:Top} 有 多 少 不 同 的 子 类 型 ? (2) 你 能 否 找 出 子 类 型 关 
系 中 无 穷 降 序 链表 ,也 就 是 从 类 型 S ,Si ,等 等 一 直到 无 穷 的 序列 ,其 中 的 每 个 Si,i 都 是 $S; 
的 子 类 型 ;(3) 同 (2) ,如 果 是 无 穷 升 序 链表 又 会 怎样 ? 





第 15 章 子 类 型 125 


1S.2.4 练习 [*]: 是 否 存在 一 个 类 型 , 它 是 所 有 类 型 的 子 类 型 ? 是 否 存在 一 个 箭头 类 型 
(arrow type) , 它 是 所 有 其 他 箭头 类 型 的 超 类 型 ? 
1S.2.$S 练习 [xx] :假设 用 11.6 节 中 搞 述 的 乘积 类 型 构造 子 了 x 呈 来 扩展 演算 ,对 应 于 
记录 的 SRedDepth 规则 自然 地 加 上 一 个 子 类 型 化 规则 : 

S1 <: Tl S2 <: T2 

Sl1 X9S2 <: TIXxT2 

如 果 对 乘积 加 上 一 个 广度 子 类 型 化 规则 是 否 也 是 一 个 好 办 法 ? 

Ti xTz <:T) (S-ProdWidmh) 


15.3 子 类 型 化 和 类 型 化 的 性 质 


确定 了 子 类 型 化 入 演算 的 定义 后 ,现在 需要 做 一 些 工作 以 证 明 它 是 有 意义 的 ,尤其 是 简单 
类 型 和 演算 的 保持 和 进展 定理 继续 支持 了 子 类 型 化 的 存在 。 

15.3.1 练习 [推荐 ,**j] :在 继续 阅读 之 前 ,让 我 们 先 试 着 预测 一 下 哪里 会 有 困难 。 特 别 

是 ,假设 我 们 在 定义 子 类 型 关系 时 出 现 错误 ,包含 了 上 边 提 到 的 规则 之 外 的 一 个 伪 规 则 。 

系统 的 哪些 属性 是 错 的 ? 另 一 方面 ,假设 我 们 遗漏 了 一 条 子 类 型 化 规则 ,哪些 属性 将 

被 破坏 ? 

从 记录 子 类 型 关系 的 一 个 关键 属性 开始 ,简单 类 型 演算 中 类 型 关系 道 转 引 理 的 一 个 类 
比 [参见 引 理 (9.3.1)]。 假 如 知道 某 一 类 型 $ 是 一 箭头 类 型 的 子 类 型 ,那么 子 类 型 化 逆转 引 理 
告诉 我 们 S 本身 也 一 定 是 箭头 类 型 ,而 且 , 它 还 说 明 箭 头 的 左 端 是 道 变 的 , 右 端 是 协 变 的 。 当 
S 是 记录 类 型 的 一 个 子 类 型 ,可 采用 类 似 的 考虑 :S 在 某 顺序 (S-RedPemn) 中 共有 更 多 的 字段 (S- 
RedWidth) , 而 旦 公用 字段 的 类 型 也 存在 子 类 型 关系 (S-RedDepth) 。 


1$.3.,2 引 理 [ 子 类 型 关系 的 逆转 定理 ] 

1. 如 果 S$ <: 了 Ti 一 了 ,那么 S 形 为 S 一 3 ,其 中 T <:S 和 SS <:S ,了 T。 

2. 如 果 S <: 45:T 用 那么 S 有 形 为 | :SS | ) 且 至 少 含有 标签 1 "| , 即 
1 TS( 人 站 且 对 于 每 个 公用 标签 1 = ,有 Si <:T。 

证 明 : 留 做 练习 [推荐 ,*x]。 


为 了 证 明 在 求 值 中 类 型 被 保持 了 ,我们 从 类 型 关系 的 逆转 引 理 开 始 [参见 简单 类 型 和 演算， 
定理 (9.3.1)]。 这 里 不 把 引 理 用 最 一 般 的 形式 描述 出 来 ,为 满足 保持 定理 的 证 明 需 要 ,给 出 了 
一 些 情 况 [一 般 的 形式 可 以 从 下 一 章 算法 化 子 类 型 关系 中 读 出 ,参见 定义 (16.2.2)]。 


15.3.3 引 理 : 

] . 如 果 了 THF )Xx:S .es :了 一 了 ,那么 了 <:9) 且 了 ,x:S， 上 s : 卫 。 

2 . 如 果 FF 攻 。 一 se - | ;了 | , 那 委 人 和 | [本 人 ks“ 且 对 于 每 个 公用 标签 
k。 = 六 se:Tio。 


证 明 : 对 人 开 Sub 情况 运用 引 理 (15.3.2) ,对 类 型 化 推导 进行 直接 归纳 。 


(S-ProdDepth) 
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接 下 来 ,对 类 型 化 关系 提出 代 换 引 理 。 引 理 的 语句 与 简单 类 型 和 演算 [参见 引 理 (9.3.8) ] 
没有 变化 ,证 明 也 几乎 完全 相同 。 

1$.3.4 引 理 [ 代 换 ] :如 果 对 于 T,x:SF HT, 上 且 PHF s:S, 那 么 PHfxr=sltTo 
证 明 : 对 类 型 化 推导 进行 归纳 。 还 需要 TSub 和 记录 类 型 化 规则 TRed 及 工 Proj 补充 新 的 
情况 ,直接 运用 归纳 假设 。 余 下 的 证 明 类 似 于 引 理 (9.3.8) 的 证 明 。 
现在 ,保持 定理 的 语句 与 前 面相 同 。 但 它 的 证 明 , 在 某 几 点 上 由 于 子 类 型 化 要 复杂 些 。 
1$.3.5 ”定理 [保持 ]: 如 果 对 于 TF t:T 且 Fu ,那么 FU:T。 
证 明 : 对 类 型 化 推导 直接 归纳 。 大 多 数 的 情况 都 与 简单 类 型 和 演算 保持 定理 的 证 明 相 似 
[参见 定理 (9.3.9)]。 我 们 需要 对 记录 类 型 化 规则 和 包含 提出 新 的 情况 。 

情况 T-VAR: 七 =xX 
不 会 发 生 (对 变量 不 存在 求 值 规则 )。 

情况 T-ABS: 七 =AX:Ti,t2 
不 会 发 生 (t 已 经 是 一 个 值 )。 

情况 T-App: t=titz Thtl:Ti-T2 Thtz:Ti  T=Ti 
从 图 15.1 和 图 15.2 的 求 值 规则 可 看 出 t->Y 可 从 三 条 规则 中 得 出 :E-Appl,E-App2, 和 
E-AppAbs。 继 续 分 析 

子 情 况 F-AppPl: tl 一 tt 蕊 =tit2 
结果 可 从 归纳 假设 和 T-App 中 得 到 。 

子 情况 E-App2: tl =V1 t2 一 七 2 ft = Vit2 
同 理 。 

子 情况 E-APPABS: tl=Ax:Sll.ti2  tz=v  t=[fxrmvzlti> 
根据 引 理 [15.3.3(1)], 有 Tu<:Su 和 T,x:Suhrto:Ts。 根 据 TSub, 有 PHFup:s。 据 此 和 
代 换 引 理 [ 参 见 引 理 (15.3.4) ] ,我 们 得 到 PF ta:T，。 


情况 T-Rcp: t= fli=tierl ThFti:T 对 每 个 [有 : 
荆 一 {TTi :Ti 1 于 


左 端 是 一 个 记录 的 惟一 的 求 值 规则 为 ERed。 从 这 个 规则 的 前 提 , 可 看 出 对 某 个 字段 
有 bt。 结果 可 从 归纳 假设 (应 用 于 对 应 的 假设 PHFt 3:T) 和 开 Red 中 得 到 。 
情况 TPRoJl t=tl.1 ThFt:iflTisen  T=.Ti 
由 图 15.1 和 图 15.2 的 求 值 规则 可 知 ct 可 由 两 个 规则 得 出 :E-Proj 和 瑟 ProjRed。 
子 情况 E-PRoJl: tl 一 ti  t=t.]1) 
结果 由 归纳 假设 和 了 Proj 得 出 。 
子 情 况 E-PROJRCD: tl = {fka=va“slny 11=k ft=Vv 
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根据 引 理 [15.3.3(2)] ,我 们 有 本" 上 S ko 和 对 每 个 k = 有 TH v: 工 。 特 别 
地 ,PH w:T 也 满足 。 
情况 T-SuB: tt:S SS<:T 
由 归纳 假设 有 THFt:S。 由 TSub, 有 TFT。 
为 证 明 良 类 型 项 不 会 受阻 ,我 们 从 典型 形式 的 引 理 开始 讨论 (如 第 9 章 ) ,因为 它 告诉 了 我 


们 属于 箭头 和 记录 类 型 的 值 的 可 能 形状 。 


1S.3.6 引 理 [ 典 型 形式 ] 
1. 如 果 是 类 型 荆 一 的 闵 值 ,那么 v 具有 形式 jx:S .b。 


2. 如 果 ， 是 类 型 :Ts | 的 闭 值 ,那么 v 有 形式 1 = ws 其 中 1seolS 
Deesel 

证 明 ; 贸 做 练习 [推荐 ,xxx]。 

进展 定理 和 它 的 证 明 现在 已 经 相当 接近 我 们 看 到 的 简单 类 型 演算。 绝 大 多 数 处 理子 类 


型 化 的 任务 都 已 经 被 推 向 了 典型 形式 的 引 理 , 这 里 仅仅 需要 -一 小 部 分 的 变化 。 


15.3.7 ”定理 [进展 ] ;如果 t 是 封闭 的 . 良 类 型 项 ,那么 或 者 是 一 个 值 ,或 者 存在 b 使 ->t'。 
证 明 : 对 类 型 推导 直接 进行 归纳 。 变 量 情况 不 会 出 现 (因为 1 是 封闭 的 )。 因 为 抽象 本 身 
为 值 和 抽象 情况 很 快 就 能 得 出 结论 。 剩 下 的 情况 更 加 有 趣 。 

情况 T-APP: tt 上 = tlt2 FF tl : TU 一 Tiz ht2z:Tl  T=Tiz 
通过 归纳 假设 ,或 者 t 是 一 个 值 , 或 者 它 可 以 一 步 求 值 , 如 b。 如 果 ， 能 作为 一 步 ,那么 
规则 已 Appl 适用 于 t。 如 果 f 是 一 个 值 且 # 可 以 作为 一 步 ,那么 规则 App2 适用 。 最 
后 ,如 果 和 都 是 值 ,那么 典型 形式 引 理 (15.3.6) 告 诉 我 们 4 有 形式 和 x:Su .te ,规则 
E-AppAbs 适用 于 t。 

情况 T-Rcp: t 上 = {li=tietj 对 每 个 Fe 1l.n，F 蕊 :Ti 

T= 1:Tiec 

根据 归纳 假设 ,每 个 # 或 是 一 个 值 ,或 可 以 作为 一 步 求 值 。 如 果 所 有 的 都 是 值 的 话 , 那 
么 + 也 是 一 个 值 。 另 一 方面 ,如 果 至 少 有 一 个 可 以 作为 一 步 ,那么 规则 已 Red 适用 于 tu 

情况 TPROJ: t 上 = tl.1) FtisftlTisry  T=TT 
根据 归纳 假设 ,t 或 者 是 一 个 值 ,或 者 可 以 作为 一 步 求 值 。 如 果 6 可 以 作为 一 步 ,那么 t 
也 可 以 。 如 果 是 一 个 值 ,那么 用 典型 形式 引 理 (15.3.6),4 有 形式 |k。 = w“<”| 且 
DeeolS (kesen 上 上 且 对 于 每 个 1 = 区 ,有 H va:T。 特 殊 情 况 下 ,1 属于 ， 的 标签 
fk 集合 , 据 规 则 E-ProjRed 告诉 我 们 t+ 本 身 也 可 以 作为 一 步 求 值 。 

情况 TSuB: ThFt:S SS<:T 
结果 从 归纳 假设 直接 得 出 。 


本 
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15.4 Top 类 型 和 Bottom 类 型 


最 大 类 型 Top 并 不 是 含 子 类 型 化 的 简单 类 型 演算 必 不 可 少 的 部 分 ;可 以 将 它 去 掉 而 不 
会 破坏 系统 性 质 。 然而 ,由 于 一 些 原因 ,大 部 分 文章 都 包含 它 的 内 容 。 首先 , 它 与 大 部 分 面向 
对 象 语 言 中 的 对 象 类 型 相对 应 。 其 次 , Top 在 结合 子 类 型 化 和 参数 多 态 性 的 更 加 复杂 的 系统 
中 是 一 个 方便 的 技术 装置 。 例 如 ,在 了 - 系统 中 (参见 第 26 章 和 第 28 章 ) ,Top 的 出 现 能 够 把 轩 
量词 还 原 为 通常 的 非 团 量 词 使 系统 简化 。 甚至 记录 也 可 以 在 F。 中 被 编码 ,进一步 使 表达 简 
化 (至 少 为 了 形式 学 习 ); 这 种 编码 关键 依赖 Top 类 型 。 最 后 ,因为 Top 操作 简单 易 懂 ,在 例子 
中 常 起 作用 ,那么 就 没有 什么 理由 不 保留 它 了 。 

很 自然 ,我 们 会 问 是 否 也 存在 含 最 小 元 素 的 子 类 型 关系 一 类 型 Bot, 它 是 所 有 类 型 的 子 
类 型 。 回 答 是 :该 扩展 在 图 15.4 中 被 形式 化 。 

一 <: 号 A< (5.71) 的 扩展 


下 
新 的 语法 形式 新 的 子 类 型 化 规则 
本 

BE 最 小 类 型 Bet<T 


站 


图 15.4 Bottom 类 型 


我 们 注意 到 的 第 一 件 事 就 是 Bot 为 空 类 型 一 Bot 类 型 中 没有 一 个 闭 值 。 即 使 有 一 个 的 
话 ,假设 是 v, 那 么 包含 规则 加 上 S-Bot 就 推导 出 上 v:Top~Top, 根 据 这 个 推导 ,典型 形式 引 理 
[ 即 引 理 (15.3.6) ,在 此 扩展 下 依然 成 立 ] 告 诉 我 们 v 对 某 个 S 各 必 有 形式 :Xx:Si.b。 另 一 
方面 ,根据 包含 ,还 可 以 得 到 F v:1| ,通过 它 ,典型 形式 引 理 告诉 我 们 v 必 是 一 个 记录 。 从 语法 
上 说 ,显然 v 不 可 能 既是 函数 又 是 记录 ,因此 假设 | v:Bot 是 矛盾 的 。 

Bot 的 空 不 是 没有 用 的 。 相 反 :Bot 提供 了 一 种 非常 方 便 表达 某 些 操作 (尤其 是 产生 一 个 异 
常 或 唤醒 一 次 等 待 ) 没 有 返回 值 的 方法 。 有 了 这 样 的 表达 ,类 型 Bot 会 产生 两 个 好 的 效果 :第 
_ 它 提示 程序 员 没有 返回 结果 ( 若 确实 返回 了 一 个 结果 ,也 是 Bat 型 的 值 ); 第 二 , 它 发 信号 给 
类 型 检查 器 , 即 这 种 表达 式 在 任何 类 型 的 值 都 适用 的 上 下 文中 可 以 安全 使 用 。 比如 ,第 14 章 
的 异常 提升 项 error 被 赋予 的 类 型 为 Bot, 则 下 面 的 项 : 

人 Xi 
if <check that x is reasonab1le> then 
<Compute resu1t> 


e1se 
error 


将 会 是 良 类 型 ,因为 无 论 正 常 的 结果 是 什么 类 型 ,由 包含 规则 知 项 emor 总 能 得 到 相同 的 类 型 ， 
所 以 如 TIO 要 求 的 那样 ,让 的 两 个 分 支 也 是 相 容 的 。 


O 在 多 态 性 语言 中 ,如 ML, 还 可 以 用 VX.X 作为 emor 或 类 似 构造 子 的 返回 类 型 。 这 样 是 以 不 同 的 方式 达到 了 和 Bot 
_ 样 的 效果 :不 是 给 emor 一 个 类 型 以 使 该 类 型 能 提升 为 任意 类 型 ,而 是 给 出 一 个 类 型 选项 从 而 能 够 实例 化 为 任意 
类 型 。 尽 管 它们 依据 的 基础 不 同 ,但 两 种 解决 方法 十 分 相似 :尤其 是 类 型 YX.X 也 为 空 时 。 
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可 惜 的 是 ,Bot 的 出 现 使 建造 一 个 系统 类 型 检查 器 的 问题 显著 复杂 化 了 。 一 个 对 含有 子 类 
型 化 的 程序 语言 的 简单 类 型 检查 算法 必须 依赖 于 这 样 的 推论 , 那 就 是 “如 果 一 个 应 用 bb 是 
良 类 型 ,那么 6 必然 有 一 个 箭头 类 型 ”“。 有 Bot 存在 时 ,我 们 必须 将 其 改 为 "如果 bb 是 良 类 
型 ,那么 6 必须 是 一 个 箭头 类 型 或 者 是 一 个 Bot 类 型 ” ,这 样 的 观点 会 在 16.4 节 中 详 述 。 在 带 
较量 词 的 系统 中 这 种 复杂 性 会 更 加 严重 。 详 情 参 见 28.8 节 。 

这 些 复杂 的 情况 说 明 增 加 Bot 类 型 应 比 增加 Top 类 型 更 加 慎重 。 在 本 书 以 后 的 部 分 中 ， 
我 们 将 其 忽略 。 


15.5 子 类 型 化 及 其 他 特征 


当 我 们 考虑 扩展 带子 类 型 的 简单 演算 使 编程 语言 往 成 熟 方向 发 展 时 ,每 个 新 特征 都 要 仔 
细 检 查 它 与 子 类 型 之 间 会 产生 怎样 的 影响 。 本 节 就 这 一 点 来 考虑 一 些 特征 Q。 以 后 的 章节 中 
还 会 继续 讨论 ,如 参数 多 态 性 (参见 第 26 章 和 第 28 章 ) .递归 类 型 (参见 第 20 章 和 第 21 章 ) 及 
类 型 算 子 (参见 第 31 章 ) 等 方面 的 特征 与 子 类 型 之 间 的 更 复杂 的 相互 作用 。 


归属 (Ascription) 和 强制 转型 (Casting) 


在 11.4 节 中 介绍 过 归属 算 子 ft as T 作 为 检查 文件 的 一 个 形式 ,允许 程序 员 在 程序 的 文本 
中 记录 下 一 些 复杂 表达 式 的 子 项 所 具有 的 特殊 类 型 之 类 的 声明 。 在 本 书 的 例子 中 , 归 属 也 用 
来 控制 类 型 被 打印 的 方式 ,使 类 型 检查 器 使 用 一 种 更 易 读 的 缩写 形式 来 取代 它 为 某 项 实际 计 
算出 的 类 型 。 

像 Java 和 C++ 这样 具有 子 类 型 化 的 语言 ,归属 变 得 更 有 趣 。 它 在 这 些 语言 中 通常 被 称 为 
强制 转型 ,并 被 书写 为 (T)t。 事 实 上 有 两 种 完全 不 同 的 形式 一 称 为 向 上 转型 和 向 下 转型 。 
前 者 是 直接 进行 的 ,而 后 者 ,包含 动态 的 类 型 检测 ,需要 进一步 扩展 。 

在 向 上 转型 中 项 被 归 为 类 型 的 父 类 型 以 供 类 型 检查 器 可 以 自然 地 给 它 设 值 ,所 以 向 上 转 
型 是 归属 算 子 的 实例 。 我 们 给 出 上 和 类 型 T, 以 便 "“ 考 察 "t。 类 型 检查 器 根据 + 的 本 来 类 型 ,并 依 
据 包 含 规则 TSub 和 11.4 节 的 归属 规则 来 建立 如 下 的 推导 ,证 明了 了 确实 是 + 的 一 个 类 型 : 





THFt:S S <: 工 
一 了 TSUB 


THF-t:IT 
-TIT-ASCRIBE 
【FFtasT:T 


其 中 归属 规则 为 : 
工 Ht T 
TrtliasT:T 
向 上 转型 可 理解 为 一 种 抽象 形式 :将 值 的 某 些 部 分 隐藏 起 来 使 之 在 某 些 上 下 文中 不 受 影响 。 
举例 来 说 ,如 果 + 是 一 个 记录 (或 更 一 般 化 地 为 一 个 对 象 ) ,那么 我 们 可 以 用 向 上 转型 把 它 的 某 
些 字段 (或 方法 ) 隐 藏 起 来 。 


(T-Ascribe) 


外 “本 节 讨 论 的 大 部 分 扩展 不 能 在 fallsub 检查 器 中 执行 。 
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另 一 方面 ,向 下 转型 能 为 项 赋予 类 型 使 类 型 检查 器 不 能 进行 静态 推导 。 为 能 实现 向 下 转 
型 , 需 对 as 类 型 化 规则 做 点 修改 : 
TFt :9 
[六 tlasTJT :于 
也 就 是 说 ,我 们 检查 6 是 良 类 型 ( 即 它 含有 类 型 S) ,然后 给 tf 赋 类 型 T, 且 对 S 与 了 之 间 的 关 
系 不 做 任何 要 求 。 例 如 ,通过 向 下 转型 规则 可 以 写 出 一 个 带 任何 参数 的 函数 了 ,将 其 向 下 转 再 
为 一 个 含 数字 字段 的 记录 ,并 将 该 数字 返回 ， 
= AKCx:Top) (Cx as {a:Natj)7 .ay; 
实际 上 ,程序 员 是 在 告诉 类 型 检查 器 ;“ 我 知道 (由 于 某 些 复杂 原因 无 法 根据 类 型 规则 来 解释 )f 
总 是 应 用 于 含 数字 字段 a 的 记录 参数 ;关于 这 点 请 相信 我 "。 
当然 ,盲目 的 信任 将 会 给 语言 的 安全 性 带 来 灾难 性 的 影响 ,如果 程序 员 在 某 种 程度 上 犯 了 
一 个 错误 ,而且 使 了 应 用 于 一 个 不 含 字段 的 记录 ,结果 将 可 能 是 完全 任意 的 ( 视 编 译 器 具体 情 
况 而 定 )。 换 言 之 ,我们 的 和 能 言 就 是 ;信任 ,但 有 依据 "。 编 译 时 ,类 型 检查 器 只 接受 向 下 转型 
的 类 型 。 然 而 ,在 执行 的 时 间 里 , 它 会 插入 一 条 检查 用 来 验证 实际 的 值 是 否 确 为 声明 的 类 型 。 
也 就 是 说 ,对 归属 的 求 值 规则 将 不 仅仅 去 掉 注 释 , 就 像 原 有 归属 求 值 规则 所 做 的 : 
viasT 一 vi 《了 -Ascribe) 
而 且 会 首先 把 值 的 实际 (运行 的 ) 类 型 与 声明 类 型 进行 比较 : 


FFV1 :T 


(人 Downcast) 


wasT 二 六 (了 -Downcast) 


举例 来 说 :给 函数 了 赋值 ja = 5,b = tmuej ,那么 这 个 规则 将 (成 功 地 ) 检 查 - la=5,b= tme | :|a: 
Nat| 。 另 一 方面 ,如 果 将 赋值 jb = tue| ,那么 PEDowncast 规则 将 不 被 应 用 ,而 且 求 值 规则 会 在 
这 点 上 受阻 。 这 种 运行 时 的 检查 器 可 以 恢复 类 型 保持 特性 。 

81.$.1 练习 [xx 户 ] :证 明 上 面 的 说 法 。 

当然 ,因为 良 类 型 的 程序 在 求 值 一 个 坏 的 向 下 转型 时 会 受阻 ,程序 无 法 进行 下 去 。 提 供 向 
下 转型 规则 的 语言 通常 会 采取 两 种 方法 来 解决 :第 一 ,产生 一 个 失败 的 向 下 转型 以 提升 一 个 动 
态 异 常 供 程序 捕获 和 处 理 (参见 第 14 章 ); 第 二 ,用 以 下 的 动态 类 型 检测 形式 来 取代 向 下 转型 
算 子 : 

THFtl :9 T,X:THFt2 :U [Ht3silU 


Trifti inTthenx-tz elset3a :1U 《T-Typetest) 
FFVI IT 

ifvli inTthen x 一 tz elset3 一 [x 一 vi]t (E-Typetestl) 
人 Vi T 

(上 -Typetest2) 


ifvi inTthen x-tz elset3s 一 tt3 


在 像 Java 这 样 的 语言 中 ,使 用 向 下 转型 实际 上 相当 普遍 。 特 别 的 情况 下 , 向 下 转型 支持 
一 种 "贫穷 多 态 性 ”。 例 如 , 像 Set 和 List 这 样 的 “到 集 类 ”, 在 Java 中 是 单一 同 态 的 :Java 对 每 个 
类 型 了 都 不 提供 类 型 List T( 表 示 含 类 型 为 T 的 元 素 的 列表 ) ,而 是 仅 提供 List, 这 种 类 型 列表 中 
的 元 素 全 是 属于 最 大 类 型 Object。 因 为 Object 是 Java 中 所 有 对 象 ( 除 自 身 之 外 ) 类 型 的 超 类 
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型 ,所 以 列表 实际 上 包含 了 任意 类 型 : 当 我 们 想 在 列表 中 增加 一 个 元 素 时 ,只 要 用 包含 规则 将 
其 类 型 提升 为 Object。 但 是 ,如 果 要 从 列表 中 取出 -- 个 元 素 ,类 型 检查 器 只 知道 它 的 类 型 为 
Object。 这 种 类 型 不 会 保证 能 调用 对 象 的 大 部 分 方法 ,因为 类 型 Object 只 提 到 了 一 些 基 本 的 方 
法 ,如 打印 及 一 些 所 有 java 对 象 共 享 的 方法 。 为 了 使 它 真 正 有 用 ,还 是 要 将 其 向 下 转型 为 需 
要 的 类 型 T。 

一 直 以 来 存在 一 场 争论 ,比如 发 生 在 Pizza (Odersky 和 Wadler, 1997) , GJ( Bracha， Odersky， 
Stoutamire 和 Waqler,1998 ) , PolyJ( Myers, Bank 和 Liskov, 1997) 和 NextGen ( Cartwright 和 Stecle， 
1998) 之 间 的 ,认为 最 好 把 Java 类 型 系统 扩展 为 实 多 态 性 (参见 第 23 章 ) ,这 样 比 向 下 转型 方 
法 更 安全 高效 且 无 需 运行 检查 。 然 而 另 一 方面 ,这 种 扩展 由 于 会 影响 语言 和 类 型 系统 的 其 他 
许多 特性 ,从 而 给 本 已 十 分 庞大 的 语言 增加 显著 的 复杂 度 (参见 [garashi,Pierce 和 Wadler,1999， 
Igarashi, Pierce 和 Wadler,2001) ;该 事实 说 明 向 下 转型 方法 在 安全 人 性 和 复杂 性 之 间 提 供 了 一 -种 
可 靠 的 折 中 办 法 。 向 下 转型 在 Java 的 反射 设置 中 也 起 了 关键 作用 。 通 过 反射 ,程序 员 能 告诉 
Java 运行 系统 动态 地 装载 一 个 字 节 码 文件 并 为 其 中 所 含 的 类 产生 一 个 实例 。 显 然 ,类 型 检查 
器 无 法 静态 地 预测 到 在 这 一 点 上 加 载 的 类 的 特征 (比如 字 节 码 文件 可 能 从 网 上 获得 ) ,所 以 最 
好 的 办 法 就 是 为 新 产生 的 实例 赋予 最 大 的 类 型 Objeet。 还 有 ,为 提高 效率 ,必须 将 新 的 对 象 向 
下 转型 为 期 望 的 类 型 T, 如 果 字 节 码 文件 提供 的 类 与 该 类 型 不 匹配 ,要 处 理 产 生 的 运行 异常 ， 
然后 继续 执行 转型 为 了 后 的 结果 。 

在 结束 向 下 转型 的 话题 前 ,还 要 说 明 一 下 有 关 执 行 的 注释 问题 。 从 已 给 出 的 规则 来 说 ,在 
语言 中 加 入 向 下 转型 机 制 应 当 包 括 为 运行 系统 增加 类 型 检查 机 制 。 更 糟糕 的 是 ,运行 时 值 的 
表示 方式 与 编译 器 内 部 的 表示 方式 不 同 (尤其 是 函数 被 编译 成 字 节 码 或 内 部 机 器 指令 ) ,这 样 
必须 设计 一 个 不 同 的 类 型 检查 器 以 在 动态 检查 时 计算 类 型 。 为 避免 这 一 点 ,实际 语言 给 向 下 
的 转型 带 上 类 型 标记 一 一 单字 符 标 记 ( 类 似 于 ML 的 数据 类 型 构造 子 及 11.10 节 中 介绍 的 变 式 
标记 的 方法 ) ,这 种 标记 用 来 捕获 编译 类 型 在 运行 时 造成 的 残余 旦 足以 应 付 动态 子 类 型 调试 。 
第 19 章 将 在 这 一 点 上 详细 分 析 一 个 实例 。 

变 式 的 子 类 型 化 规则 (参见 11.10 节 ) 几 乎 与 记录 的 子 类 型 化 规则 相同 ;惟一 的 区 别 就 在 
于 ,广度 规则 S-VariantWidih 中 , 当 子 类 型 向 超 类 型 转变 时 允许 增加 新 的 变化 类 型 ,而 不 是 减 
少 。 直 观 上 说 ,一 个 标记 表达 式 <1= t> 与 变 式 类 型 <1 :Te…"” > 之 间 , 如 果 标 签 ] 是 该 类 型 
所 列 集合 和 的 其 中 一 个 1, 则 <1= t> 是 属于 该 变 式 类 型 的 ;在 该 集合 中 增加 的 标签 越 多 , 获 
得 关于 元 素 的 信息 则 会 越 少 。 单 一 变 式 类 型 <1 :Ti > 能 精确 说 明 元 素 的 标签 是 什么 ; 两 个 恋 
式 类 型 <1 :Ti ,:T > 说 明 它 表示 的 元 素 可 能 有 标签 1 ,也 可 能 有 标签 了 ,等 等 。 相 反 , 当 使 用 
变 式 类 型 的 值 时 , 它 总 是 出 现在 case 语句 中 ,必须 对 类 型 中 列 出 的 每 个 变 式 对 应 一 个 分 支 , 列 
出 的 变 式 越 多 只 会 使 case 语句 包括 一 些 多 余 的 分 支 。 

把 子 类 型 化 和 变 式 类 型 结合 起 来 的 另 一 个 结果 就 是 我 们 可 以 省 去 标记 结构 中 的 注释 部 
分 ,就 像 11.10 节 中 一 样 , 直 接 用 <1=t> 表 示 <1=t>as<l:Tec">, 并 且 改 变 标记 ,用 
<1 =it > 进一步 精确 类 型 <l:T > 。 那 么 将 包含 规则 加 上 S-VariantWidth 规则 就 可 获得 任意 
大 的 变 式 类 型 。 
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图 15.5 ” 变 式 类 型 和 子 类 型 


列表 类 型 

我 们 见 到 了 许多 协 变 式 类 型 构造 子 (如 记录 型 、 变 式 型 及 函数 型 的 右 端 ) 及 一 个 逆 变 式 类 

型 构造 子 (箭头 型 的 左 端 )。List 的 构造 子 也 是 协 变 式 :如 果 我 们 有 一 个 元 素 类 型 为 Si 的 列表 ， 

且 S <:T ,那么 就 可 以 安全 地 认为 列表 的 元 素 也 是 T 类 型 的 ; 
S1 <: 和 


List Si <: ListTi (S-List) 


引用 类 型 (一 ) 
只 有 部 分 类 型 构造 子 是 协 变 式 或 着 变 式 。 例 如 ,类 型 Ref 的 构造 子 ,为 了 保持 类 型 的 安全 
性 必须 是 不 变 式 : 
Sl <: Ti 5 
Ref S1 <: RefT1i 
由 于 Ref S, 是 Ref Ti 的 一 个 子 类 型 ,我 们 要 求 $ 和 虹 在 子 类 型 关系 中 是 等 价 的 :任何 一 个 都 
是 另 一 个 的 子 类 型 。 在 Ref 构造 子 中 记录 的 字段 顺序 可 以 改变 ,如 Refla: Bool,b;Nat| <:Refjb: 
Nat,a:Bool}( 仅 限于 此 )。 
这 种 子 类 型 化 规则 要 求 特别 严格 ,因为 类 型 Ref Ti 的 值 在 给 定 上 下 文中 有 两 种 处 理 方式 ， 
读 (!) 和 写 (; = )。 当 它 被 用 做 读 时 ,上 下 文 希望 能 够 获得 类 型 为 T 的 值 ,所 以 ,如 果 引 用 实际 
上 导出 了 类 型 Si 的 值 ,那么 就 需要 利用 S <:T 来 避免 违背 上 下 文 的 意思 。 而 另 一 方面 ,如 果 
同样 的 引用 单元 被 用 做 写 ,那么 上 下 文 提供 的 新 值 将 是 T 型 的 。 如 果实 际 的 引用 是 Ref S, , 那 
么 其 他 人 可 能 后 来 会 读 到 这 个 值 ,而 且 把 它 当 做 S, 型 来 使 用 ,这 时 只 有 T <: S, 才 是 安全 的 。 


.对 .5.2 练习 [* 万 ] :(1) 如 果 去 掉 了 S-Ref 的 第 一 个 前 提 , 请 写 出 一 个 产生 运行 错误 类 型 后 
失败 的 小 程序 ( 即 求 值 受阻 );(2) 如 果 去 掉 S-Ref 的 第 二 个 前 提 , 写 出 运行 将 失败 的 程序 。 


数组 类 型 


显然 引用 的 不 变 子 类 型 化 规则 思想 也 同样 适用 于 数组 ,因为 数组 的 操作 包括 反 引 用 和 赋 
值 两 种 形式 。 


(S-Ref) 
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9Sl <: Ti Ti <: 9S1 
Array SI <: Array Ti 《S-Array) 
有 趣 的 是 ,Java 还 允许 数组 有 协 变 子 类 型 化 规则 : 
9S1 <: Ti 
(S-ArrayJava) 


Array S1 <: Array Tl 
(在 Java 的 语法 中 ,Si[]<: 了 TI])。 该 特性 最 初 引入 时 是 为 了 弥补 某 些 基本 操作 (如 拷贝 数组 的 
部 分 值 ) 的 类 型 化 过 程 中 缺少 参数 多 态 这 点 缺陷 ,但 是 由 于 它 严重 地 影响 了 含有 数组 程序 的 性 
能 ,所 以 现在 普遍 认为 它 是 语言 设计 中 的 一 个 缺陷 。 原 因 就 是 不 可 靠 的 子 类 型 化 规则 造成 的 
不 便 必 须 以 运行 时 对 任何 数组 的 每 次 赋值 进行 检查 的 方式 来 弥补 ,这 种 检查 是 为 了 确保 写 的 
每 个 值 都 符合 数组 元 素 的 实际 类 型 (的 子 类 型 )。 
15.$S,3 练习 [xx 产 ] :编写 一 简短 的 java 程序 ,要求 含 有 不 能 通过 类 型 检查 的 数组 类 型 
(要 提升 ArrayStoreException 异常 )。 


引用 类 型 (二 ) 


最 早 Reynolds 在 语言 Forsythe(1988) 中 对 引用 进行 了 更 细致 的 分 析 , 引 人 了 两 个 新 类 型 构 
造 于 Source 和 Sink。 直 观 地 讲 ,Source T 具 有 从 单元 中 读 出 类 型 了 的 值 的 能 力 ( 但 是 不 允许 赋 
值 ) ,而 Sink T 则 是 具有 向 单元 中 写 人 类 型 了 的 值 的 能 力 。 如 果 同 时 赋予 读 和 写 的 能 力 ,那么 
Ref 工 就 是 这 两 种 能 力 的 结合 

反 引 用 和 赋值 关 型 化 规则 (参见 图 13.1) 在 这 里 都 做 了 修改 ,这 样 只 需 具 备 合适 的 能 力 ; 

[|zFtl:SourceTil 
TIzritTl 
TIZHFt:9inkTi [| 互 Ft2 :Til 
[| 二 Htli=t2z :Unit 
现在 ,如 果 我 们 仅仅 具有 从 单元 中 读 出 数值 的 能 力 ,而 且 如 果 这 些 值 保证 含有 类 型 $ ,那么 只 要 
S 是 卫 的 子 类 型 ,就 可 以 安全 “降级 ”, 使 其 具有 读 出 类 型 习 的 值 的 能 力 。 也 就 是 说 ,Source 构造 
子 是 协 变 的 : 


(T-Deref) 


(T-Assign) 


S1 <: Tl 
Source Sl <: Source Ti 
相反 地 , 往 指定 的 单元 中 写 类 型 S 的 值 的 能 力 可 以 降级 为 写 某 个 更 小 的 类 型 T 的 值 的 能 力 ， 
Sink 构造 子 是 道 变 的 ; 


(S-Source) 


Tl <: Si 
Sink Si <: Sink Ti 
最 后 ,通过 子 类 型 化 规则 ,Ref T 具备 了 读 与 写 的 能 力 , 这 样 Ref 能 降级 为 Souree 或 Sink 类 型 ， 
Ref Ti <: Source Ti (S-RefSource ) 
RefTi <: SinkT， (S-RefSink ) 


(S-Sink) 


通道 类 型 
相同 的 思想 (及 相同 的 子 类 型 化 规则 ) 已 经 成 为 了 近来 出 现 的 并 发 程序 语言 Pict( Pierece 和 
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Tumer,2000; Pierce 和 Sangiorgi,1993) 中 通道 类 型 处 理 的 基础 。 从 类 型 的 观点 来 看 ,一 个 信息 
通道 的 行为 与 一 个 引用 单元 完全 相似 : 它 可 以 被 用 做 读 和 写 ,而 且 , 因为 很 难 静 态 地 确定 哪个 
读 对 应 哪个 写 ,所 以 为 了 确保 类 型 的 安全 性 ,惟一 简单 的 办 法 就 是 使 所 有 通过 通道 的 值 都 属于 
一 个 相同 的 类 型 。 现 在 ,如果 我 们 只 赋予 他 人 对 通道 的 写 能 力 ,那么 他 们 要 将 该 能 力 给 那些 承 
诺 写 更 小 类 型 的 值 的 其 他 人 才 是 安全 的 ,这 种 “输出 通道 "类 型 构造 子 是 道 变 的 。 类 似 地 ,如 果 
赋予 了 从 通道 读 的 能 力 , 则 该 能 力 可 降级 为 读 取 任 意 更 大 类 型 的 值 的 能 力 ,这 种 “输入 通道 "类 
型 构造 子 是 协 变 的 。 

基 类 型 


对 一 个 成 熟 的 ,具有 一 套 丰富 基 类 型 的 语言 ,将 初始 子 类 型 关系 引入 这 些 类 型 中 通常 非常 
方便 的 。 举 例 来 讲 ,在 许多 语言 中 ,布尔 值 tue 和 false 实际 上 是 用 数字 1 和 0 来 代表 的 。 如 果 
愿意 ,可 以 通过 引入 子 类 型 化 公理 Bool <: Nat 向 程序 员 说 明 。 现 在 我 们 就 可 以 把 过 b then 5 
else 0 压缩 表达 为 Sx b。 


15.6 子 类 型 化 的 强制 语义 


纵览 全 章 , 子 类 型 化 给 人 的 感觉 是 “无 语义 的 "。 子 类 型 化 的 出 现 并 没有 改变 程序 求 值 的 
方法 ,但 它 使 项 的 类 型 化 更 加 灵活 了 。 这 种 解释 简单 而 自然 ,但 灵活 的 同时 也 带 来 了 某 些 性 能 
上 的 牺牲 (特别 是 对 数字 计算 和 记录 字段 的 访问 ) ,这 不 能 满足 高 效 执行 这 一 要 求 。 在 这 里 我 
们 将 提出 一 个 可 供 选择 的 强制 语义 ,并 且 讨 论 由 此 引发 的 新 课题 。 


子 集 语 义 上 出 现 的 问题 


如 在 15.5 节 中 看 到 ,允许 不 同 基 类 型 之 间 子 类 型 化 非常 方便 。 但 基 类 型 之 间 某 些 “ 感 觉 
可 靠 ” 的 包含 可 能 会 给 性 能 造成 有 害 的 影响 。 例 如 ,假如 引入 规 则 Int <: Float, 让 整数 不 要 写 明 
强制 转换 就 可 直接 用 于 浮 点 计算 ,也 就 是 说 ,可 以 这 样 写 ,如 4.5+6 代 替 4.5 + intRFloat (6)。 
从 子 集 语义 的 角度 说 ,这 条 规则 意味 着 整数 集合 字面 上 必须 是 浮 点 数 集合 的 子 集 。 但 在 大 多 
数 实 际 机 器 上 ,整数 与 浮 点 数 的 具体 表示 完全 不 同 :整数 通常 用 两 个 补 码 来 表示 ,但 浮 点 数 被 
分 为 尾数 .指数 和 符号 数 三 部 分 ,加 上 一 些 特殊 的 情况 如 NaN( 非 数字 )。 

为 协调 子 类 型 化 造成 子 集 语 义 与 实际 表示 不 一 致 的 矛盾 ,可 对 数字 在 表示 方式 上 增加 一 
个 标志 (或 包装 ) :整数 可 在 机 器 数 上 增加 一 个 标志 (可 作为 一 个 独立 的 字 头 或 作为 一 个 实际 的 
数 放 在 该 字 的 高 位 上 ) ,而 浮 点 数 可 表示 为 一 个 机 器 浮 点 数 加 上 一 个 不 同 的 标志 。Fhoat 型 可 
指 全 部 带 标志 的 数值 ( 浮 点 数 和 整数 ) ,而 Int 只 能 指 带 标志 的 整数 。 

这 样 的 设计 是 可 靠 的 :实际 上 它 符合 许多 现代 语言 实现 的 表示 方法 ,而 且 标 志 位 (或 字 ) 在 
垃圾 收集 中 也 用 得 上 。 说 到 底 ,每 个 对 数字 的 原 语 操作 都 应 当 包 含 :对 参数 的 标志 检查 , 几 条 
还 原 原 始 数据 的 指令 ,一 条 对 实际 数字 操作 的 指令 ,以 及 几 条 对 结果 重 加 标志 的 指令 等 。 编 译 
器 经 过 优化 后 可 以 减少 一 些 系 统 开 销 , 但 即使 用 上 最 新 最 有 效 的 技术 ,还 是 会 极 大 地 降低 系统 
性 能 ,尤其 在 需要 处 理 大 量 数据 时 ,如 遇 到 绘图 计算 和 科学 计算 。 

当 记 录 与 子 类 型 化 规则 (尤其 是 置换 规则 ) 结 合 时 ,会 产生 另 一 个 性 能 问题 。 如 一 个 字段 
投影 的 简单 求 值 规则 : 
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[fi=vi .1 一 Vj (E-ProjRecd) 
可 以 读 成 “在 记录 的 标签 中 搜寻 1 ,并 产生 一 个 相关 的 值 mw。 "但 在 实际 执行 过 程 中 ,不 想 为 了 
找到 需要 的 标签 在 运行 时 间 里 对 整个 记录 进行 线性 搜索 。 一 个 不 带子 类 型 化 机 制 (或 带子 类 
型 化 但 不 含 置换 规则 ) 的 诺言 可 以 做 得 更 好 :如 果 标 签 1 出 现在 记录 的 类 型 中 第 三 个 位 置 , 则 
可 以 静态 地 知道 该 类 型 任何 运行 状态 的 值 都 以 1 为 它们 的 第 三 个 字段 ,所 以 运行 时 不 需要 注 
意 这 些 标签 (事实 上 ,我 们 完全 可 以 忽略 它们 在 运行 时 间 上 的 表示 ,而 仅 将 记录 编译 成 元 组 即 
可 )。 然 后 以 间接 方式 通过 一 个 寄存 器 指向 记录 的 开头 ,加 上 3 个 字 的 常量 偏 移 以 获得 1 字段 
的 值 。 但 如 果 含 置换 规则 ,就 会 破坏 这 一 技术 ,即使 知道 记录 的 值 是 属于 某 一 类 型 的 , 旦 这 一 
类 型 1 是 出 现在 第 三 个 相对 位 置 上 也 没什么 用 ,因为 1 字段 在 记录 中 实际 的 位 置 根本 就 无 法 
预测 。 若 进一步 优化 改进 及 采用 运行 时 间 相 关 策 略 能 缓解 该 问题 造成 的 影响 ,但 总 的 说 来 字 
段 投影 在 运行 时 间 中 仍 无 法 避免 搜索 上 的 消耗 中 。 


强制 语义 


我 们 可 采用 一 个 不 同 的 语义 来 解决 上 面 这 两 个 问题 ,用 运行 时 间 强 制 方法 取代 子 类 型 化 
将 其 “编译 出 局 "。 如 在 类 型 检查 的 同时 ,将 Int 型 转化 为 了 oat 型 ,在 运行 时 间 物 理 上 将 该 数 的 
表示 形式 从 机 器 整数 转化 为 机 器 浮 点 数 。 类 似 地 ,记录 置换 子 类 型 化 规则 实际 使 用 时 可 以 编 
译 成 一 段 字段 顺序 经 过 重 排 了 的 代码 。 原 始 数 字 操作 和 字段 存 取 都 可 以 不 经 过 还 原 或 搜索 等 
开销 。 

直观 上 说 ,带子 类 型 化 的 语言 中 的 强制 语义 其 实 可 以 表示 为 一 个 函数 , 它 将 项 从 该 语言 的 
形式 转化 为 一 个 更 低级 的 不 含 子 类 型 化 规则 的 语言 形式 。 最 终 ,低级 语言 可 能 就 是 实际 处 理 
的 机 器 代码 。 然 而 ,为 说 得 清楚 点 ,这 里 的 讨论 仍 停留 在 一 个 更 抽象 的 层次 上 。 至 于 选 什么 源 
语言 来 说 明 ,这 里 考虑 选择 一 个 到 目前 为 止 大 部 分 章节 中 都 用 到 的 含 子 类 型 和 记录 型 的 简单 
类 型 化 lambda 演算 。 对 低级 目标 语言 ,这 里 选择 含 记录 型 和 Unit 型 (用 来 解释 Top 类 型 的 ) 纯 
简单 类 型 lambda 演算 。 

通常 ,编译 过 程 包含 了 三 个 翻译 函数 :一 个 作用 于 类 型 ;一 个 用 来 子 类 型 化 ;一 个 用 来 类 型 
化 。 对 类 型 ,翻译 过 程 是 用 Unit 取代 Top。 将 此 函数 记 为 [一 ] 。 


ETopj] = Unit 
[TI 一 T2z] = [TI]-[LT2 了 
[Te = :IT 


举例 来 说 :〖 Top 一 la :Top,b :Topl = Unit 一 la:Unit,b:Unit|( 另 一 种 翻译 函数 也 写成 [一 ;在 
上 下 文中 我 们 一 般 都 会 说 明 指 的 是 哪 一 种 )。 

为 翻译 一 个 项 ,必须 知道 在 类 型 检查 时 什么 位 置 该 使 用 包含 规则 ,因为 这 些 位置 将 播 人 运 
行 时 间 强 制 转换 。 为 将 结论 形式 化 ,有 一 个 方便 的 办 法 就 是 把 翻译 程序 当成 类 型 声明 的 推导 
函数 。 类 伏地 ,为 产生 一 个 将 类 型 S 的 值 转化 为 类 型 了 的 值 的 强制 转化 函数 ,不仅 需要 知道 
是 T 的 子 类 型 ,还 要 弄 清 楚 为 什么 。 为 达到 这 个 目的 ,需要 从 子 类 型 化 推导 中 产生 强制 语义 。 


@ 这 种 情况 类 似 于 带 允 许 置换 的 子 类 型 化 的 语言 中 对 象 的 字段 和 方法 的 处 理 。 正 是 这 个 原因 ,在 Java 中 限制 类 之 间 
子 类 型 化 ,让 新 的 字段 只 能 添加 到 类 的 最 后 。 接 口 之 间 子 类 型 化 (及 类 与 接口 之 间 子 类 型 化 ) 可 以 用 置换 规则 (如 
果 不 这 样 做 界面 凡 乎 没有 什么 用 了 ) , 故 手册 上 会 明确 警告 从 一 个 界面 中 查找 方法 比 从 类 中 查找 方法 要 慢 。 
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这 里 为 使 翻译 形式 化 , 先 找 一 个 可 以 表示 推导 的 符号 。 符 号 C :: S <:T 表示“C 作为 一 个 子 类 
型 推导 树 ,结论 是 S <:T"。 同 样 ,用 :: PPF btT 表 示 ' 宁 是 一 个 类 型 推导 ,结论 是 TFt:T。 

作为 子 类 型 声明 S <:T 的 推导 C 来 说 , 先 考虑 一 个 产生 强制 转换 [CJ 的 函数 。 其 实 它 只 
一 个 从 类 型 5 S] 到 类 型 5 TI 的 函数 (在 翻译 的 目标 语言 中 用 -表示 )。 定 义 会 依据 最 终 C 中 
的 规则 提出 来 。 


| | = AXx:TETT]. x 


op = AX:[S].unit 
5 由 fs] 


Cl:S<: Gas<u Csu<T < 2 U Te = Ax:fS]. fczlfclx) 


| :Ti <: 91 C2 :: 9 <: T2 | 
(S-ARROw) 


Af:fESi 一 S2]. Ax:ITI]. 
[cz 了 BCf(ECI] x)) 

= Ar:fl:IT]'ecc. 

{1i=r,. 1 


_foreachi CS<:T ] 1 
ET TEL (GRCDDEPTH) = Ar:{tli:tSh }， 
{15:S1 1 {Ti:S er < {1:T er <: 证 Ti 了 {1is<[fC]Jr.1) er 


攻 ， SS， JETL .Of 1 TiIeLn 
| 人 三 去 - Ta Ce 让 = Ari{fkj:ESi] 2“}， 
1 日 1 {1i=r.1i er"} 


9S1 一 92 <: Ti 一 T> 


Te oo 


15.6.1 引 理 :如 果 C:: S <:T, 则 FECI:fES3->IT]。 
证 明 : 直 接 对 C 进行 归纳 可 得 出 。 
类 型 推导 也 可 以 用 同样 的 方法 来 翻译 。 如 果 刀 是 语句 下 F t:T 的 推导 , 则 它 的 翻译 KE2D] 即 


为 类 型 [ET 了 的 目标 语言 项 。 这 种 翻译 函数 先 由 Pennsylvania 大 学 一 个 研究 小 组 研究 (有 
Breazu-Tannen , Coquand, Cunter 及 Scedrov 等 ,1991) ,所 以 给 它 取 名 为 Penn 翻译 。 


X:T ET 工 加 
FEXT TC 天 


了 > :T,X:TI Htz :T2 中 
(T-ABS) 


FF XAx:T 一 Ax:TET 了 [222] 


Di:Trrti:iTi-Taz 2Dz:rrtz:T 
| = fDi] rz:] 


TFTFtitz :Ti2 


T F {listi er] : {1:TiIeLn} CT-Rcp) 二 { 1 下 40 


上 和 后 
| 
5 Di3TH Tt Ti 中 
上 全 
上 


Di:sTFt DT 
DzrFt:Ss CS<T 
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1$.6.2 定理: 如果 刀 :: 工 FitT, 那 么 下 IFIDJ:IT] ,其 中 [是 类 型 翻译 逐 点 扩展 

到 上 下 文 的 形式 ,并 有 [c] = C 且 [TPR,x:T1=rP,x:ET]。 

证 明 : 根 据 引 理 (15.6.1) 中 对 全 Sub 的 情况 的 分 析 可 以 直接 对 刀 进 行 归纳 。 

定义 了 这 些 翻译 后 ,就 可 以 将 具有 子 类 型 化 的 高 级 语言 的 求 值 规则 省 去 ,而 是 换 做 对 项 的 
求 值 :对 它们 进行 类 型 检查 (用 高 级 类 型 化 和 子 类 型 化 规则 ) ,接着 把 它们 的 类 型 推导 解释 为 低 
级 日 标语 言 ,然后 用 该 语言 的 求 值 关系 来 获得 它们 的 操作 行为 。 这 种 策略 实际 上 被 用 在 一 些 
具有 子 类 型 语言 的 高 效 执行 中 , 比如 像 Yale 编译 小 组 研制 的 实验 性 Java 编译 器 (League, Shao 
和 Trifonov ,1999; League, Trifonov 和 Shao,2001)。 

1S$.6.3 练习 [xxx 疡 ] :用 带 元 组 (代替 记录 类 型 ) 的 简单 类 型 入 演算 作为 目标 语言 来 修改 

上 述 的 翻译 。 检 查 定 理 (1$.6.2) 是 否 还 成 立 。 


合 性 
当 给 信子 类 型 的 语言 一 个 强制 语义 时 ,要 小 心 避免 一 个 潜在 的 缺陷 。 例 如 ,假设 需要 对 目 
前 含 基 类 型 mt, Bool,Float 和 String 的 语言 进行 扩展 。 以 下 原 语 强制 语义 全 部 都 有 用 : 
[Boo1 <: Int] Ab:Boo1. ifb then lelse0 


[Int <: String 耻 = intToString 
[Boo1 <: Float] = Ab:8Bool. ifbthen1.0else0.0 
{Fioat <: String]l = floatToStrjing 


画 数 ntThString 和 floatloStriag 是 将 数字 转化 为 字符 串 的 原 语 函数 。 例 如 ,假设 intThsturing (1) =“1”， 
而 floatToSting(1.0) = "1.000”。 

现在 ,假设 要 用 强制 语义 来 求 值 项 ， 

(CAx:String.xX) true; 

根据 上 面 原始 类 型 的 公理 可 知 , 该 项 是 可 类 型 化 的 。 但 是 它 的 可 类 型 化 的 方式 有 两 种 :(1) 用 
包含 规则 来 将 Bool 型 提升 为 mt 型 ,然后 到 String 型 ,这 样 说 明 true 是 StringString 型 函数 的 合 
适 参 数 ;(2) 将 Bool 型 提升 为 'Ploat 型 ,再 转 为 String 型 。 但 是 若 将 这 些 推导 翻译 为 1. ,将 会 得 
到 不 同 的 结果 。 如 果 将 te 强制 转化 为 Pt 型 ,结果 为 1, 然 后 经 过 intToString 产生 字符 串 “1”。 
但 是 如 果 将 tme 强制 转化 为 Float 型 ,那么 用 floatToString 将 其 变 为 一 个 Sting 型 (从 类 型 推导 结 
构 中 可 知 bue:String 要 经 过 一 个 先 转换 为 Float 型 的 过 程 ) 为 “1.000"。 但 是 “1” 和 “1.000" 是 完 
全 不 同 的 两 个 字符 串 : 它 们 甚至 连 长 度 都 不 同 。 换 言 之 ,选择 用 什么 样 的 方法 证 明 F ()Xx: 
String.x)true:String 会 影响 被 翻译 程序 的 行为 1 但 是 这 种 选择 完全 是 在 编译 器 的 内 部 (程序 员 
仅仅 写 出 项 ,而 不 是 推导 ) ,所 以 我 们 设计 的 语言 使 程序 员 无 法 控制 甚至 是 无 法 预测 所 写 程序 
的 行为 。 

解决 这 个 问题 合适 的 做 法 是 在 翻译 郴 数 的 定义 中 加 入 一 个 附加 要 求 , 称 为 胸 合 性 。 

4.6.4 定义 :对 结论 都 为 PF 5T 的 推导 D, 和 2D, ,车 产生 的 翻译 5D, ] 和 [2D, 了 为 目标 语 

言 中 行为 等 价 的 项 , 则 说 从 一 个 语言 中 的 类 型 推导 转换 为 另 一 个 语言 的 项 的 翻译 [一 ] ， 

是 吻合 的 。 

特别 说 明 的 是 ,以 上 给 出 的 翻译 (不 含有 基 类 型 ) 是 吻合 的 。 若 考虑 到 有 基 类 型 的 情况 ( 含 
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有 上 述 公 理 ) ,为 恢复 吻合 性 ,需要 改变 floatToString 最 初 的 定义 ,从 而 使 foatToString(0.0) = “0” 
及 floatToStrng(1.0) = “1 。 

证 明 吻 合 性 ,特别 是 对 更 为 复杂 的 语言 ,是 件 环 手 的 事 。 详 见 Reynolds ( 1980) , Breazu- 
Tannen 等 (1991) , Curien 和 Chelli (1992) ,及 Reynolds (1991 ) 。 


15.7 ”交叉 类 型 和 联合 类 型 


在 类 型 语言 中 增加 一 个 交叉 算 子 可 以 有 力 地 改进 子 类 型 关系 。 交 叉 类 型 是 由 Coppo， 
Dezani, Salle 和 Pottinger ( Coppo 和 Dezani-Ciancaglini，1978; Coppo，Dezani-Ciancaglini 和 SallE， 
1979; Pottinger, 1980) 首次 提出 的 。 还 可 以 从 Reynolds(1988, 1998b) , Hindley(1992 ) 和 Pierce 
(1992b) 的 相关 著作 中 找到 介绍 。 

交叉 类 型 下 ^ 呈 中 可 表示 项 既 属 于 S 又 属于 T, 即 由 ^ 王 是 T 和 了 序 理论 上 的 交 ( 最 
大 下 界 )。 该 思想 可 用 三 个 新 的 子 类 型 化 规则 表示 : 


TIATz< Ta (S-Interl ) 
站 ATz<:Tz (S-Inter2 ) 
9S <: Ti S <: T2 
SCTAT (S-Inter3) 
还 有 一 个 附加 的 规则 允许 交叉 类 型 和 箭头 类 型 之 间 进 行 自然 变换 
S-TI 入 S--T2 <: S 一 (TIAT2>) (S-Inter4) 


这 个 规则 告诉 我 们 ,如果 知 道 一 个 项 具有 函数 类 型 S-*T 和 S->T ,那么 可 将 $ 传递 给 它 ,得 到 
的 既是 Ti 类 型 又 是 卫 类 型 。 

在 带子 类 型 化 和 交叉 类 型 的 简单 类 型 》 演算 的 按 名 调用 变量 中 ,可 赋值 类 型 的 无 类 型 和 
项 的 集合 其 实 就 是 一 个 规范 化 项 的 集合 ,也 就 是 说 ,一 个 项 是 可 类 型 化 的 当 且 仅 当 它 的 求 值 可 
以 终止 ,这 一 结论 正 反映 了 交叉 类 型 的 优势 所 在 ,从 中 立即 可 以 说 明 带 交 叉 类 型 的 演算 中 类 型 
重 构 问 题 ( 参 见 第 22 章 ) 是 不 可 判定 的 。 

交叉 类 型 的 重要 性 还 在 于 它 支持 有 限 重 载 形式 。 例 如 ,给 加 算 子 赋予 类 型 (Nat-> Nat-> 
Nat)^ (Float->Float ~Float) ,使 之 既 能 作用 于 自然 数 也 能 作用 于 浮 点 数 (如 可 以 在 运行 时 给 参 
数 加 上 标志 位 以 区 分 是 什么 类 型 ,提醒 系统 选择 正确 的 指令 )。 

遗憾 的 是 ,交叉 类 型 也 给 语言 设计 者 带 来 了 些 难题 。 迄 今 为 止 , 语 言 Forsythe( Reynolds， 
1988) 在 其 最 一 般 的 形式 上 包括 了 交叉 类 型 ,这 是 惟一 完全 的 语言 。 还 有 一 种 证 明 为 更 易 处 理 
的 受 限 形式 , 称 为 精炼 类 型 ( Freeman 和 Pfenning,1991; Pfenning,1993b; Davies,1997) 。 

无 独 有 偶 ,存在 一 个 非常 有 用 的 联合 类 型 ,Ti Y 呈 。 与 和 类 型 及 变 式 类 型 (它们 有 时 也 被 
称 为 "联合 类 型 ” ,容易 混 淆 ) 不 同 ,Ti v 了 指 的 是 属于 呀 的 值 的 集合 与 属于 中 的 值 的 集合 的 
一 般 联 合 ,不 需要 给 每 个 元 素 加 上 标记 来 识别 它 的 来 源 。 所 以 ,Nat v Nat 实际 上 仅仅 是 Nat 的 
另 一 个 名 称 。 虽 然 非 拆 解 的 联合 类 型 已 经 长 期 在 程序 分 析 中 扮演 了 重要 的 角色 (Palsberg 和 
Pavlopoulou, 1998) ,但 仅 在 少数 程序 语言 发 挥 重要 作用 (比较 著名 的 是 Algol 68; 参见 van 
Wijngaarden 等 ,1975) ;然而 ,近年 来 ,它们 越 来 越 多 地 被 应 用 在 处 理 像 XML(Buneman 和 Pierce， 
1998; Hosoya, Vouillon 和 Pieree,2001) 这 样 “ 半 结构 化 ”数据库 格 式 的 类 型 系统 环境 中 。 
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拆 解 联合 类 型 和 非 拆 解 联 合 类 ,表面 上 最 主要 的 区 别 就 是 后 者 缺乏 任何 一 种 case 结构 ， 
如 果 只 知道 一 个 值 * 有 类 型 Tv 开 , 那 么 惟一 可 以 对 v* 进行 的 安全 操作 就 是 对 开 和 了 都 有 
意义 的 操作 (比如 说 ,如 果 卫 和 吴 都 是 记录 ,只 有 将 v 投影 到 它们 的 公用 字段 上 才 有 意义 )。 
在 C 语言 中 , 恩 标记 的 联合 类 型 违反 了 类 型 安全 性 ,因为 它 忽视 了 这 个 限制 , 它 允 许 对 Tv 了 
的 元 素 的 任何 操作 ,只 要 对 也 或 者 T 有 意义 就 行 。 


15.8 注释 


在 程序 设计 语言 中 子 类 型 化 这 一 思想 可 以 追溯 到 20 世纪 60 年 代 的 Simnula( Birtwistle， 
Dahl, Myhrhaug 和 Nygaard,1979) 语 言 以 及 和 它 相 关 的 领域 。 首 次 对 它 形式 化 的 处 理 要 归功 于 
Reynolds(1980) 和 Cardelli(1984) 。 

处 理 记录 的 类 型 化 及 (尤其 是 ) 子 类 型 化 规则 比 起 大 部 分 其 他 规则 在 本 书 中 谈 得 多 了 点 ， 
它们 包括 前 提 申 (每 个 字段 对 应 一 个 ) 的 可 变数 字 或 者 附加 的 一 些 机 制 ,如 字段 索引 的 置换 。 
这 些 规 则 还 有 许多 其 他 的 写法 ,但 是 遇 到 的 问题 要 么 较 复杂 ,要么 只 能 通过 引入 非 约 定 的 方式 
《比如 ,用 省 格 导 :1 :了 … 1.3:T.”) 来 避免 这 种 情况 。 为 解决 这 些 困 难 , Cardelli 和 Mitchel 提出 
了 自己 的 演算 :记录 操作 (1991) ,就 是 将 产生 多 字 段 记录 的 宏 操 作 每 次 分 解 为 一 个 基本 的 空 记 
录 值 及 一 个 添加 单字 段 的 操作 。 诸 如 适当 位 字段 更 新 和 记录 连接 (Harper 和 Pieree,1991) 这 样 
的 附加 操作 也 可 以 在 这 样 的 设置 中 考虑 到 。 这 些 操作 的 类 型 化 规则 变 得 有 点 难 懂 , 特别 是 出 
现 了 参数 多 态 性 ,所 以 多 数 的 语言 设计 者 宁愿 使 用 原来 的 记录 形式 。 然 而 , Cardelli 和 
Mitehell 的 系统 还 是 在 理论 上 留 下 了 一 个 重要 的 里 程 碑 。 另 一 种 基于 列 变量 多 态 性 的 记录 处 
理 方式 已 由 Wand(1987, 1988, 1989b) , Remy(1990, 1989, 1992) 和 其 他 人 开发 出 来 ,并 且 它 成 了 
0Cami(Remy 和 Vouilon,1998; Vouillon,2000) 中 面向 对 象 特 征 的 基础 。 


类 型 理论 所 要 解决 的 基本 问题 就 是 保证 程序 有 意义 。 而 由 类 型 理论 引发 的 基本 
问题 却 是 有 意义 的 ,程序 往往 不 具备 其 应 有 的 意义 。 了 矛盾 越 深 , 类 型 系统 演变 得 
越 丰富 。 

一 一 Mark Manasse 
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前 一 章 对 具有 子 类 型 的 简单 类 型 演算 的 定义 并 不 能 马上 实现 。 与 其 他 演算 不 同 ,此 系 
统 的 规则 不 是 语法 制导 的 一 一 它们 不 能 以 * 自 底 向 上 读 " 的 方式 来 产生 类 型 检查 算法 。 主 要 的 
问题 出 在 类 型 关系 的 包含 规则 (TSub) 和 子 类 型 关系 的 传递 规则 (S-Trans) 。 

TSub 存在 问题 的 原因 是 结论 中 的 项 为 一 个 裸露 的 元 变量 t: 

FFt:9 S <:T 下 

FTPtT 
所 有 的 其 他 类 型 规则 都 说 明了 项 为 某 具 体 的 形式 (T-Abs 仅仅 应 用 于 入 抽象 , 工 Var 仅仅 用 于 变 
量 , 等 等 ) ,而 TSub 却 可 以 应 用 于 任何 一 种 项 。 这 就 意味 着 ,如 果 给 出 b 我 们 试图 计算 它 的 类 
型 ,那么 它 将 可 能 适用 于 规则 下 Sub 或 者 任何 其 他 结论 与 t 的 形状 相 匹 配 的 规则 。 

S-Trans 存在 同样 原因 的 问题 : 它 的 结论 覆盖 了 所 有 其 他 规则 的 结论 
S <: 有 U <:T 
S <: 本 

因为 S 和 了 都 是 裸露 的 元 变量 ,所 以 我 们 可 以 将 S_ Trans 规则 作为 任意 子 类 型 化 语句 推导 的 最 
终 规则 。 这 样 , 子 类 型 化 规则 的 “ 自 底 向 上 ”实现 方式 永远 无 法 决定 是 应 该 使 用 这 条 规则 还 是 
应 该 使 用 另 一 条 与 这 两 个 类 型 (它们 在 子 类 型 关系 中 的 身份 下 是 需要 检查 的 ) 匹 配 且 结论 更 具 
体 的 规则 。 

S-Trans 还 存在 另 一 个 问题 。 它 的 两 个 前 提 都 提 到 了 元 变量 U, 但 在 结论 中 却 没 出 现 。 如 
果 按 照 自 底 向 上 的 方式 读 规则 ,那么 只 能 猜测 一 个 类 型 U, 然 后 试图 说 明 S <:U 和 1 <:T。 因 
为 有 无 穷 多 的 U, 所 以 这 样 的 办 法 几乎 无 法 成 功 。 

S-Reil 规则 同样 覆盖 了 其 他 子 类 型 化 规则 的 结论 。 它 的 问题 较 之 TSub 和 S-Trans 相对 要 
好 一 些 : 自 反 规 则 没有 前 提 , 所 以 如 果 它 与 要 证 明 的 子 类 型 化 语句 匹配 ,可 以 立即 成 功 。 这 也 
是 规则 不 是 语法 制导 的 另 一 个 原因 。 

所 有 这 些 问题 的 解决 办 法 就 是 用 称 为 算法 子 类 型 化 和 算法 类 型 化 关系 来 代替 普通 的 (或 
者 声明 性 的 ) 子 类 型 化 和 类 型 化 关系 ,这 两 个 新 关系 的 推论 规则 集合 是 语法 制导 的 。 接 着 在 这 
个 转换 上 要 说 明 原 有 子 类 型 化 和 类 型 化 关系 实际 上 与 算法 表示 是 一 致 的 :语句 S <:T 可 以 从 
算法 子 类 型 化 规则 中 推导 出 来 ,( 当 上 且 仅 当 ) 它 可 以 从 声明 性 的 规则 中 推导 出 来 ; 而 一 个 项 根据 
算法 类 型 化 规则 可 类 型 化 ( 当 且 仅 当 ) 在 声明 性 的 规则 下 它 是 可 类 型 化 的 。 

将 在 16.1 节 中 提出 算法 类 型 关系 ,在 16.2 节 中 提出 算法 类 型 化 关系 。 将 在 16.3 节 中 讨 
论 一 个 特殊 的 多 分 支 结构 ,如 让 … then … else 类 型 检查 问题 ,该 问题 需要 一 些 附 加 的 结构 (在 





(T-Sub) 


(S-Trans) 


子 类 关系 中 的 最 小 上 界 或 合 类 型 )。 将 在 16.4 节 中 讨论 最 小 类 型 Bot。 


@ 本 章 学 习 的 演算 是 含 子 类 型 化 (参见 图 15.1) 和 记录 (参见 图 15.3) 的 简单 类 型 演算。 对 应 的 OCaml 实现 是 rod- 
sub。16.3 节 也 处 理 布尔 型 和 条 件 型 (参见 图 8.1); 本 节 的 OCaml 实现 是 joinsub。16.4 节 将 该 讨论 扩展 到 Bot 型 ;对 
应 的 实现 是 bot。 
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16.1 算法 子 类 型 化 


带子 类 型 化 语言 的 任何 实现 中 关键 是 检查 一 个 类 型 是 否 是 另 一 个 类 型 的 子 类 型 的 算法 。 这 
个 子 类 型 检查 器 将 被 类 型 检查 器 调用 ,例如 , 当 它 遇 到 一 个 应 用 6 b ,其 中 忆 含 有 类 型 T->U,b 含 
有 类 型 S 时 , 它 的 功能 是 用 来 判断 语句 S <:T 是 否 可 以 从 图 15.1 和 图 15.3 的 子 类 型 化 规则 中 
推导 出 来 。 它 要 检查 (S,T) 是 否 属于 另 一 种 关系 , 记 为 上 - S <:T( 读 做 “S 在 算法 上 是 的 一 个 
子 类 型 ") ,该 关系 定义 的 方式 是 使 成 员 关 系 能 根据 类 型 的 结构 来 简单 判断 且 含有 与 声明 性 子 
类 型 关系 相同 的 类 型 序 对 。 声 明 关 系 和 算法 关系 之 间 最 显著 的 区 别 就 是 算法 关系 去 掉 了 
S-Trans 和 S-Refl 规则 。 

在 一 开始 ,我们 需要 稍微 重新 组 织 一 下 声明 系统 。 如 在 15.2 节 所 见 ,我 们 需要 利用 传递 
性 将 记录 的 子 类 型 推导 “符合 在 一 起 ” ,包括 深 度 子 类 型 化 广度 子 类 型 化 和 置换 子 类 型 化 规则 
的 组 合 。 在 去 掉 S-Trans 规则 之 前 ,必须 先 增加 一 个 将 深度 .广度 和 置换 子 类 型 化 规则 结合 起 
来 的 规则 : 

fi's:nj ES {ky Js kj 二 1; 意 指 S1) <: Ti 


16.1.1 引 理 :如 果 S <:T 能 够 从 S-RedDepth,S-RedWidth 和 S-RedPemm( 没 有 S-Rcd) 的 子 类 

型 化 规则 中 推导 出 来 ,那么 它 也 可 以 用 Easy S-RcdDepth, S-RecdWidth 和 S-RcdPerm) 

推导 出 来 ,反之 亦 然 。 

证 明 : 直 接 对 推导 进行 归纳 。 

引 理 (16.1.1) 表 明 有 了 规则 S-Rcd, 就 可 以 不 考虑 规则 S-RecdDepth,S-RedWidth 和 S-Recd- 
Permm。 图 16.1 总 结 出 了 结果 系统 。 


(S-Red ) 








一 T< 图 15.1 和 图 15.3 的 扩展 
有 (S-REFIL) 这 <: 31 S2 < T2 S 
S<:U U<:T 人 二 7 交 如 吉 让 二 下 2 (S-ARROW) 
3 (S-TRANS) 二 
9 <: Top (S-TOP) 


(S-RCD) 


16.1 含 记录 的 子 类 型 关系 ( 紧 致 形式 ) 


接 下 来 我 们 证 明 在 图 16.1 的 系统 中 , 自 反 性 和 传递 性 已 经 不 怎么 重要 了 。 


16.1.2 引 理 : 
1. 对 每 个 类 型 S, 不 用 S-Refl 规则 就 可 以 推导 出 S <:S。 
2. 如 果 S <:T 是 可 推导 的 ,那么 可 以 不 用 S-Trans 规则 就 能 推导 出 来 。 


证 明 : 作 为 练习 [推荐 ,*xx] 。 
16.1.3 练习 [*]: 如 果 添 加 了 类 型 Bool, 这 些 特 性 将 如 何 改变 ? 
这 就 为 我 们 引出 了 算法 子 类 型 关系 的 定义 。 
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16.1.4 定义 :算法 子 类 型 化 关系 就 是 图 16.2 中 规则 封闭 的 最 小 类 型 关系 。 


-个 <: 


算法 子 类 型 化 SeT|| 


(SA-TOP) | 





(SA-RCD) 






(SA-ARROWJ 


图 16.2 ”算法 子 类 型 化 


算法 规则 是 可 靠 的 ,因为 每 个 能 从 算法 规则 中 推导 出 来 的 语句 也 能 够 从 声明 性 规则 中 推 
导出 来 (算法 规则 并 没有 得 出 什么 新 的 结论 ); 而 且 它 还 是 完备 的 ,因为 每 个 能 从 声明 性 规则 中 
推导 出 来 的 语句 也 可 以 从 算法 规则 中 推导 出 来 (算法 规则 能 证 明 以 前 证 明 过 的 所 有 结论 )。 


16.1.5 ”命题 [可 靠 性 各 完备 性 ] :S <:T 当 且 仅 当 F=- S <:T。 
证 明 : 用 前 面 两 个 引 理 中 的 一 个 对 推导 直接 进行 归纳 。 


目前 ,作为 语法 制导 的 算法 规则 ,可 以 直接 用 做 检查 算法 子 类 型 关系 (并 且 同 样 适用 于 声 
明 性 子 类 型 关系 ) 的 算法 。 此 算法 用 更 为 常规 的 伪 代 码 表示 如 二 : 
Subbype(S,T) = 话 T= Top, then true 
else 主 S = S1 一 Sz andT = Ti 一 T> 
then supbPpe(Ti,S1) 入 SpbPpe(S>,T2>) 
elseifS={ky :SecnandT= IIRTOES 
then {Tiisrn} < {ky JELm} 
和 for al ithereis somej e 1..m with kj = 1; 
and Subpbpe(Sj),Ti) 
else alse. 
算法 在 ML 中 具体 的 实现 参见 第 17 章 。 
最 后 ,需要 证 明 算 法 子 类 型 关系 是 彻底 的 ,也 就 是 说 ,在 有 限 的 时 间 里 ,从 算法 规则 中 推导 


出 的 递归 函数 的 子 类 型 返回 值 为 tue 或 false。 


16.1.6 ”命题 [终止 ]: 如 果 呈 - S <:T 可 以 被 推导 出 来 ,那么 subppe(S,T) 将 返回 tue。 如 果 
不 能 被 推导 , 则 swape(S,T) 将 返回 false。 


该 命题 加 上 算法 规则 的 可 靠 性 和 完备 性 ,本 质 上 说 明子 类 型 函数 是 对 声明 性 子 类 型 关系 
的 一 个 决策 过 程 。 


证 明 :第 一 条 命题 容易 证 明 (直接 对 Fr- S <:T 的 推导 进行 归纳 )。 反 之 ,如 果 subape(S,T) 的 
返回 值 是 tue, 也 容易 证 明 r~ S <:T。 因 此 ,为 了 证 明 第 二 条 ,必须 证 明 subope(S,T) 总 是 有 
返回 值 , 也 就 是 说 : 它 不 能 发 散 。 为 此 ,可 以 做 的 就 是 让 输入 序 对 S 和 了 的 长 度 总 和 是 严 
格 地 大 于 算法 进行 的 任意 递归 调用 的 参数 长 度 总 和 。 因 为 这 个 总 和 总 是 正 的 ,所 以 递归 
调用 的 无 穷 序列 是 不 可 能 出 现 的 。 


读者 可 能 会 产生 疑问 :本 节 为 何不 省 去 一 些 工作 ,直接 将 子 类 型 关系 的 算 潜 定 义 作为 正式 
的 定义 提出 ,甚至 不 需要 提 到 声明 性 子 类 型 关系 ? :回答 是 “肯定 "的 。 如果 愿意 ,定义 演算 时 当 
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然 可 以 直接 将 算法 定义 作为 正式 的 定义 。 然 而 ,实际 上 这 样 做 并 不 会 省 去 太 多 的 工作 ,因为 ， 
为 说 明 类 型 化 关系 (依赖 子 类 型 关系 的 ) 的 行为 正确 ,需要 知道 子 类 型 化 为 自 反 的 和 传递 的 ,而 
要 证 明 这 些 需要 的 工作 量 或 多 或 少 地 与 这 里 所 做 的 相同 ( 另 一 方面 ,语言 的 定义 通常 都 采用 一 
种 类 型 化 关系 的 算法 表示 。 第 19 章 将 对 此 举 一 个 例子 )。 


16.2 算法 类 型 化 


解决 了 子 类 型 关系 ,现在 需要 对 类 型 关系 进行 同样 的 处 理 。 如 本 章 开 始 所 述 ,惟一 的 非 语 
法 制导 类 型 化 规则 就 是 开 Sub, 所 以 这 是 必须 进行 处 理 的 。 如 前 几 节 对 S-Trans 所 作 的 工作 ,我 
们 不 能 简单 地 删除 包含 规则 :首先 必须 检查 该 规则 在 类 型 化 的 哪个 位 置 起 到 了 关键 作用 ;然后 
要 找到 其 他 的 类 型 化 规则 ,按照 语法 制导 的 方法 达到 与 包含 规则 相同 的 效果 。 

显然 ,包含 规则 的 一 个 重要 作用 就 是 解决 函数 需要 的 类 型 与 参数 实际 类 型 之 间 的 差异 。 
一 个 项 : 

(CAr:{x:Nat}j. mm.xX) {x=0,y=1} 
没有 包含 规则 就 无 法 类 型 化 。 

也 许 让 人 吃惊 的 是 ,这 可 能 是 包含 规则 在 类 型 化 中 惟一 起 重要 作用 的 地 方 。 在 所 有 其 他 
类 型 化 证 明 用 到 了 包含 规则 的 情况 中 ,都 可 以 通过 另 一 种 推导 来 证 明 包 含 规则 能 得 出 的 结论 ， 
在 另 一 种 推导 中 ,包含 被 移 到 了 树 的 根部 “搁置 "起 来 。 要 知道 为 什么 ,可 以 做 一 个 尝试 ;将 一 
些 含 有 包含 规则 的 类 型 化 推导 轮流 使 用 别 的 类 型 化 规则 进行 ,并 想 一 想 若 是 别 的 类 型 规则 推 
导 的 上 一 层 子 推导 是 以 TSub 结束 的 ,那么 是 否 可 以 重新 组 织 一 下 该 规则 的 推导 方式 ,使 其 上 
层 子 推导 不 再 以 工 Sub 结束 。 

例如 ,假设 我 们 给 出 一 个 以 工 Abs 结束 的 类 型 推导 , 它 的 直接 上 一 层 子 推导 以 工 Sub 结束 ; 


LT,x:9iF-SsS2z:S2 S2 <: T2 
(T-SUB) 
LT, X:Sl FF S2z :T2 . 
(T-ABS) 


[IF AX:S1.Ss> : 91 一 T2 
这 样 的 推导 可 以 重新 整理 ,以 使 包含 规则 放 在 抽象 规则 的 后 面 且 得 到 相同 的 结论 ， 








-一 一 (S-RBFL) 

站 x:SlF-S2z :9S2 S1 <: Si 9 <: T2 - 
一 一 一 一 (TIT-ApBS) 一 (SARROW) 
工 F AX:Si.S2z ; Si 一 92 S1 一 Sz <: Sl 一 T2 


(T-SUB) 
THFAx:S1.S2 : SI 一 T2 


更 有 意思 的 情况 是 规则 TApp。 这 里 有 两 个 子 推导 ,每 个 都 可 能 以 TSub 结束 。 先 来 看 一 
下 包含 规则 出 现在 左边 子 推导 的 最 后 情况 ; 


(S-ARROW) 


(T-SUB) 一 一 一 
FF-si: Ti 一 Ti2 TFTr sz :Til 


TrFsl:sSii-5Siz Si-~Si <: Til 一 Ti2 


(T-APP) 
THF sl1 5 :Ti 
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根据 前 一 节 的 结论 ,我 们 可 以 设想 得 出 Si 一 So<:Ti 一 To 的 最 后 规则 既 不 是 SRef 也 不 是 S 
Trans。 根 据 结论 的 形式 ,这 个 规则 只 能 是 S-Armow。 








Ti <: 911 5S12 <: Ti2 
一 一 一 一 (SARROW) 


THFsSl :9 一 912 S11 一 Siz <: TI11 一 T)12 (TSuoB) 


”本 T1] 一 下 TrF-sz :TD 
工 F Sl 11 一 2 (T-APB) 


THFSlISz :Ti2 


在 消去 的 TSub 实例 的 改写 中 产生 了 一 个 有 意思 的 结果 ; 





THF S$2z :Tili Til <: Sl1 
一 一 (T-SUB) 


THFsi :Si 一 9312 ThFsz :9il 
一 一 一 -一 (TAPP) 5 
THFsisz:sS 12 <- 112 
-2 一 ”一 Csuon) 


FF sl1 Sz :Ti2 


S-Arrow 原来 实例 右边 子 推导 被 往 下 推 到 树 的 底部 , 面 此 处 TSub 的 新 实例 提升 了 整个 应 用 节 
点 的 类 型 。 曙 一 方面 ,左边 的 子 推导 被 向 上 推 到 了 参数 s 的 推导 里 。 
假设 ,我们 想 重 置 的 TSub 实例 发 生 在 TApp 实例 右边 的 子 推导 中 ， 





THFsz:T2 Tz <: Tii 
-一 一 (T-SUB) 


ThF sl :Ti 一 Ti12 [TH sz :Ti 站 


[FSslsz :Tiz 


对 TSub 实例 惟一 能 做 的 就 是 将 其 移 到 左边 子 推导 中 ,部 分 颠倒 前 面 的 变换 : 











(S-REFU) 
T2z <: Till Tiz <: Tiz 
_U_  _ _ _ _ _ 一 一 (9-ARROW) 
FTr sl :Ti-Ti2 Ti 一 Tiz <: Tz 一 Ti 
一 ”GTson 
工 H Si  ， Tz 一 Tiz THFS2 :T2 
(T-ApPP) 


【FFssz :Ti2 


所 以 ,可 以 看 出 将 一 个 应 用 的 结果 类 型 提升 的 包含 规则 可 越过 TApp 规则 向 下 移 ,但 将 参数 类 
型 与 函数 定义 域 类 型 进行 匹配 的 包含 规则 不 能 被 删除 。 它 可 以 从 一 个 前 提 移 至 另 一 个 前 提 
[通过 提升 参数 类 型 使 之 与 函数 的 定义 域 匹配 ,或 者 提升 函数 的 类 型 (通过 降低 参数 类 型 ) ,这 
样 函数 希望 获得 的 参数 类 型 正 是 我 们 实际 赋予 的 ] ,但 是 不 能 将 包含 规则 全 部 去 掉 。 之 所 以 这 
样 说 ,是 因为 包含 规则 解决 类 型 之 间 差 异 的 作用 对 整个 系统 的 性 能 都 是 十 分 重要 的 。 

还 需要 考虑 的 情况 ,是 推导 的 最 终 规则 及 该 推导 的 直接 上 一 层 子 推导 使 用 的 都 是 包含 规 
则 的 地 方 。 如 果 有 这 种 情况 , 相 邻 使 用 的 包含 规则 可 以 结合 为 一 个 , 即 以 下 形式 的 推导 
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THFSIS S<: 口 
(T-SUB) 
TFS : 志 U <: T 
一 一 (TSUB) 
[FSs:T 
可 以 改写 为 : 
S<:U 岂 <: 于 
一 一 一 一 (S-TRANS) 
THFs:S S<:T 
一 一 一 (TSUB) 
Ts: T 


16.2.1 练习 [> 户 ] :为 了 得 出 尝试 结果 , 想 一 想 在 推导 中 若 将 TSub 用 在 T-Red 或 下 Proj 
之 前 ,该 对 推导 做 怎样 类 似 的 调整 ? 


重复 地 运用 这 些 变换 ,可 以 将 任意 类 型 化 推导 改写 为 一 种 TSub 只 出 现在 两 个 位 置 的 特 
殊 形式 :一 处 在 应 用 的 子 推导 右边 最 后 位 置 , 另 一 处 在 整个 推导 的 最 后 。 而 且 , 如 果 只 是 简单 
地 把 处 在 最 后 的 规 虽 删除 ,不 会 产生 非常 有 害 的 结果 :仍然 会 有 一 个 推导 给 同一 项 赋予 类 型 ， 
惟一 不 同 的 是 所 赋 的 类 型 可 能 更 小 (也 就 是 说 是 更 好 的 !)。 还 剩 一 个 位 置 一 一 出 现 应 用 的 地 
方 仍 可 以 使 用 包含 规则 。 为 处 理 这 种 情况 ,我 们 可 以 将 应 用 规则 用 一 个 稍微 更 有 力 规则 代替 : 

[Pt :Til 一 Ti2 THFt2:T2 T2 <: Til 
Htlit2z :Ti2 
它 将 包含 规则 的 一 条 实例 作为 前 提包 括 进来 。 所 有 由 包含 领先 应 用 的 子 推导 都 可 用 该 规则 来 
代 蔡 ,这 样 可 以 完全 不 用 TSub 规则 了 。 而 且 , 修 改 的 应 用 规则 是 语法 制导 的 ,所 以 结论 中 项 
的 形状 不 会 与 其 他 的 规则 重 琶 。 

这 种 变换 产生 了 语法 制导 类 型 规则 的 集合 , 它 可 以 同 以 前 的 类 型 规则 一 样 给 同一 个 项 赋 
子 类 型 。 这 些 规 则 可 用 下 述 定 义 概 括 。 如 对 算法 子 类 型 化 规则 所 做 的 一 样 ,把 算法 关系 用 一 
个 有 趣 的 符号 ”~ ”表示 , 即 P rt:T, 以 区 别 声明 性 关系 。 

16.2.2 ”定义 :算法 类 型 关系 是 图 16.3 中 规则 的 最 小 闭关 系 。 应 用 规则 的 前 提 T = T， 

一 Tu 是 进行 类 型 检查 过 程 中 的 一 个 简单 而 明确 的 关于 操作 顺序 的 提示 :首先 计算 tf 的 类 

型 了 ,然后 检查 了 是 否 有 形式 Ti -Ta ,等 等 。 如 果 将 第 一 个 前 提 用 P Fr- ts:T, 一 T; 替 

代 , 规 则 将 会 有 相同 的 作用 。 对 TA-Prj 也 是 如 此 。 应 用 规则 中 子 类 型 化 的 前 提 也 可 以 用 

一 个 有 趣 的 符号 ”r~ "来 表示 ;既然 子 类 型 化 的 算法 表示 和 声明 性 表示 是 等 价 的 ,那么 究 

竟 选 娜 一 个 视 不 同 口味 而 定 。 


16.2,3 练习 [* 疡 ] :请 说 明 在 求 值 中 若 发 现 有 分 别 带 算法 类 型 $S 和 T 的 两 个 项 和 t+ 满 
足 s>~ ti 及 T<:S, 但 Srx:T 这 样 的 条 件 , 则 由 算法 规则 赋 给 项 的 类 型 会 变 小 。 


现在 需要 从 形式 上 检查 算法 类 型 规则 与 原 有 的 声明 性 规则 之 间 是 否 符合 (上 面 列举 的 关 
于 类 型 推导 的 变换 不 太 正 规 ,不 能 作为 证 明 。 可 以 将 它们 归并 为 一 个 ,但 是 那 将 变 得 没 必 要 的 
元 长 和 繁琐 :和 往常 一 样 对 推导 进行 归纳 更 简单 些 )。 和 子 类 型 化 关系 一 样 , 可 以 断定 算法 类 
型 关系 与 原 有 的 声明 性 规则 一 样 可 靠 是 完备 。 
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三 汪汪 


算法 类 型 


(了 A-VAR) 









(TA-RCD) 
en 


(TA-ABS) 
(TA-PROJ) 


( 工 A-APP) 
”图 16.3 算法 类 型 化 





可 靠 性 并 没有 改变 :所 有 由 算法 规则 推导 出 的 类 型 语句 也 可 以 由 声明 性 规则 推导 出 来 。 

16.2.4 定理 [可 靠 性 ] :如 果 T Fr=-t :T, 那 么 FF t:T。 

证 明 : 直 接 对 算法 类 型 化 推导 进行 归纳 。 

完备 性 的 证 明 看 起 来 会 有 些 不 同 。 因 为 一 般 的 类 型 关系 能 给 项 赋予 很 多 类 型 ,而 算法 类 
型 关系 却 最 多 赋予 一 个 类 型 (这 样 容易 检查 )。 所 以 定理 (16.2.4) 的 直接 逆 命 题 显 然 是 不 成 立 
的 。 可 以 证 明 ,;, 如 果 t 在 一 般 的 类 型 化 规则 之 下 有 类 型 下 那么 它 在 算法 规则 之 下 就 可 以 有 二 
个 更 佳 的 类 型 S, 而且 $ <:T。 换言之 ,算法 规则 赋 给 每 个 可 类 型 化 的 项 最 小 类 型 。 完 备 性 定 
理 通 常 也 被 称 为 最 小 类 型 定理 , 因为 它 [ 当 与 定理 (16.2.4) 结 合 时 ] 可 以 说 明 每 个 可 类 型 化 的 
项 在 声明 性 系统 中 都 有 一 个 最 小 类 型 。 

16.2.5 定理 [完备 性 ,或 最 小 类 型 ]: 如 果 TPFE T, 对 S<:T 有 TF=-t:S。 

证 明 : 留 做 练习 [推荐 ,*x*]。 

16.2.6 练习 [xx] :如果 去 掉 本 箭头 子 类 型 化 规则 S-Amow, 保 留 了 剩 下 相同 的 声明 性 子 


类 型 化 和 类 型 化 规则 ,那么 系统 还 有 最 小 类 型 化 性 质 吗 ? 如 果 有 ,请 证 明之 ;如 果 没 有 ,请 
举 一 个 无 最 小 类 型 的 可 类 型 化 项 的 例子 。 


16.3 合 类 型 和 交 类 型 


在 一 个 具有 子 类 型 的 语言 中 ,多 结果 分 支 的 类 型 检查 表达 式 ; 如 条 件 表 达 式 或 case 表达 
式 , 需 要 一 些 附加 机 制 。 例 如 ,回想 一 下 条 件 表达 式 的 声明 性 类 型 化 规则 
[FFtl : Bool T FFt2z :T T FFt3 :下 
THi 计 ftl thentz elset3 :下 
它 要 求 两 个 分 支 的 类 型 完全 相同 ,并 且 要 把 类 型 赋 给 整个 条 件 表达 式 。 但 是 ;由 于 有 包含 规 
则 ,存在 很 多 种 给 两 个 分 支 赋予 同样 类 型 的 方法 。 比 如 : 


放 true then {fx=true,y=falsej else {fx=falsez=truejl; 
的 类 型 为 jx:Booll ,因为 then 的 分 支 有 最 小 类 型 f:Bouly:Boof, 只 要 用 工 Sub 规则 就 可 以 将 
其 提升 为 jx: Bool} , 同 理 ,else 分 支 含 有 最 小 类 型 1zs Bodl,z: Bool}, 可 能 被 提升 为 不 :Boo 丰 。 它 


(T-I) 
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同样 还 含有 类 型 jx:Top1 和 | }。 实 际 上 ,只 要 是 {x:Bool,y:Booli 和 jx:Bool,z:Booll 的 超 类 型 都 
行 。 所 以 整个 条 件 表达 式 的 最 小 类 型 当然 就 是 1x:Bool,y: Booll 和 j}x:Bool,z: Booll 超 类 型 中 最 
小 的 那个 类 型 , 即 1x: Booll 。 通 常 ,为 计算 任意 条 件 表 达 式 的 最 小 类 型 ,需要 分 别 计算 then 和 
else 分 支 的 最 小 类 型 ,然后 再 计算 这 些 最 小 类 型 的 最 小 公用 超 类 型 。 这 个 类 型 通常 被 称 为 分 
支 类 型 的 合 , 因 为 它 对 应 于 偏 序 的 两 个 元 素 的 合 。 


16.3.1 定义 :对 类 型 ] 和 类 型 对 S 和 T, 如 果 有 S$ <:J,T<:J, 且 对 所 有 的 类 型 U, 如 果 
S <:U 且 T<:U, 那 么 有 J<:U, 则 称 J 为 S 和 T 的 合 类 型 , 记 为 SvT=J。 同 理 , 对 类 型 M， 
如 果 M <:S,M <:T, 且 对 所 有 的 类 型 L, 如 果 L<:S 且 L<:T, 那 么 L<:M 则 M 称 为 S 和 DT 
的 交 类 型 , 记 为 SAT= M。 


由 于 受 含 子 类 型 化 的 特殊 语言 对 子 类 型 关系 的 定义 方式 的 限制 ,每 一 对 类 型 不 一 定 能 找 
到 合 类 型 。 对 一 个 子 类 型 关系 系统 来 说 ,如 果 所 有 的 S 和 T, 都 存在 类 型 J 为 S 和 了 的 合 类 型 ， 
则 系统 存在 合 类 型 。 同 样 , 如 果 所 有 的 S 和 了 T, 都 存在 类 型 M 为 S 和 了 T 的 交 类 型 , 则 该 系统 存 
在 交 类 型 。 

在 本 节 实 中 ,所 考虑 的 子 类 再 关系 有 合 类 型 ,没有 交 类 型 。 例 如 ,类 型 1 和 Top->Top 不 含 
有 任何 公用 子 类 型 ,所 以 它们 当然 没有 最 大 的 子 类 型 。 但 是 , 却 含 有 稍 弱 的 性 质 。 一 对 类 型 S 
和 T, 如 果 有 某 个 类 型 工 , 满 足 L<:S 且 <:T, 那 么 S 和 了 T 称 为 有 下 界 的 。 对 一 个 子 类 型 关系 
系统 ,如 果 所 有 类 型 S 和 T 都 有 下 界 , 即 有 类 型 M 为 S 和 T 的 交 类 型 , 则 该 系统 存在 有 界 交 。 

合 类 型 和 交 类 型 不 一 定 是 惟一 的 。 比 如 jx; Top,y:Top1 和 1|y:Top,x:Top} 都 是 {x:Top， y: 
Top,z:Top|j 和 ix:Top,y:Top,w:Top| 的 合 类 型 。 然 而 ， 同一 对 类 型 的 两 个 不 同 合 类 型 (或 交 类 
型 ) 必 须 互 为 子 类 型 。 


16.3.2 命题 [ 合 类 型 和 有 界 交 类 型 的 存在 性 ] : 

1. 每 一 对 类 型 $ 和 了 T, 存 在 类 型 [满足 SvT= 了 本 

2. 每 一 对 有 公用 子 类 型 的 类 型 $s 和 了 T, 存 在 类 型 M 满足 SAT= M。 
证 明 : 留 做 练习 [推荐 ,*xx]。 


有 了 合 操作 ,可 以 在 子 类 型 关系 中 出 现 让 结构 的 地 方 给 出 一 个 算法 规则 ; 


工 Ftli :Ti Ti = Boo1 
THFtz :T2 工 Ft3 : T3 TzvTas=T (TA-If) 
[Hiftlithen tzelset3 :T 


16.3.3 ”练习 [xx]:if true then false else 站 的 最 小 类 型 是 什么 ? 它 是 我 们 想 要 的 答案 吗 ? 


16.3.4 练习 [xxxx]: 若 将 合 类 型 和 交 类 型 的 算法 推广 到 带 引 用 类 型 强制 性 语言 中 (如 
15.5 节 所 述 ) ,容易 办 到 吗 ? 若是 对 15.5 节 的 引用 类 型 (此 处 用 协 变 的 Souree 和 北 变 的 
Sink 类 型 对 不 变 的 Ref 进行 了 改进 ) 进 行 处 理会 如 何 ? 


巴 ” 就 是 图 15.1 和 图 15.3 中 定义 的 用 Bool 扩展 的 关系 。Bool 型 的 子 类 型 化 过 程 很 简单 :因为 在 说 明子 类 型 关系 中 没 
有 加 和 人 其 他 的 规则 ,所 以 它 有 惟一 的 超 类 型 为 Top。 
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16.4 算法 类 型 化 和 Bottom 类 型 


子 类 型 关系 中 如 果 添 加 了 最 小 类 型 Bot( 参 见 13.4 节 ) , 子 类 型 化 算法 和 类 型 化 算法 必须 
进行 一 点 扩展 。 将 一 条 规则 (明显 的 一 条 ) 加 和 算法 子 类 型 关系 中 : 
P Bot <: T (SA-Bot) 
以 及 将 两 个 复杂 些 的 规则 加 和 人 到 算法 类 型 化 关系 中 : 
Ttl :Ti Ti = Bot [TPtz:T2 
Ttitz :Bot 《TA-AppBot) 
Etl :Ril R1 = Bot 
Tti.l :Bot 
子 类 型 化 规则 的 含义 是 清晰 的 。 类 型 化 规则 背后 的 含义 是 :在 声明 性 系统 中 ,类 型 Bot 的 元 素 
可 作为 任意 类 型 的 参数 (用 包含 规则 将 Bot 类 型 提升 为 想 要 的 任何 函数 类 型 ) ,并 假设 其 结果 
是 任意 其 他 的 类 型 (对 投影 也 类 似 )。 


16.4,1 ”练习 [*]: 假 设 在 语言 中 含有 条 件 表达 式 ,是 否 还 需要 为 让 添加 其 他 算法 类 型 规 
则 呢 ? 


本 节 内 容 中 用 来 支持 Bot 的 附加 规则 不 太 复杂 。 在 28.8 节 中 ,还 会 看 到 Bot 与 固 量 词组 
合 后 出 现 的 极为 复杂 的 情况 。 


(TA-ProjBot) 
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本 章 将 用 一 个 额外 的 支持 子 类 型 化 机 制 , 尤 其 是 用 一 个 检查 子 类 型 关系 的 函数 ,对 第 10 章 
中 简单 类 型 化 演算 的 OCaml 实现 进行 扩展 。 


17.1 语法 


类 型 和 项 的 数据 类 型 定义 遵循 图 15.1 和 图 15.3 中 的 抽象 语法 。 


type ty = 
TyRecord of (string * ty)] 11ist 
| TyTop 
1 TyArr of ty * 十 y 


type ternm = 
TmRecord of info * (String * term) 1ist 
| TmProj of info * term ” string 
| Tmvar of info * int w* int 
| TmAbs of info * String * ty * 证 efrm 
| JTJmApp of info > term > 上 er 


对 照 纯 简 单 类 型 演算 ,新 的 构造 子 是 类 型 TyTop, 类 型 构造 子 TYRecord, 还 有 项 构造 子 Tm- 
Record 和 TmProj。 我 们 用 最 简单 的 方法 表示 记录 及 其 类 型 ,如 作为 字段 各 和 相关 的 项 或 类 型 
的 列表 。 


17.2 子 类 型 化 


在 16.1 节 提 到 的 算法 子 类 型 关系 的 伪 代 码 表示 能 够 翻译 为 0Caml, 如 下 所 示 ， 


]et rec Subtype tyS tyT = 
(=<) tyS tyT || 
match (tyS ,tyT) with 
《TyRecord(fS) ，TyRecord(CFT)) -~ 
List.for_a11 
(fun (ii ,tyTi) 一 
try let tySi = List.assoc 11 fS in 
Subtype tySi tyTi 
with Not_found -~ false) 


| (,TyTop) 一 
true 
| (CTyArrCtySl,tyS2) ,TyArr(CtyT1,tyT2)) -- 
《subtype tyT1L tyS1) 嫩 (Csubtype tyS2 tyT21) 
| (-,-) -~ 
false 
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我 们 对 伪 代 码 表示 中 的 算法 做 了 一 些 改变 ,在 开始 的 地 方 增加 了 自 反 性 检查 [( = ) 操 作 符 代 表 
一 般 的 等 式 ; 它 在 这 里 以 前 缀 的 形式 出 现 ,因为 在 一 些 其 他 的 子 类 型 实现 中 , 它 会 被 不 同 的 比 
较 函 数 所 代替 。11 操 作 符 是 一 种 简化 的 布尔 形式 或 表示 :如 果 第 一 个 分 支 是 tue, 那 么 第 二 个 
分 支 将 不 被 考虑 ]。 严 格 地 说 来 ,这 种 检查 不 是 必需 的 ,但 它 确 是 实际 编译 程序 里 重要 的 优化 
手段 。 在 大 多 数 实际 程序 中 , 子 类 型 很 少 使 用 ,也 就 是 说 , 多数 情况 下 子 类 型 检查 被 调用 时 , 比 
较 的 两 个 类 型 实际 上 是 相同 的 。 并 上 且 ,如 果 类 型 的 表示 方式 使 得 在 结构 上 同 构 的 类 型 能 够 保 
证 具有 物理 上 相同 的 表 式 ,例如 在 构造 类 型 时 使 用 hash consing (Goto, 1974;， Appel 和 
Goncalves,1993 ) ,那么 这 种 检查 只 是 一 个 指令 。 

记录 的 子 类 型 规则 自然 地 涉及 到 一 定数 量 繁杂 的 列表 。List,for _all 将 谓词 ( 它 的 第 一 个 
参数 ) 应 用 于 列表 中 的 每 一 个 成 员 , 当 且 仅 当 所 有 这 些 应 用 返回 值 为 tue, 它 的 返回 值 才 为 
true。List.assoc li 全 ,是 在 列表 字段 全 中 查找 标签 站 并 且 返 回 相关 的 字段 类 型 ySi ;如 果 标 签 1 
不 在 侣 中 ,就 提升 Not _found 异常 ,以 让 我 们 捕获 并 转 为 false 响应 。 


17.3 类 型 化 


类 型 检查 函数 是 对 更 早 执行 的 ypeof 函数 的 直接 扩展 。 主 要 修改 的 是 应 用 子 句 ,在 参数 
类 型 条 数 期 望 的 类 型 之 间 增 加 了 子 类 型 检查 。 并 且 我 们 也 为 记录 构造 和 投影 增加 了 两 个 新 
的 子 句 ， 


1et rec typeof ctx tt = 
match t with 
TmRecord(Cfi ，fie1ds) -- 
Tet fieldtys = 
List.map (fun (〈1i,ti) -~ (1i，typeof ctx ti)) fie1ds in 
TyRecord (fiel1dtys) 
| TmProj(Cfi，tl，1) ~ 
Kmatch 〔《typeof ctx tl1) with 
TyRecord(Cfieldtys) 一 
(try List.assoc 1 fieldtys 
with Not_found -~ error fi ("]abe1 "A1A”not found")) 
| ~ 一 error fi “Expected record type'") 
1 TmvarCfi,i,_ ) 一 getTypeFromContext fi ctx 1 
| TmAbs(Cfi ,x,tyTL,t2) -一 
let ctx” = addbinding ctx x (VarBindCtyTTI)) in 
1]et tyT2 = typeof ctx' t2 in 
TyArrCtyT1，tyT27 
| TmApp(Kfi ,tl,t2) 一 
iet tyT1 = typeof ctx tl in 
et tyT2 = typeof ctx t2 1n 
(match tyT1 with 
TyArrCtyT11,tyT1L2) 一 
计 subtype tyT2 tyT11 then tyT1L2 
else error fj "parameter type Whj SmatCch” 
| ~ 一 error fi "arrow type expected ") 


记录 子 句 引入 了 以 前 没 见 过 的 一 些 O0Caml 的 特征 。TmRecord 子 句 是 从 名 和 项 fields 的 列 
表 中 计算 出 字段 名 和 类 型 feldtys, 主要 通过 List.map 将 函数 ， 
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fun (1i,tj) 一 (11，typeof ctx ti) 
依次 应 用 每 个 名 字 和 项 上 。 在 TmProj 子 句 中 ,再 次 使 用 List.assoc 来 查找 所 选 字段 的 类 型 ;如 
果 它 提升 了 Not _found 异常 ,将 给 出 自 定 义 的 出 错 信息 (^ 代 列 表 一 个 字符 串 ) 。 


17.3.1 练习 [xxx]:16.3 节 说 明了 将 布尔 类 型 和 条 件 表达 式 加 到 带子 类 型 化 的 语言 中 ， 
是 如 何 需 要 额外 的 支持 函数 来 计算 给 定 类 型 序 对 的 最 小 上 界 。 命 题 (16.3.2) 的 证 明 给 了 
必要 算法 的 数学 描述 。 

joinexereise 类 型 检查 器 是 带子 类 型 .记录 和 条 件 表达 式 简 单 类 型 1 演算 的 不 完全 实现 : 提 
供 了 基本 的 解析 和 打印 功能 ,但 是 Tmi 子 句 不 在 bpeof 函数 中 出 现 , 它 所 依赖 的 join 函数 
也 不 出 现 。 将 布尔 型 和 条 件 表达 式 (及 合 类 型 和 交 类 型 ) 加 到 该 实现 过 程 中 。 


17.3.2 ”练习 [xx] :按照 16.4 节 中 的 描述 ,将 最 小 Bot 类 型 加 到 redsub 的 实现 中 。 


17.3.3 练习 [xxwx 户 ] :如 果 应 用 规则 中 的 子 类 型 检查 失败 ,类 型 检查 器 所 打印 的 错误 信 
息 对 于 用 户 来 说 不 太 有 用 。 我 们 可 以 在 错误 信息 中 加 上 期 望 的 参数 类 型 和 实际 变量 类 
型 ,但 就 算 这 样 也 不 易 理 解 。 例 如 ,如 果 期 望 的 类 型 是 ; 
{x:{jy:fj,z:f{j,a:fj,b:{],c:f,d:{je:f]y,f:f],9:13 
而 实际 的 类 型 为 : 
{ty:{j,z:ftjy,f:{],a:f,x:fti:tyb:{e:f],9g:{]cif],h:f] 
第 二 个 类 型 丢失 了 一 个 d 域 ,但 这 不 能 明显 看 出 来 。 如 果 改 变 subtype 函数 ,而 不 是 简单 
返回 bue 或 者 false, 能 够 使 错误 报告 有 很 大 改进 , 即 返回 一 个 不 重要 的 值 [单元 值 ()] 或 者 
提示 一 个 异常 。 因 为 提示 蜡 常 的 位 置 正好 是 类 型 匹配 失败 的 地 方 ,这 样 就 能 较为 精确 地 
指出 问题 的 所 在 。 要 注意 的 是 ,这 种 改变 不 影响 检查 器 的 “ 端 到 端 ” 行 为 :如 果子 类 型 的 检 
查 器 返回 false, 那 么 类 型 检查 器 总 会 提示 异常 (通过 调用 enor)。 
重复 实现 gpeof 和 subtype 函数 ,可 使 提示 的 错误 信息 尽 可 能 详细 。 


17.3.4 练习 [xxx 疡 ] :在 1$.6 节 中 ,通过 将 类 型 化 和 子 类 型 化 的 推导 翻译 为 纯 简 单 类 型 
化 入 演算 的 项 ,为 具有 记录 和 子 类 型 的 语言 定义 了 强制 语义 。 请 修改 上 面 的 subtype 函数 
来 实现 这 些 转 换 , 以 便 它 构 造 并 且 返 回 强制 类 型 函数 (用 term 表示 )。 类 似 地 ,修改 ypeof 
函数 ,使 它 返回 一 种 类 型 和 一 个 被 翻译 的 项 。 然 后 ,对 翻译 的 项 (不 是 开始 输入 的 项 ) 进 行 
求 值 , 并 照常 输出 结果 。 
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从 本 章 开 始 ,我们 将 接触 到 第 一 个 实例 。 我 们 将 用 到 前 面 所 定义 的 大 部 分 性 质 (函数 .记录 、 
一 般 递 归 ,可 变 引 用 和 子 类 型 化 ) 来 建立 一 个 支持 类 似 于 Smalltalk 和 Java 这 样 的 面向 对 象 的 程序 
设计 语言 中 的 对 象 和 类 的 编程 模式 。 本 章 并 不 介绍 关于 对 象 和 类 的 任何 新 的 具体 语法 ,而 是 要 
分 析 如 何 使 用 较 低 层 的 构造 来 模仿 复杂 语言 的 行为 ,以 此 来 弄 明 白 它们 的 语言 特征 。 

对 本 章 大 部 分 内 容 , 模 仿 程度 非常 准确 : 若 把 对 象 和 类 视 为 已 有 特征 的 简单 组 合 形式 ,我 
们 能 获得 对 象 和 类 的 大 部 分 特征 令 人 满意 的 实现 。 当 接触 到 虐 函 数 和 self( 参 见 18.9 节 ) 时 ， 
还 会 遇 到 求 值 顺序 上 的 困难 ,使 这 种 简化 变 得 有 点 不 现实 。 若 按 第 19 章 的 做 法 ,直接 对 这 些 
特征 的 语法 ,操作 语义 和 类 型 化 规则 公理 化 , 则 可 以 得 到 一 个 较为 满意 的 结果 。 


18.1 什么 是 面向 对 象 编程 


大 多 数 关 于 “ 某 某 的 精 人 艇 是 什么 "的 争论 更 多 暴露 出 了 参与 者 的 偏见 ,而 不 是 揭露 争论 话题 的 
客观 事实 。 试 图 精确 地 定义 “面向 对 象 "也 逃 不 出 上 述 现象 。 虽 然 如 此 ,我 们 还 是 可 以 定义 一 些 
大 多 数 面向 对 象 语言 基本 的 特征 ,让 它们 一 起 来 说 明 其 优 缺点 和 程序 设计 的 风格 ; 

1. 多 重 表示 :也 许 面向 对 象 风 格 的 最 基本 的 特性 就 是 , 当 一 个 对 象 调用 一 个 操作 时 ,对 象 
自己 确定 哪些 代码 被 执行 。 对 相同 操作 做 出 反应 的 两 个 对 象 (就 是 有 着 相同 的 接口 ) 
可 能 有 着 完全 不 同 的 表 式 形式 ,只 要 每 个 的 操作 实现 是 根据 自己 的 特殊 表示 形式 进行 
的 就 可 以 了 。 这 种 实现 称 为 对 象 的 方法 。 在 对 象 上 调用 一 种 操作 { 称 为 方法 调用 ,或 
者 更 生动 一 点 ,发 送 一 个 消息 ) 是 在 运行 时 在 对 象 的 方法 表 中 查找 该 操作 的 名 称 , 这 个 
过 程 可 叫做 动态 调用 。 
比较 起 来 ,传统 的 抽象 数据 类 型 (ADT) 由 一 组 值 及 对 这 组 值 的 单一 操作 组 成 (这 种 静态 
的 定义 对 对 象 来 说 既 有 优点 也 有 缺点 ;我 们 将 在 24.2 节 更 深入 地 阐述 这 一 点 )。 
封装 :从 对 象 定 义 的 外 部 来 看 ,对象 的 内 部 表示 通常 是 隐藏 的 :只 有 对 象 自己 的 方法 才 
能 访问 或 操作 它 的 内 部 数据 2。 这 意味 着 对 象 的 内 部 表示 的 修改 只 会 影响 程序 的 很 


it 


@ ”本章 以 具有 子 类 型 化 (参见 图 15.1) ,记录 (参见 图 15.3) 和 引用 (参见 图 13.1) 的 简单 类 型 4 演算 的 项 为 例子 。 相 关 
的 OCaml 实现 是 fllref。 

@@ 在 一 些 面向 对 象 语言 中 ,如 Smalltalk, 这 种 封装 性 是 强制 性 的 一 一 对 象 的 内 部 字段 不 能 在 它 的 定义 之 外 命名 。 其 他 
的 一 些 语言 ,例如 C++ 和 java, 允许 这 些 字段 被 标记 为 public 或 者 private。 相 反 的 是 ,在 Smalltalk 中 ,一 个 对 象 的 所 
有 的 方法 都 可 公共 地 访问 ,但 是 Java 和 C++ 允许 方法 被 标记 为 private, 只 让 同一 对 象 上 其 他 方法 对 它们 调用 。 这 
里 将 忽略 掉 这 些 精 确 的 说 明 ,但 它们 已 经 在 一 些 研究 著作 中 被 详细 地 考虑 到 了 (Pierce 和 Tumer, 1993; Fisher 和 
Mitchell ,1998; Fisher, 1996a; Fisher 和 Mitchell ,1996， Fisher, 1996b; Fisher 和 Reppy, 1999)。 
虽然 大 多 数 面向 对 象 语言 都 把 封装 作为 一 个 基本 的 概念 ,但 也 有 少数 的 语言 并 不 这 样 做。 多 重 方法 在 CLOS 
(Bobrow, DeMichiel, Gabriel, Keene, Kiczales 和 Moon, 1988; Kiczales, des Rivitres 和 Bobrow, 1991 ) , Cecil ( Chambers, 1992 ， 
1993 ) ,Dylan ( Feinberg, Keene, Mathews 和 Withington, 1997; Shalit ) ,KEA(Mugridge, Hamer 和 Hosking,1991) 及 人 Castagna， 
CGhelli 和 Longo(1995; Castagna, 1997) 的 X-& 演算 中 都 有 介绍 , 它 是 通过 在 方法 调用 时 使 用 特殊 的 类 型 标记 从 重 载 的 
方法 中 选择 恰当 的 方法 以 保持 对 象 状 态 与 方法 分 离 。 这 些 语言 在 对 象 构 造 方法 调用 、 类 定义 ,等 等 中 的 潜在 机 制 
从 本 质 上 区 别 于 本 章 中 提 到 的 语言 ,虽然 它们 产生 的 高 级 程序 用 法 是 相似 的 。 
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小 .易于 识别 的 区 域 ;这 种 约束 极 大 地 改进 了 大 型 系统 的 可 读 性 和 可 维护 性 。 

抽象 数据 类 型 提供 了 相似 的 封装 ,确保 了 其 值 的 具体 表示 只 能 在 特定 的 区 域内 是 可 见 
的 (例如 ,一 个 模块 或 一 个 抽象 定义 ) ,该 区 域外 的 代码 只 能 通过 调用 这 些 特 定 区 域内 
定义 过 的 方法 来 操作 这 些 值 。 

3. 子 类 型 化 :一 个 对 象 的 类 型 ( 它 的 接口 ) 是 它 操作 的 名 字 和 类 型 的 集合 。 对 象 的 内 部 表 

示 不 会 出 现在 它 的 类 型 中 ,因为 它 并 不 影响 我 们 所 要 进行 的 对 象 操作 。 
对 象 接口 自然 适合 于 子 类 型 关系 。 如 果 一 个 对 象 能 满足 - 个 接口 1 那么 它 也 将 能 满 
足 于 任何 操作 方法 少 于 工 的 接口 上 因为 任何 期 望 对 象 的 上 下 文 只 能 调用 该 对 象 的 ] 
方法 ,所 以 提供 I 对 象 总 是 安全 的 (这 样 ,对 象 子 类 型 化 就 类 似 于 记录 的 子 类 型 化 。 实 
际 上 ,本 章 中 展开 的 对 象 模型 是 相同 的 )。 忽 略 对 象 接口 的 一 部 分 ,这 样 只 要 编写 一 段 
代码 并 在 代码 中 包括 一 些 公 共 的 功能 以 统一 的 方式 操作 不 同 的 对 象 。 

4. 继承 :共享 部 分 接口 的 对 象 也 会 共享 一 些 行为 ,但 对 公共 的 行为 通常 只 是 执行 一 次 。 
大 多 数 面 向 对 象 的 语言 通过 一 种 称 为 类 的 结构 (对 象 实例 化 的 模板 ) 和 一 种 允许 继承 
父 类 并 增加 新 方法 来 达到 新 的 实现 方式 及 (必要 时 ) 有 选择 地 重 载 旧 方法 的 继承 机 制 ， 
从 而 达到 重用 目的 (一 些 面向 对 象 的 语言 使 用 一 种 称 为 委托 机 制 来 代替 类 机 人 制 ,这 种 
机 制 结 合 了 对 象 和 类 的 特征 )。 

5. 开放 递归 :大 多 数 具 有 对 象 和 类 的 语言 提供 的 另 一 种 易于 使 用 的 特征 ,这 就 是 一 个 方 
法 能 够 通过 一 种 特殊 变量 self 或 在 某 些 语言 中 的 this 变量 ,来 调用 同一 对 象 中 的 其 他 
的 方法 。sef 的 这 种 特殊 的 行为 是 后 联 编 的 ， 站 多 个 大 中 定义 的 方法 去 调用 较 晚 
(在 第 一 个 子 类 中 ) 定 义 的 方法 。 


本 章 接 下 来 的 部 分 继续 讨论 这 些 特 征 ,将 从 非常 简单 的 “独立 "对 象 开 始 ,然后 慢 慢 考虑 类 
的 更 强 功能 形式 。 

随后 的 章节 会 检查 对 象 和 类 不 同 的 特性 。 第 19 章 会 以 Java 风格 给 出 对 象 和 类 的 一 个 直 
接 处 理 方法 (并 非 编码 形式 )。 而 第 27 章 将 会 回 到 本 章 所 讨论 的 编码 形式 ,用 阅 量 词 来 改进 类 
构造 的 运行 效率 。 第 32 章 将 探讨 一 个 运行 在 纯 函 数 设置 中 的 更 有 前 途 的 编码 形式 。 


18.2 对象 


在 对 象 的 最 简单 的 形式 中 , 它 只 是 一 个 封装 一 些 内 部 数据 并 提供 外 部 访问 这 些 数 据 方法 
集 的 数据 结构 。 内 部 数据 由 一 些 可 变 的 实例 变量 (或 字段 ) 组 成 ,这 些 实例 变量 是 方法 共享 的 ， 
但 不 能 被 程序 的 其 他 部 分 所 访问 。 

本 章 使 用 的 例子 都 是 由 对 象 表示 的 简单 计数 器 。 每 一 个 计数 器 有 一 个 数值 和 两 个 方法 
(例如 ,响应 两 个 消息 ) :一 个 是 实现 取 值 的 get 方法 ,一 个 是 使 值 增加 的 ine 方法 。 

实现 前 面 章 节 介 绍 的 特征 直接 方式 是 对 内 部 数据 使 用 一 个 引用 单元 和 对 方法 使 用 一 个 函 
数 记录 。 一 个 当前 数据 为 1 的 计数 器 对 象 类 似 于 ， 


C= letx= ref 1 in 
{fget = A_:Unit。1XxX， 
inc = A_:Unit，x:=SuccCIXJ}; 


”CC : {get:Unit-Nat，inc:Unit 一 Unit1} 
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两 个 方法 体 都 写成 带 有 平凡 参数 的 函数 (用 “ “表示 不 必 在 程序 中 指明 它们 )。 当 对 象 被 创建 
时 ,抽象 会 阻止 方法 体 的 求 值 ,随后 允许 方法 体能 够 被 多 次 重复 求 值 ,将 其 反复 地 应 用 于 unit 
参数 。 并 且 , 注 意 该 对 象 的 状态 是 如 何在 方法 中 共享 且 不 能 被 程序 的 其 他 部 分 访问 的 :数据 的 
封装 直接 源 于 变量 x 的 语义 范围 。 
为 调用 对 象 中 的 一 个 方法 ,我们 只 抽取 记录 的 一 个 字段 并 将 其 应 用 于 一 个 合适 的 参数 。 
例如 : 
c,inc unit; 
* Unit : Unit 
c,get unit; 
* 2 :1 Nat 
《c.inc uniti cinc unitij cget unit)i 
”4 : Nat 
事实 是 ine 方法 返回 了 unit, 允许 我 们 在 增 量 的 次 序 上 使 用 ”; 符 叶 (参见 第 11.3 节 )。 可 以 将 
上 面 的 最 后 一 行 代码 等 价 地 写 为 : 
let _ = cinc unit in let _ = c.inc unit in c.get uniti 


因为 要 创建 并 操作 许多 计数 器 ,所 以 采用 以 下 类 型 的 缩写 形式 将 会 更 方便 ; 
Counter = {fget:Unit-Nat，inc:Unit 一 Unitl; 
本 章 关 注 的 焦点 是 对 象 如 何 被 创建 ,而 不 是 在 组 织 大 型 的 程序 中 如 何 使 用 它们 。 但 是 ,我 


们 至 少 想 看 一 下 一 个 使 用 对 象 的 函数 ,以 证 实 它 是 在 具有 不 同 内 部 表示 的 对 象 上 起 作用 。 下 
面 是 一 个 小 例子 一 一 一 个 使 用 计数 器 对 象 并 三 次 调用 ine 方法 的 函数 : 


inc3 = NAc:Counter。 (c.inc unit; c.inc unit; c.inc unit)7 ; 
*” inc3 : Counter 一 Unit 
(Cinc3 c; c.get unjit) ; 


*” 7 : Nat 


18.3 对象 生成 器 


我 们 已 经 看 到 如 何 一 次 创建 一 个 独立 的 计数 器 对 象 。 编 写 一 个 计数 器 的 生成 器 , 即 一 个 
每 次 被 调用 时 会 创建 并 返回 一 个 新 的 计数 器 对 象 的 函数 ,同样 是 简单 的 事 
newCounter = 
和 X_:Unit，1et X = ref 1 in 
{fget = A_:Unit。 1!1X， 
inc = 入 :Unit。Xx:=SuccCIXx7J]; 


*” newCounter : Unit 一 Counter 
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18.4 子 类 型 化 


面向 对 象 语 言 盛行 的 一 个 原因 就 是 它们 允许 同一 段 代码 操作 多 种 形态 的 对 象 。 例 如 , 假 
设 除 了 前 面 定义 的 Counter 对 象 外 ,还 创建 了 一 些 对 象 ,含有 让 它们 在 任何 时 候 重 设 初始 状态 
的 方法 : 

ResetCounter = {fget:Unit-Nat，inc:Unit 一 Unit，reset:Unit 一 Unitj; 
和 1eWReSetCounter = 
A_:Unit. let X = ref 1 in 
{fget = A_iUnit， !x， 
inc = 人 A_:Unit，x:=SuccCIx)， 
reset = A_:Unit. x:=1}; 


” hewResetCounter : Unit 一 ResetCounter 
由 于 ResetCounter 含有 Counter 的 所 有 字段 ( 比 其 还 多 一 个 ), 记录 子 类 型 化 规则 说 明 ， 
ResetCounter <;: Counter 。 这 说 明 客 户 端 函 数 如 inec3( 把 计数 器 对 象 当 做 参数 ) ,能 安全 地 被 用 于 
重 置 计算 器 对 象 


rc = newResetCounter unit; 
* rc : ResetCounter 
(inc3 rci rc.reset unit; inc3 rci rc.get unit); 


*” 4 : Nat 


18.5 聚集 实例 变量 


到 目前 为 止 ,所 描述 的 对 象 状 态 都 是 由 一 个 单独 的 引用 单元 组 成 的 。 显 然 , 更 有 趣 的 对 象 
总 是 有 着 不 同 的 实例 变量 。 在 接 下 来 的 内 容 里 ,将 所 有 这 些 实例 变量 变 成 一 个 独立 的 单元 是 
十 分 有 用 的 。 为 了 达到 这 一 目的 ,让 我 们 将 计数 器 对 象 的 内 部 表示 改 成 一 个 引用 单元 的 记录 ， 
并 且 通 过 映射 该 记录 的 字段 指向 方法 体 中 的 实例 变量 ; 

cmletram {fx=ref 1 jn 
{fget = 和 A_:Unit。， LICr.x)， 
inc = :Unit，r.x:=Succ(ICr.x)7}i 
”CE : Counter 


这 种 实例 变量 记录 的 类 型 称 为 对 象 的 表示 类 型 


CounterRep = {x: Ref Nat)}; 


18.6 简单 类 


除了 reset 方法 外 ,newCounter 和 newResetCounter 在 随后 的 定义 中 是 相同 的 。 当 然 , 这 两 种 
定义 都 非常 简略 ,以 至 于 使 它们 几乎 没有 差别 ,但 如 果 它 们 占 多 页 篇 幅 ,如 实际 可 能 发 生 的 那 
样 ,我 们 更 希望 有 什么 方法 能 在 一 个 地 方 描述 它们 共同 的 功能 。 这 种 在 大 多 数 面向 对 象 语言 
中 实现 的 机 制 就 称 为 类 。 
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在 现实 的 面向 对 象 语言 中 的 类 机 制 往往 是 复杂 的 ,并 且 装 载 了 各 种 特征 一 一 self, super, 可 
见 的 注释 ,静态 字段 和 方法 ,内 部 类 , 友 元 类 , 像 final 和 Serializable 的 注释 ,等 等 0。 我 们 在 此 
将 忽略 其 中 的 大 部 分 而 把 注意 力 放 在 类 型 最 基本 的 特征 上 :以 继承 方式 的 代码 重用 seif 的 后 
联 编 。 不 过 此 时 ,只 考虑 前 者 。 

一 个 类 的 最 初 形式 只 是 一 个 含 方法 集合 的 数据 结构 , 它 可 以 实例 化 为 一 个 对 象 , 也 可 以 扩 
展 为 另 一 个 类 。 

为 什么 我 们 不 能 从 计数 器 对 象 中 重用 一 些 方法 ,创建 一 个 重 置 计数 器 呢 ? 仅仅 因为 ,在 一 
些 特殊 的 计数 器 对 象 中 ,方法 体 包 含 了 指向 实例 变量 的 一 些 特殊 记录 的 引用 。 所 以 假如 我 们 
要 对 实例 变量 的 不 同 记 录 重 用 相同 的 代码 ,需要 做 的 就 是 抽象 关于 实例 变量 的 方法 。 这 就 等 
于 把 上 面 的 newCounter 函数 分 成 两 部 分 ,其 中 一 个 定义 处 理 实例 变量 的 任意 记录 的 方法 : 


CounterC]1ass = 
AriCounterRep . 
{fget = 和 A_:Unit. ICr.x)， 
inc = A_iUnit-. rr.x:=SUCCCICr.X)7]; 
*” CounterC1ass : CounterRep 一 Counter 


另 一 个 分 配 实例 变量 的 一 个 记录 提供 给 方法 以 创建 一 个 对 象 : 


* newCounter : Unit 一 Counter 
newCounter = 
XA_:Unit.， et r = {x=sref 1} in 
CounterC]1ass 『; 


counterClass 中 的 方法 还 可 以 用 来 定义 新 的 类 , 称 为 子 类 。 比 如 ,可 以 定义 一 个 重 置 计 数 
器 类 : 


resetCounterC1ass >= 
Ar:CounterRep . 
1et Super = CounterC1lass T in 
{fget “= Super.get， 
inc = Super.inc， 
reset = 人 _:Unit， rr.x:=1}; 
* PresetCounterC1as5 : CounterRep -- ReSsetCounter 
和 counterClass 类 似 ,这 个 函数 使 用 一 个 实例 变量 的 记录 ,返回 一 个 对 象 。 在 内 部 , 它 首先 用 
counterClass 创建 了 带 相 同 实例 变量 记录 的 计算 器 对 象 rc;“ 父 对 象 "用 super 变量 表示 。 然 后 复 
制 super 中 的 get 和 ine 字段 ,并 为 reset 字段 提供 一 种 新 的 函数 来 创建 一 个 新 对 象 。 由 于 super 
建立 在 "之 上 ,所 以 三 个 方法 共享 相同 的 实例 变量 。 
要 创建 一 个 重 置 计数 器 对 象 ,我 们 又 一 次 为 它 的 实例 变量 分 配 内 存 , 调 用 resetCounterClass， 
实际 的 工作 就 在 这 里 运行 : 
newResetCounter = 


A_:Unit， 1let r = {fx=ref 1j in resetCounterC1ass r; 
* newResetCounter : Unit 一 ResetCounter 


@。 所 有 的 这 些 复杂 性 的 主要 原因 就 是 ,在 大 多 数 这 类 语言 中 ,类 是 惟一 的 大 规模 结构 化 机 制 。 实 际 上 ,只 有 一 种 已 经 
被 广泛 应 用 的 语言 (OCaml) 提 供 了 类 和 复杂 的 模块 系统 。 所 以 多 数 语言 中 的 类 趋向 于 成 为 堆放 所 有 与 大 规模 程序 
结构 有 关 的 语言 特征 的 垃 圾 场 。 
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18.6.1 练习 [推荐 ,三 ] : 写 出 一 个 resetCounterClass 的 子 类 ,上 且 该 子 类 含有 将 Counter 中 的 
值 减 1 的 方法 dec。 利 用 flref 测试 程序 测试 你 的 新 类 。 


18.6.2 练习 [xx 产 ] :直接 把 父 类 的 大 多 数字 段 复 制 到 子 类 的 方法 是 相当 繁 拙 的 一 一 它 

虽然 避免 了 在 子 类 中 重新 输入 父 类 方法 的 代码 过 程 ,但 它 仍 然 涉及 到 很 多 类 型 化 问题 。 

如 果 仍 用 这 种 风格 来 开发 较 大 的 面向 对 象 程序 ,希望 有 一 种 更 简洁 的 符号 出 现 , 比 如 用 

“super with | reset = 入 _:Unit.r'x: = 1 "表示 “一 种 类 似 super 的 记录 ,但 有 一 个 含 

入 _:Unitr.x: = 1 函数 的 字段 reset”。 写 出 这 种 结构 的 语法 ,操作 语义 和 类 型 规则 。 

我 们 应 该 强调 这 些 类 是 值 ,而 不 是 类 型 。 也 可 建立 很 多 个 类 , 它们 能 生成 相同 类 型 的 对 
象 。 像 C++ 这 样 的 主流 面向 对 象 语言 ,类 还 有 更 复杂 的 情形 一 一 它们 既 可 作为 编译 时 的 类 
型 ,又 可 作为 运行 时 的 数据 结构 。 这 一 点 在 19.3 节 有 更 深入 的 讨论 。 





18.7 添加 实例 变量 


计数 器 对 象 和 重 置 计数 器 对 象 的 内 部 表示 完全 相同 。 但 是 一 般 来 说 ,一 个 子 类 不 仅 要 扩 
展 父 类 的 继承 方法 ,还 要 扩充 一 些 继承 的 实例 变量 。 举 个 例子 ,假设 定义 一 个 “备份 计数 器 ” 
(backup counters) 类 , 它 的 reset 方法 把 它们 的 数据 重新 设置 为 无 论 什 么 值 ( 最 后 将 该 方法 称 为 
backup ) , 而 不 是 把 它们 重新 设置 成 一 个 常量 : 


BackupCounter = {fget:Unit-Nat，inc:bnit~Unit， 
reset:Unit-Unit，backup: Unit 一 Unitl; 


要 实现 备份 计数 器 ,需要 另 一 个 实例 变量 来 保存 数据 的 备份 值 。 


BackupCounterRep = {x: Ref Nat，b: Ref Natj ; 


如 通过 复制 get 和 ine 方法 并 添加 reset 方法 将 resetCounterClass 从 counterClass 继承 过 来 ,这 
里 也 是 通过 复制 get 和 ine 方法 ,并 给 出 reset 和 backup 方法 让 backupCounterClass 继承 
resetCounterCjlass : 


backupCounterC1ass = 
Ar:BackupCounterRep . 
Tet Super = resetCounterC1ass r 1n 
{get = Super.get， 
1nc = Super.inc， 
reset = 和 :Unit，r,X:=1Cr.b)， 
backup = 和 A_:Unit，r.b:=!IKCr.x])]; 


” backupCounterClass : BackupCounterRep 一 BackupCounter 


这 个 定义 中 有 两 点 比较 有 趣 。 第 一 ,尽管 父 类 对 象 super 含有 一 个 reset 方法 ,但 还 是 写 了 一 个 
新 的 实现 方式 ,因为 我 们 想得到 一 个 不 同 的 行为 。 新 类 重 载 了 父 类 中 的 reset 方法 。 第 二 ,在 
类 型 化 表达 式 (用 来 建造 super 的 ) 的 过 程 中 , 子 类 型 起 了 关键 作用 :resetCounterClass 需要 一 个 
CounterRep 类 型 (是 参数 r 的 实际 类 型 BackupCounterRep 的 超 类 型 ) 的 参数 。 换 名 话说 ,实际 上 
为 父 对象 提 供 了 一 个 比 它 的 方法 所 需要 的 更 大 的 实例 变量 记录 。 


18.7.1 练习 [推荐 ,xx] ;定义 一 个 backupCounterClass 的 子 类 ,使 其 含 两 个 新 方法 ,reset2 
和 backup2 ,控制 另 一 个 “备份 注册 ”。 这 个 注册 应 完全 独立 于 backupCounterClass 所 增加 的 
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那 一 个 :调用 reset 时 应 该 保存 上 次 调用 backup 时 的 值 ( 好 像 它 是 刚 设 的 ) ,调用 reset2 时 
应 该 保存 上 次 调用 backup2 时 的 值 。 用 flhef 检查 器 检测 你 的 类 。 


18.8 调用 超 类 方法 


变量 super 可 用 于 把 函数 从 父 类 复制 到 新 的 子 类 。 用 super 可 以 在 定义 方法 时 增加 新 的 方 
法 来 扩充 父 类 的 行为 。 比 如 ,假设 变化 一 下 backupCounter 类 ,每 调用 一 次 inec 方法 前 自动 调用 
一 次 backup( 天 知道 这 样 一 个 类 有 什么 用 处 一 一 它 仅仅 是 一 个 例子 ): 


funnyBackupCounterC1lass = 
Ar:BackupCounterRep . 
let Super = backupCounterClass r jn 
{get = Super.get， 
inc = A_:Unit. (Super.backup unit; super.inc unit) ， 
reset = SUper.reset， 
backup = Super.backupj; 





* funnyBackupCounterC1ass : BackupCounterRep 一 BackupCounter 


注意 这 里 在 ine 的 新 的 定义 中 super,inc 和 super.backup 的 调用 是 怎样 避免 重复 inc 和 backup 
的 超 类 代码 。 对 较 大 例子 ,这 种 情况 下 保存 复制 功能 有 实质 性 作用 。 


18.9 含 self 类 


最 后 的 扩展 是 让 类 中 的 方法 可 以 通过 self 来 相互 引用 。 要 激发 这 个 扩展 ,假设 想 实现 一 
个 Counter 类 , 它 有 一 个 set 方法 ,可 从 外 部 把 当前 的 求 值 设 成 一 个 特殊 的 数 ， 


SetCounter = {fget:Unit 一 Nat，set:Nat 一 Unit，inc:Unit-Unit]; 


而 且 假 设 ine 方法 中 用 到 set 和 get, 而 不 是 直接 读 取 和 指派 实例 变量 x( 想 像 一 下 ,一 个 大 型 例 
子 中 ,set 和 get 方法 每 个 定义 都 需要 好 几 页 )。 既 然 get, set 和 ine 都 定义 在 相同 的 类 中 ,我 们 
所 需要 的 关键 就 是 使 这 个 类 中 的 方法 可 以 互 递归 调用 。 

在 11.11 节 提 到 了 怎样 使 用 fk 操作 符 来 建立 函数 互 递归 记录 。 我 们 简单 的 把 记录 方法 
抽象 为 一 个 参数 ,这 个 参数 本 身 是 一 个 函数 记录 ( 称 为 self) ,然后 使 用 fx 操作 符 “ 将 节点 联 
结 ”, 使 得 建立 的 记录 以 self 形式 传递 


SetCounterC1ass = 
Ar:CounterRep . 
fiX 
(ASself: SetCounter . 
{get = A_:Unit，1Cr.x)， 
set = Ai:Nat， F.X:=i， 
inc = 人 _:Unit，self.set (Succ (Se1f.get unit))}); 


* SetCounterC1ass : CounterRep 一 SetCounter 
这 个 类 没有 父 类 ,因此 这 里 不 需要 super 变量 。 相 反 ,传递 的 记录 以 self 形式 传 给 ine 方法 时 ， 
inc 先 激 活 get, 然后 激活 set。 人 ae 的 使 用 完全 在 setCounterClass 类 内 部 。 然 后 按 平 时 ~- 样 的 方法 


创建 Set-counter : 
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newSetCounter = 
和 :Unit. 1et r = {x=ref 1 in 
SetCounterC]1ass 『; 


>* newSetCounter : Unit 一 SetCounter 


18.10 使 用 sef 的 开放 递归 


大 多 数 面向 对 象 的 语言 实际 上 支持 方法 之 间 更 一 般 的 递归 形式 , 称 为 开放 递归 ,或 self 的 
后 联 编 。 从 类 定义 中 去 掉 位 来 实现 更 一 般 的 行为 ; 
SetCounterC1aSS = 
Ar:CounterRep . 
ASse1f: SetCounter . 

{get = A_:Unit，!Cr.x)， 

set = Ai:Nat， 『.X:mi， 

inc = A_:Unit，se1f.set (Succ(CsSe1f .get unit77}; 


* SetCounterC1ass : CounterRep 一 SetCounter 一 SetCounter 


然后 把 它 放 到 对 象 生 成 函数 里 ; 
new9etCounter = 
A_:Unit. 1let r = {fx=ref 1} in 
fix (setCounterC1ass 站 ; 
* newsSetCounter : Unit 一 SetCounter 


注意 , 移 走 fix 后 改变 了 setCounterClass 的 类 型 : 它 不 仅 抽 象 为 一 个 实例 变量 的 记录 ,也 抽象 为 
sef 对 象 ;实例 化 时 两 者 都 产生 实例 。 

为 什么 通过 self 的 开放 递 归 是 有 用 的 ,是 因为 它 允 许 父 类 方法 去 调用 子 类 方法 ,即使 父 类 
定义 时 , 子 类 还 不 存在 。 实 际 上 ,我 们 已 经 改变 了 对 setf 的 解释 , 它 不 再 是 “这 个 类 的 方法 ”, 而 
是 提供 了 一 个 访问 "已 经 实例 化 的 对 象 类 (可 能 为 该 类 的 子 类 ) 的 方法 "的 方式 。 

比如 ,假设 要 创建 setreounter 的 子 类 , 它 记 录 set 方法 被 调用 的 次 数 。 这 个 类 的 接口 包括 
一 个 额外 的 提取 访问 次 数 的 操作 

InstrCounter = {tgetiUnit 一 Nat，set:Nat 一 Unit， 
inc:Unit-~uUnit，accesses:Unit-Nat}; 
且 表 达 中 包含 一 个 访问 次 数 的 实例 变量 ; 
InstrCounterRep = {x: Ref Nat，a: Ref Natl， 
在 计数 器 (instrumented counter) 类 的 定义 中 ,inec 和 get 方法 从 上 面 定义 的 setCounterClass 中 复制 
而 来 。 aceesses 方法 按 一 般 的 方式 写 出 来 。 在 set 方法 中 ,我 们 首先 让 访问 数 加 一 ,然后 使 用 
SUperT 来 激发 父 类 的 Set : 
instrCounterC1aSS = 
Ar:InstrCounterRep . 
Ase1f: InstrCounter ， 
et Super = SetCounterClass r se1f in 
{get = Super.get， 
Set = Ai:Nat，(r.ai=SuccCI(r.a)); super.set 1 让， 
Tinc = Super.inc， 
acCcesses = 一 A_IUnit，!Cr,a)j; 


*” instrCounterC1ass : InstrCounterRep 一 
TInstrCounter 一 EnstrCounter 





六 一 一 一 
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因为 通过 self 的 开放 递归 ,从 ine 的 方法 体 中 调用 set 将 导致 实例 变量 a 递增 ,即使 set 的 递增 
行为 在 子 类 中 定义 ,ine 的 定义 出 现在 父 类 中 。 


18.11 开放 递归 及 求 值 顺 序 


在 instrCounterClass 的 定义 中 有 一 个 问题 一 一 我 们 不 能 用 它 来 创建 实例 ! 如 果 按 平常 的 方 
法 来 写 newInstrCounter， 
A_:Unit. let rr = {x=ref 1，a=ref 0j in 
fix (instrCounterC]1ass rr ; 


” newInstrCounter : Unit 一 InstrCounter 


然后 把 它 用 到 unit 来 试图 产生 一 个 计数 器 : 


ic = newInstrCounter Unit; 
-这 个 求 值 将 会 产生 歧义。 来 看 一 下 它 是 怎样 产生 的 ,从 该 项 开始 考虑 求 值 步骤 的 顺序 ， 
1. 首先 把 newnstrCounter 应 用 到 unit, 产生， 


Tet nr = {x=ref I，a=ref 0j in fix CinstrCounterC1ass rm 


2. 接着 分 配 两 个 ref 单元 ,把 它们 包装 到 一 个 记录 ( 称 为 < ivars > ) ,在 后 面 的 部 分 用 
< ivars > 来 代替 r; 

fix (CinstrCounterC1a5sS <ivars>) 

. 把 < ivars > 传递 给 instrCounterClass-。 由 于 instrCounterClass 从 两 个 入 质 象 开始 ,我 们 立 
即 返回 到 正在 等 待 self 的 函数 ， 


fix (ASelf:InSstrCounter . 
1et Super = SetCounterC1ass <ivarS> self in <imethods>) 


这 里 < imethods > 是 计数 器 的 方法 记录 。 称 这 个 函数 为 <f> , 写 出 目前 的 状态 (fx <f> )。 
, 把 这 个 求 值 规则 应 用 到 fix( 参 见 图 11.12 中 的 E Fix ) ,打开 ”fx<f> ,在 <f> 中 用 (fx 
<f> ) 代 替 self, 产 生 ， 


]et super = setCounterClass <ivars> (fix <f>) in <imethods> 


. 现在 还 原 setCounterClass 的 应 用 < ivars > ,产生 ， 


1]et super = (Aselif:SetCounter .<Smethods>) (fix <f>) 
Tin <imethods> 


其 中 < smethods > 是 set-counter 方法 的 记录 。 
. 根据 应 用 的 求 值 规则 ,直到 (fiz <f> ) 还 原 为 一 个 值 时 ,才能 还 原 ()Xself : SetCounter， 
< smethods > ) 的 应 用 (fx <f> )。 因 此 求 值 的 下 一 步 是 再 次 打开 fx <f> ,得 到 ， 


1et super = (Ase1f:SetCounter 。<smethods>) 
(let super = SetCounterC1ass <ivars> (fix <f>) 
in <imethods>) 


Lo 


人 


LAn 


从 


in <imethods> 


, 由 于 外 层 的 和 抽象 的 参数 还 不 是 一 个 值 ,所 以 必须 继续 求 值 到 里 边 的 一 层 。 把 setCo- 
unterClass 应 用 到 < ivars > ,得 到 : 


~ 
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1et super = (Ase1f:SetCounter .<Smethods>7) 
(let super = (Ase1f:SetCounter ，<Ssmethods>) 
Cfix <f>) 
in <imethods>) 
in <imethods> 


8. 现在 创建 了 一 个 形式 上 与 外 层 相 似 的 内 层 应 用 。 和 前 面 一 样 ,这 个 内 层 的 应 用 不 能 被 
简化 ,直到 它 的 参数 多 < f> 被 完全 求 值 。 因 此 我 们 的 下 一 步 是 再 次 打开 fx <f > ,得 
到 一 个 形式 上 和 第 6 步 一 样 但 更 深 凡 套 的 表达 式 。 但 在 这 点 上 还 应 该 清楚 , 决 不 是 要 
去 给 外 层 求 值 。 


直观 来 看 ,这 里 的 问题 是 fx 操作 符 的 参数 过 早 地 使 用 自己 的 参数 self 。fix 的 操作 语义 是 
希望 把 名 应 用 到 某 个 函数 Mix.t 时 ,t 只 能 处 于 * 受 保护 ?地 位 指向 x, 如 星 层 的 和 抽象。 比如， 
在 11.11 节 和 定义 的 iseven, 把 似 应 用 到 形式 为 Xie,Xx.… 的 函数 中 ,其 中 函数 体 中 对 ie 的 递归 
引用 就 受到 x 抽象 的 保护 。 相 反 ,instrCounterClass 的 定义 总 想 计算 super 的 值 后 立即 使 用 self。 

这 一 点 上 ,可 以 有 多 种 方式 来 进行 ; 


@ 可 以 在 instrCounterClass 里 保护 对 self 的 引用 ,以 避免 被 过 早 求 值 , 比 如 插 人 虚拟 入 抽象 。 
下 面 就 要 讨论 这 个 解决 方法 。 我 们 将 会 看 到 它 并 不 完全 让 人 满意 ,但 它 能 直观 地 描述 
和 理解 已 出 现 机 制 的 使 用 方式 。 第 32 章 考 虑 纯 函 数 对 象 编码 时 ,会 发 现 它 也 很 有 用 。 

@ 可 以 寻找 不 同 的 方式 ,利用 低级 语言 的 特征 来 构建 类 的 语义 模型 。 比 如 ,不 用 似 来 构建 
类 的 方法 表 , 而 使 用 引用 来 更 直接 地 构建 。 我 们 将 在 18.12 节 实 现 这 个 想法 ,在 第 27 章 
还 会 有 更 深 人 的 定义 。 

ee 从 和 抽象 .记录 和 fix 角度 来 说 ,可 以 先 不 考虑 对 象 和 类 的 编码 ,把 它们 当成 语言 中 带 自 
己 求 值 ( 或 类 型 ) 规 则 的 原 语 。 那 样 就 可 以 简单 地 选择 符合 对 象 和 类 实现 功能 意图 的 求 
值 规则 ,而 不 是 围绕 着 所 给 的 应 用 和 fr 规则 带 来 的 问题 。 这 个 方法 在 第 19 章 中 还 会 
谈 到 。 

使 用 虚拟 和 抽象 来 控制 求 值 顺序 在 函数 编程 领域 是 一 个 为 人 熟知 的 小 技巧 。 其 思想 是 任 
意 一 个 表达 式 可 以 转换 成 一 个 函数 和 _: Unit.ib 这 称 为 hunk。t 的 “thunk 形式 "是 一 个 语 潜 
值 ; 所 有 涉及 到 求 值 ! 的 计算 将 推迟 ,直至 转换 应 用 于 unit。 这 提供 了 一 个 把 + 以 未 赋值 的 形 
式 传 递 的 方法 ,可 以 后 再 考虑 结果 。 

这 时 可 以 推迟 self 的 求 值 。 遂 过 把 它 的 类 型 从 一 个 对 象 (比如 SetCounter) 改 成 一 个 thunk 
对 象 (如 Unir~SetCounter) 来 实现 :包括 (1) 把 self 参数 的 类 型 改 为 类 ;(2) 在 创建 最 终 对 象 之 前 
增加 一 个 虚拟 抽象 ;(3) 在 方法 体 中 把 所 有 出 现 self 的 地 方 改 成 (self unit) 。 


setCounterClass = 
Ar:CounterRep . 
Ase1f: Unit 一 SetCounter . 
A_:Unit ， 
{get = 和 :Unit.， !LCr.x)， 
set = Ai:Nat.， r.Xx:=i， 
inc = 和 X_:Unit. (selif unit) .set(succ((self unit) .get unit)7)1; 
* SetCounterC1ass : CounterRep 一 
(Unit~SetCounter)] 一 Unit ~ SetCounter 
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虽然 不 想 改变 newSetCounter 的 类 型 ( 它 仍然 返回 一 个 对 象 ) ,但 它 的 定义 还 是 要 稍微 修改 一 下 ， 
使 得 形成 setCounterClass 的 不 动 点 时 , 它 可 以 传递 一 个 unit 参数 给 它 产生 的 thunk， 


newSetCounter = 
AMA_:Unit-. et rr = {fx=ref 1} in 
fix (setCounterC1ass r) unit; 


* newSetCounter : Unit 一 SetCounter 


需 对 instrCounterClass 的 定义 中 做 类 似 修改 。 注 意 所 有 这 些 修 改 都 不 需要 任何 思考 :一 旦 修改 
了 seif 的 类 型 ,所 有 其 他 的 修改 都 要 根据 类 型 规则 的 指示 : 


”TiTnstrCounterC1ass = 
NAr:InstrCounterRep . 
ASse1f: Unit 一 InstrCounter . 
和 A_:Unit- 
et Super = SetCounterC1lass r Se]1f unit Tin 

{fget = Super.get， 
set = Ai:Nat. (Cr.a:=succCICr.a)); Super.set 1i)， 
inc = super.inc， 
acce5sses = 人 A_:Unit。!Cr.a)ji 


” instrCounterC]1ass : InstrCounterRep 一 
(Unit 一 InstrCounter) 一 Unit - InstrCounter 


最 后 修改 newinstrCounter 以 便于 让 它 为 fx 创建 的 thunk 提供 一 个 虚 参 : 


newInstrCounter = 
A_:Unit. let r = {fx=ref 1，a=ref 0] in 
fix (〔《instrCounterClass r) unjiti 


* newInstrCountenr : Unit 一 InstrCountenr 
现在 可 以 用 newInstrCounter 来 创建 一 个 实际 的 对 象 了 : 
ic = newInstrCounter unit; 


* TC : InstrCounter 


回想 一 下 ,这 就 是 我 们 添加 thunk 之 前 发 散 的 那 一 步 。 
下 面 的 测试 描述 了 accesses 方法 怎样 计算 调用 set 和 ine 的 次 数 ， 


(ic.set 5; ic.accesses unit) ; 


>” 二: Nat 
(ic.inc unit;i ic.get unit); 
* 6 : Nat 
ic.accesses unit; 
”2.: Nat 
18.11.1 练习 [推荐 ,*xx]: 利 用 fallref 检查 器 来 为 上 面 的 类 实现 下 面 扩充 : 
1. 重 写 instrCounterClass, 以 使 它 能 记录 调用 get 的 次 数 。 
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2. 用 一 个 子 类 来 扩充 你 所 修改 的 instrCounterClass, 像 18.4 节 一 样 , 子 类 里 增加 一 个 reset 


方法 。 
3. 再 增加 一 个 子 类 ,支持 备份 , 像 18.7 节 一 样 。 


18.12 更 高 效 的 实现 


上 面 的 测试 显示 类 的 实现 符合 Smalktalk,C++ 和 Java 语言 中 通过 self 的 方法 调用 的 “开放 
递归 “行为 模式 。 但 是 应 该 注意 ,这 个 实现 从 效率 方面 来 考虑 并 不 完全 让 人 满意 。 为 了 使 伺 
计算 集中 一 点 而 增加 的 thunk 会 推迟 类 的 方法 表 的 计算 。 特 别 是 ,注意 在 方法 体 里 边 对 self 的 
所 有 调用 都 变 成 了 (seif unit) 也 就 是 说 ,每 次 无 意 中 对 它们 做 递归 调用 时 self 方法 就 被 重 
新 计算 一 次 ! 

在 创建 对 象 时 ,使 用 引用 单元 而 不 用 类 层次 结构 中 不 动 点 来 “联结 节点 ,这样 可 以 避免 所 
有 的 重复 计算 中 。 不 是 对 类 中 self 方法 (后 来 用 fx 创建 的 ) 的 记录 进行 抽象 ,而 是 抽象 一 个 引用 
到 方法 记录 ,然后 先 分 配 这 个 记录 。 也 就 是 说 ,我 们 建立 一 个 类 实例 时 ,首先 为 它 的 方法 (用 一 个 
虚拟 值 初始 化 ) 分 配 一 个 堆 单元 ,然后 创建 实际 的 方法 (给 它们 传递 一 个 指向 堆 单元 的 指针 ,通过 

间 针 可 以 做 递归 调用 ) ,最 后 回 补 堆 单元 ,使 它 包 含 实际 的 方法 。 例 如 ,又 见 setCounterClass : 
SetCounterClass = 
Ar:CounterRep。 Ase1f: Ref SetCounter . 
{get = MA_:Unit. !LCr.x)， 
set = AT:Nat. rr.x:=1i， 
inc = A_:Unit，(!se1f) .set (succ (CC(Lself) .get unit)7]}; 
” SetCounterCl1ass : CounterRep 一 〈Ref SetCounter) 一 SetCounter 


参数 seif 是 一 个 指向 包含 当前 对 象 的 方法 单元 的 指针 。 调用 setCounterClass 时 , 这 个 单元 用 一 
个 虚拟 值 初 始 化 : 


dummySetCounter = 
{get = A_:Unit， 0， 
Set = Ai:Nat，.， unit， 
inc = A_:Unit。，unitj}i 





* dummySetCounter : SetCounter 


newSetCounter = 
A_:Unit. 
let P = {x=ref 1} in 
1et CAUx = ref dummySetCounter in 
(CAUX := (SetCounterC1a55 rr CAUXx) ; !1CAux) ; 


”* mewSetCounter : Unit 一 SetCounter 


但 是 ,由 于 所 有 的 反 引 用 操作 (1self) 都 受到 、 抽象 的 保护 ,所 以 该 单元 直到 newSetCounter 回 补 
后 才 被 真正 地 反 引 用 。 


外 ”这 本 质 上 和 练习 13.5.8 所 使 用 的 解决 方法 是 相同 的 想法 。 感 谢 James Riely, 他 观察 到 利用 Souree 类 型 的 协 变性 可 
以 将 该 想法 应 用 到 类 结构 上 。 
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为 了 支持 创建 setCounterClass 的 子 类 ,需要 对 它 的 类 型 进一步 精 化 。 每 个 类 都 希望 它 的 
self 参数 拥有 与 它 创建 的 方法 记录 相同 的 类 型 。 也 就 是 说 ,如 果 我 们 定义 一 个 计数 器 的 子 类 ， 
这 个 类 的 sel 参数 将 是 一 个 指向 计数 器 方法 的 记录 指针 。 但 是 ,如 在 15.5 节 所 见 , Ref 
SetCounter 类 型 和 Ref InstrCounter 类 型 是 不 相 容 的 一 一 把 后 者 提升 为 前 者 是 不 可 靠 的 。 在 
instrCounterClass 的 定义 中 试图 创建 super 会 引起 麻烦 (也 就 是 参数 类 型 不 匹配 ) : 


instrCounterC1ass = 
Ar:InstrCounterRep，AsSe1f: Ref InstrCountenr . 
1et Super = SetCounterC1ass 『 Self in 
{fget = SUper.get， 
set = Ai:Nat。(r.a:=SsuccCICr.a)); Super.set 1)， 
inc = Super .inc， 
acCcesses = 入 _:Unit， ICr.a)j}; 


* Error; parameter type mismatch 


这 个 难题 的 解决 办 法 是 用 Souree 来 代替 sel 类 型 中 的 Ref 构造 器 一 -也 就 是 仅 传 递 给 类 
从 方法 指针 处 读 取 的 功能 ,而 不 是 写 人 的 功能 ( 它 怎 么 也 不 会 需要 这 个 功能 )。 如 在 1$.5 节 所 
山 ,Source 允许 协 变 的 学 类 型 (也 就 是 说 ,有 Ref instrCounter <: Ref SetCounter) , 因此 instrCou- 
nterClass 里 创建 的 super 将 变 为 良 类 型 的 : 


SetCounterC]1ass = 
Anr:CounterRep 、ASe1f: Source SetCounter . 
{get = AI:Unit，fLCr.x)， 
set = Ai:Nat. rr.XxX:=1i， 
inc = A_:Unit. (!self) .set (Succ ((!1Sse1f) ,get unit)7]}; 


* SetCounterC1ass : CounterRep 一 (Source SetCounter) 一 SetCounter 


TiTnstrCounterC1lass = 
Ar:InstrCounterRep .ASse1f: Source InstrCounter . 
]et Super = SetCounterC1as5s Fr se1f in 
{get = Super.get， 
set <* Ai:Nat. (nr.a:=Succ(ICr.a));i super.set 引 ， 
inc = 5uper.inc， 
acCcCesses = 人 _:Unit， ICr.a)}， 


”instrCounterC1ass : InstrCounterRep 一 
(Source InstrCounter) 一 InstrCounter 


要 创建 一 个 计数 器 对 象 , 像 前 面 一 样 , 首先 定义 一 个 计数 器 方法 的 瞳 拟 集合 ,以 作为 sef 
指针 的 初始 值 ; 


dunmmyInstrCounter = 
{get = 和 A_:Unit. 0， 
set = Ai:Nat. unit， 
inc = 入 _:Unit， unit， 
acCCesses = A_:Unit. 0j}; 


* dummyTnstrCounter : InstrCounter 
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然后 通过 为 实例 变量 和 方法 分 配 堆 空间 来 创建 一 个 对 象 ,调用 instrCounterClass 来 创建 实际 的 
方法 , 回 补 引用 单元 ; 


newInstrCounter = 
A_:Unit . 
1et mr = {x=ref 1，a=ref 0 in 
et CAux = ref dummyInstrCounter in 
(cAuXx := (instrCounterC1ass rr CAUxX]7 ，1CAux) ; 


* newInstrCounter : Unit 一 InstrCounter 


现在 构建 方法 表 的 代码 (在 instrCounterClass 和 counterClass 里 ) 是 创建 一 个 对 象 时 一 次 生 
成 ,而 不 是 方法 激活 时 生成 。 这 实现 了 想 要 做 的 事情 ,但 是 仍 不 如 想像 中 有 效 : 毕 竟 为 每 个 计 
数 器 对 象 创建 的 方法 表 是 完全 相同 的 ,因此 似乎 在 定义 类 时 应 该 能 一 次 计算 这 些 方法 表 , 以 后 
不 再 需要 。 第 27 章 将 会 介绍 如 何 利 用 第 26 章 介绍 的 团 量 词 实现 这 个 想法 。 


18.13 小 结 


本 章 的 开头 列 出 了 好 儿 条 面向 对 象 编程 风格 的 特征 。 现 在 让 我 们 来 回顾 一 下 这 些 特 征 ， 
简单 讨论 它们 是 怎样 与 本 章 的 例子 发 生 联系 的 。 


1. 多 态 :本 章 看 到 的 所 有 对 象 都 是 counter, 也 就 是 说 ,它们 都 属于 Counter 类 型 。 但 是 从 
18.2 节 的 单个 引用 单元 到 18.9 节 包 含 多 个 引用 的 记录 ,它们 的 表示 方式 差别 很 大 。 
每 个 对 象 都 是 一 个 函数 的 集合 ,提供 了 适合 于 自己 内 部 的 表示 方式 的 Counter 方 法 (以 
及 一 些 可 能 的 其 他 方法 ) 的 实现 。 

2. 封装 :实际 上 对 象 的 实例 变量 只 有 对 象 中 的 方法 才能 访问 ,而 方法 的 创建 也 是 通过 把 
实例 变量 记录 传递 给 构造 子 来 实现 的 。 很 明显 这 些 实例 变量 只 能 用 内 部 方法 来 命名 。 

3. 子 类 型 :在 这 个 集合 中 ,对 象 类 型 之 间 子 类 型 化 也 就 是 函数 记录 类 型 之 间 的 一 般 子 类 型 化 。 

4. 继承 :通过 从 已 存在 的 父 类 里 边 把 方法 的 实现 复制 到 一 个 新 定义 的 子 类 里 边 来 实现 继 
承 。 这 里 有 一 些 有 趣 的 技术 :严格 来 说 , 父 类 和 新 的 子 类 都 是 从 实例 变量 到 方法 集合 
的 函数 。 子 类 等 待 它 的 实例 变量 ,然后 用 给 定 的 实例 变量 来 初始 化 父 类 ,形成 一 个 操 
作 在 相同 变量 上 父 类 的 方法 集合 。 

5. 开放 递归 :这 里 构建 了 由 现实 世界 面向 对 象 语言 中 的 self( 或 this) 提 供 的 开放 递归 模 
型 ,通过 在 实例 变量 上 和 self 参数 上 抽象 出 类 ,self 可 以 用 于 方法 中 来 指向 同一 个 对 象 
中 的 其 他 方法 。 这 个 参数 在 对 象 生成 时 通过 使 用 fx 去 “联结 节点 "而 得 到 甫 决 。 


18.13.1 练习 [xxx] :对象 有 另 一 个 有 用 的 特征 称 为 对 象 相等 ， 即 sameObject 操作 ,如 果 
它 的 两 个 参数 赋 给 完全 相同 的 对 象 ,结果 为 rue, 如 果 被 赋值 的 对 象 是 不 同时 间 内 生成 的 
(对 new 函数 不 同 的 调用 ) ,返回 值 为 flse。 怎 样 把 本 章 的 对 象 模型 进行 扩展 来 支持 对 象 


18.14 注释 


对 象 编码 是 编程 语言 研究 领域 里 的 主要 示例 和 问题 来 源 。 早 期 的 编码 由 Reynolds(1978) 
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给 出 ;Cardelli(1984) 的 一 篇 文章 激 起 了 这 个 领域 的 广泛 兴趣 。 从 不 动 点 角度 对 self 的 理解 ， 
Cook(1989) , Cook 和 Palsberg(1989) ,Kamin(1988) 以 及 Reddy(1988) 都 有 所 阐述 ;Kamin 和 Reddy 
(1994) 以 及 Brmuce (1991) 发 气 了 这些 模型 之 间 的 关系 。 

这 个 领域 里 的 大 量 早期 的 重要 论文 都 收集 在 Gunter 和 Mitchell(1994) 里 。 后 面 的 研究 有 
Bruce, Cardelli 和 Pierce(1999) 以 及 Abadi 和 Cardelli(1996) 。Bruce(2002) 给 出 了 这 个 领域 到 目前 
为 止 的 先进 展望 。 其 他 的 基础 方法 和 它们 的 类 型 系统 可 以 在 Palsberg, Schwartzbach(1994) 和 
Castagna(1997) 中 找到 。 

还 有 另外 一 些 历史 记录 可 以 在 第 32 章 的 结尾 处 找到 。 


继承 得 到 过 高 评价 。 
Crady Booch 








第 19 章 实例 分 析 : 轻 量 级 的 Java- 


在 18 章 中 介绍 了 含 子 类 型 .记录 类 型 和 引用 类 型 的 和 演算 如 何 对 面向 对 象 程序 的 关键 特 
征 进 行 形式 化 。 那 一 章 的 目的 是 通过 对 更 基本 特征 进行 编码 来 加 深 对 这 些 特 征 的 理解 。 本 章 
将 采取 不 同 的 方法 ,说 明 怎 样 用 前 面 几 章 的 思想 来 对 一 个 基于 Java 的 核心 面向 对 象 语 言 进 行 
直接 处 理 。 先 来 典 悉 一 下 Java 语言 。 


19.1 引言 


形式 化 建 模 能 极 大 地 推进 复杂 世界 人 造物 品 , 如 程序 语言 的 设计 。 形 式 化 模型 可 以 精确 
地 描述 设计 的 某 些 方面 ,说 明和 证 明 它 的 性 质 ,并 直接 关注 那些 易 被 忽视 的 焦点 。 然 而 ,在 形 
式 化 建 模 过 程 中 ,完备 性 和 紧 致 性 之 间 有 一 种 矛盾 :模型 涉及 的 方面 越 多 ,就 变 得 越 难 处 理 。 
通常 选择 一 个 不 太 完 备 但 更 紧 致 的 模型 ,使 消耗 最 小 但 观察 最 深刻 。 这 种 策略 在 最 近 掀起 了 
一 阵 关于 Java 形式 化 特征 的 论文 热潮 ,Java 忽略 了 一 些 高 级 特征 ,如 并 发 和 自 反 , 将 注意 力 放 
在 整个 语言 的 片断 上 ,将 易 理 解 的 理论 应 用 其 中 。 

轻 量 级 的 Java( 简称 为 可) ,由 Igarashi, Pierece 和 Waqler(1999) 提出 ,争取 java 类 型 系统 建 
模 的 内 核 演 算 最 小 化 。 析 的 设计 对 紧 致 性 的 支持 完全 超过 了 完备 性 ,仅仅 有 5 种 项 的 形式 : 
对 象 创 建 方法 调用 .字段 访问 .强制 转型 和 变量 。 它 的 语法 、 类 型 规则 和 操作 语义 非常 适合 写 
在 一 页 纸 上 ( 信 纸 长 度 ) , 且 设计 目标 是 尽 可 能 地 忽略 一 些 特征 (即使 是 分 配 ) ,只 保持 Java 类 
型 的 核心 特征 。H 与 Java 的 纯 困 数 核心 直接 对 应 ,在 一 定 意 义 上 每 一 个 杂 程序 都 是 可 执行 
的 Java 程序 。 

H 林 仅仅 比 入 演算 或 者 Abadi 和 Cardelli 的 对 象 演算 (1996) 复 杂 一 点 ,但 比 其 他 基于 类 的 语 
言 ,如 Java 的 形式 模型 要 简单 很 多 , 这些 形 式 模型 包括 由 Drossopoulou, Eisenbach 和 Khurshid 
(1999) ,Syme(1997) ,Nipkow 和 Oheimb(1998) , Flatt, Krishnamurthi 和 Felleisen(1998a, 1998b) 等 提 
出 的 。 正 因为 简单 , 呆 能 集中 关注 一 些 关 键 问 题 。 比 如 ,在 一 小 步 操作 语义 中 捕捉 Java 的 强 
制 转型 构造 比 预想 的 要 复杂 。 

HJ 的 主要 应 用 是 对 Java 的 扩展 建 模 。 由 于 本 本 身 就 很 紧 致 , 它 将 注意 力 集中 在 扩展 的 
基本 方面 。 而 且 , 因 为 纯 可 的 类 型 安全 性 证 明 非 常 简单 ,对 更 大 的 扩展 安全 性 严格 证 明 仍 是 
易 处 理 的 。 最 初 可 文章 通过 用 一 般 的 类 和 方法 a la GJ(Bracha, Odersky, Stoutamire 和 允 adler， 
1998) 扩 充 FJ 的 方式 说 明了 它 的 作用 。 一 篇 后 续 的 文章 (Igarashi, Pierce 和 Wadler,2001) 形 式 化 
了 最 初 的 类 型 ,这 是 GJ 中 的 特征 ,用 来 缓和 Java 程序 到 GJ 的 演变 。Igarashi 和 Pierce(2000) 用 
末 作为 Java 的 内 部 类 特征 研究 的 基础 。 末 也 被 用 来 作为 Java 的 类 型 保持 编译 (League, Tri- 
fonovy 和 Shao ,2001) 和 语义 基础 (Studer,2001) 来 研究 。 


@ 本 章 的 例子 全 是 关于 轻 量 级 Java 的 (参见 图 19.1 到 图 19.4)。 这 里 没有 相关 的 OCaml 实现 ;因为 可 被 严格 设计 为 
Java 的 子 集 , 所 有 例子 都 可 以 在 Java 上 实现 。 
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设计 末 的 目标 是 使 类 型 安全 性 的 证 明 尽 可 能 简明 , 它 仍 是 为 了 获得 整个 Java 核心 特征 的 
安全 性 实质 。 那 些 对 证 明 起 不 到 作用 只 会 增加 其 长 度 的 特征 都 可 以 被 省 略 。 如 其 他 此 类 研究 
一 样 , 打 省 略 了 并 发 性 和 自 反 性 这 些 高 级 特征 。 其 他 在 可 中 所 不 含 的 Java 特征 包括 分 配 、 接 口 、 
过 载 、 传 消息 给 super,null 指针 、 基 本 类 型 (int,bool 等 ) .抽象 方法 声明 内 部 类 、 子 类 字段 对 父 类 
字段 的 覆盖 .访问 控制 (public,private 等 ) 和 异常 ,等 等 。 丽 要 建 模 的 Java 特征 ,包括 互 递 归 类 的 
定义 .对象 创 建 . 字 段 访问 .方法 调用 、 方 法 重 载 .通过 this 的 方法 递归 、 子 类 型 化 和 强制 转型 。 

在 机 中 一 个 关键 的 简化 是 省 略 了 分 配 。 假 定 一 个 对 象 的 字段 由 它 的 构造 子 初 始 化 了 ,并 
且 以 后 一 直 不 会 变化 。 但 这 限制 了 可 成 为 Java“ 本 数 ”的 片断 ,使 其 中 很 多 公用 的 Java 术语 ， 
比如 枚 举 类 型 ,不 能 被 表示 出 来 。 但 是 ,这 个 片断 在 计算 上 是 完备 的 (很 容易 在 编码 中 加 人 入 
演算 ) ,并 且 足 够 大 来 包括 有 用 的 程序 ,比如 很 多 在 Felleisen 和 Friedman 的 Java 文章 (1998) 中 
的 许多 程序 用 的 就 是 纯 函 数 风 格 。 


19.2 概要 


在 可 中 ,程序 包括 类 定义 集合 及 一 个 待 求 值 的 项 ,对 应 于 整个 Java 中 的 main 方法 。 下 面 
是 一 些 可 中 典型 的 类 定义 : 
cl1ass A extends Object { AC() { superCO; 了】 


c1ass B extends Object { BC) {f super(O; } 1] 


cC]1aSsS pair extends 0bject 1{ 
Object fst; 
Object snd; 
// Constructor : 
PairCObject fst，0Object snd)] 并 
super(7; this.fst=fst; this.snd=snd，} 
// Method definition: 
Pair setfst(Object newfst)] 二 
return new Pairknewfst，this-snd)，j 于 


有 了 语法 规则 ,要 经 常 将 超 类 (甚至 它 是 Object) 包 含 进 来 ,并 要 写 出 构造 子 Q (甚至 对 不 
重要 的 类 A 和 类 B) ,而 且 要 在 一 个 字段 访问 或 方法 调用 中 给 接收 方 命名 (如 在 this.snd) ,甚至 
当 接 收 方 是 this 时 。 构 造 子 总 是 采用 相同 风格 :每 个 字段 有 一 个 参数 , 取 与 字段 同样 的 名 字 ; 
super 构造 子 用 来 初始 化 超 类 的 字段 ; 剩 下 的 字段 被 相应 的 参数 初始 化 。 在 这 个 例子 中 ,三 
类 的 超 类 都 不 含 字段 的 Object, 因 此 ,super 调用 不 含 参数 。 在 一 个 可 程序 中 构造 子 惟一 出 现 
在 super 或 者 = "出 现 的 地 方 。 如 不 提供 副 操 作 ， 一 个 方法 体 总 是 包含 了 retum, 并 紧 跟 其 后 

一 个 项 ,如 setfst( ) 中 所 示 。 

在 可 中 项 有 5 种 形式 ,比如 :new AO)， new B() 和 new Pair(… 都 是 对 象 构造 子 , 还 有 -… 
,setfst(…) 是 方法 调用 。 在 setfst 体 中 ,项 由 is.snd 是 字段 访问 ,newfst 和 this 是 变量 @。 在 上 述 
定义 的 上 下 文中 ,项 : 


@ 在 java 中 ,一 般 将 constmotor 译 为 构造 方法 ,但 为 了 与 全 书 统一 我 们 在 此 仍 译 为 “构造 子 "一 - 译 者 注 。 
四 这 里 再 对 this 的 处 理 方式 与 java 稍微 有 些 不 同 ,是 把 它 当 成 变量 ,而 不 是 关键 字 。 
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new PairCnhew AC] ，nhew B(7] .setfstCnew BC)D) 


求 值 为 new Pair(new B() ,new BC))。 
项 还 有 一 种 形式 是 强制 转型 (参见 15.5 节 )。 项 ; 


(CCPair)new PairCnew Pair(new A()，new B())， 
new A(C)) .fst) .snd 


求 值 为 new B()。 子 项 (Pair)t 是 一 个 强制 转型 ,其 中 + 是 new Pair(…) .fst。 强 制 转型 是 需要 
的 ,因为 + 对 fst 字段 的 一 个 访问 ,并 且 声 明 包含 一 个 Object, 然 而 接 下 来 对 snd 字段 的 访问 , 仅 
仅 对 Pair 有 效 。 在 运行 时 , 求 值 规则 要 检查 存储 在 fst 字段 中 的 Object 是 否 是 一 个 Pair( 这 时 检 
查 成 功 )。 

去 掉 副 作用 会 产生 一 个 好 的 作用 :在 本 的 语法 中 , 求 值 容易 完全 形式 化 ,不 会 产生 对 堆 建 
模 的 附加 机 制 (参见 第 13 章 )。 存 在 三 个 基本 计算 规则 :(1) 对 字段 访问 ;(2) 方 法 调用 ; (3) 用 
来 强制 转换 。 回 想 在 入 演算 中 ,应 用 的 求 值 规则 假设 函数 是 第 一 次 被 简化 为 入 抽象 。 同 样 ,在 
末 中 , 求 值 规 则 假设 上 面 的 对 象 是 第 一 次 被 简化 为 一 个 new 项 。 在 入 演算 中 有 和 句 话 “ 一 切 都 是 
函数 ", 而 这 里 则 变 为 一切 都 是 对 象 "。 

如 下 是 正在 执行 的 字段 访问 (E-ProjNew) 的 规则 : 

new PairCnewA(CJ ,newB(C)J.snd 一 newB() 
由 于 对 象 构造 子 的 语法 经 过 风格 化 ,构造 子 每 一 字段 都 有 一 个 参数 ,它们 是 按照 字段 被 声明 的 
顺序 。 这 里 的 字段 是 ft 和 snd, 对 字段 snd 的 访问 选择 了 第 二 个 参数 。 

如 下 是 正在 执行 的 方法 调用 规则 (E-InvkNew) : 


new PairCnewA() ,newB(C)) .setfst(CnewB()) 


newfst 一 newB()， 
this 一 new PairCnewA(C) ,newB(0J7) 
hew PairCnewfst,， this.snd) 


ie.， new PairCnewB() ，new PairCnewA(C) ,newB(0))7J.snd) 


被 调用 的 对 象 因为 是 new Pair( new A() ,new B()) ,所 以 先 在 类 Pair 中 查找 setfst 方法 ,发 现 它 有 
形 参 newfst 和 方法 体 new Pair(newfst,this.snd) 。 实 现 过 程 是 将 实 参 取代 形 参 ,并 用 目标 对 象 取 
代 this 变量 。 这 有 些 类 似 于 入 演算 的 8 归 约 规则 (E-AppAbs)。 关 键 的 差异 是 要 由 被 调用 方 的 
类 来 决定 到 何 处 寻找 方法 体 (支持 方法 重 载 ) 及 被 调用 方 对 this 的 代 换 (支持 “通过 self 的 开放 
递归 ")。 在 可 中 ,与 和 演算 一 样 , 如 果 形 参 在 方法 体 中 不 止 一 次 地 出 现 ,将 会 导致 参数 值 复 
制 , 但 因为 不 会 产生 副作用 ,所 以 看 不 出 与 标准 Java 语义 的 差别 。 
这 是 正在 执行 的 强制 转换 规则 (E-CastNew): 
(Pair)new PairCnewAC ,new8B(O)) 一 newpairCnewAC ,newB(7) 

一 旦 强制 转换 的 目标 归 约 成 了 一 个 对 象 , 就 容易 看 出 其 构造 子 的 类 是 转型 目标 的 子 类 。 如 果 
是 这 样 (这 里 所 说 的 情况 ) , 归 约 后 会 去 掉 强 制 转换 符 。 如 果 不 是 ,如 项 (4A) new B() ,没有 规则 
可 以 应 用 ,计算 无 法 进行 下 去 ,会 显示 一 个 运行 错误 。 


@ ”熟悉 Abadi 和 Cardelli 的 对 象 演算 (1996) 的 读者 将 发 现 这 与 他 们 的 6 归 约 规则 十 分 相似 。 
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有 三 种 情况 使 计算 无 法 进行 :(H 试 图 访问 类 中 没有 声明 的 字段 ;(2) 调 用 类 中 没有 声明 的 
方法 (“ 消 息 无 法 理解 "); (3) 试 图 将 对 象 执 行 时 的 类 强制 转换 为 除 其 超 类 外 的 别 的 类 。 我 们 将 
会 证 明 前 两 种 情况 在 和 良 类 型 程序 中 绝 不 会 发 生 ,第 三 种 情况 在 不 含 向 下 转型 | 及 无 " 愚 芥 转型 ” 
(一 个 技术 性 问题 , 下面 会 进一步 解释 妖 的 良 类 型 程序 中 绝 不 会 发 生 。 

这 里 采用 标准 的 值 调用 求 值 策 略 。 以 下 是 对 上 面 第 二 个 例子 的 项 进行 求 值 的 过 程 ,每 步 
都 用 下 划 线 标注 了 将 被 归 约 的 下 一 个 子 项 ， 

(CCPair) Cnew pairCnew PairCnewA(CJ newB(CD)，newAC7 
,fst) .snd 
((Pair)new PairCnewAGC ,newBGD)] .Snd 


一 new PairCnewA(C) ，newBC)) .snd 
一 ”newBf() 


19.3 规范 化 和 结构 化 的 类 型 系统 


在 继续 瑟 的 形式 化 定义 之 前 ,应 该 停 下 来 检查 一 下 厅 ( 和 Java) 与 类 型 化 入 演算 (本 书 的 
重点 ) 之 间 基 本 的 风格 差异 。 这 个 差异 涉及 到 类 型 名 字 的 状态 。 

在 前 面 的 章节 中 ,我 们 经 常 给 长 的 或 者 复杂 的 复合 类 型 定义 短 的 名 字 来 提高 例子 的 可 读 
性 ,如 ; 

NatpPair = {fst:Nat，snd:Natl; 
这 种 定义 是 肤浅 的 :NatPair 的 名 字 是 1fst; Nat,snd; Nat} 的 一 个 简单 的 缩写 ,这 两 个 在 上 下 文中 
是 可 以 互 换 的 。 我 们 对 演算 的 形式 表示 已 经 不 考虑 缩写 了 。 

相 比 之 下 ,和 许多 广泛 应 用 的 程序 语言 一 样 ,Java 的 类 型 定义 起 着 十 分 重要 的 作用 。Java 
中 每 个 复合 类 型 都 有 一 个 名 字 , 并 且 ,在 定义 一 个 局 部 变量 ,字段 或 方法 参数 的 类 型 时 ,都 要 给 
一 个 名 字 。 "裸露 的 "类 型 名 像 jfst:Nat,snd:Nat| 这 时 是 不 能 出 现 的 。 

而 且 这 些 类 型 名 在 Java 子 类 型 关系 中 也 起 着 至 关 重 要 的 作用 。 无 论 何 时 引入 一 个 新 名 
字 ( 在 类 或 者 接口 定义 ) ,程序 员 都 要 明确 地 声明 新 名 字 是 从 哪 一 个 类 或 接口 扩展 出 来 的 (或 实 
现 的 是 哪些 新 类 和 已 经 存在 的 接口 )。 编 译 器 检查 这 些 声 明 ,以 确保 新 类 或 接口 提供 的 功能 确 
实 是 对 每 个 父 类 和 父 接口 提供 功能 的 扩展 一 一 这 种 检查 对 应 于 类 型 化 和 演算 中 的 记录 子 类 型 
化 。 子 类 型 关系 是 在 类 型 名 字 之 间 ,作为 声明 的 直接 子 类 型 关系 的 自 反 和 传递 闭 包 而 定义 的 。 
如 果 一 个 名 字 没 有 被 说 明 为 另 一 个 子 类 型 , 那 它 就 不 是 名 字 。 

像 Java 这 样 (名 字 起 重要 作用 上 且 子 类 型 也 明确 地 声明 ) 的 类 型 系统 称 为 规范 化 的 。 而 本 
书 中 提 到 的 大 部 分 类 型 系统 (名 字 无 关 紧 要 , 子 类 型 在 类 型 结构 上 被 直接 定义 ) 称 为 结构 化 的 。 

建立 在 结构 化 表示 上 的 规范 化 类 型 系统 既 有 优点 又 有 缺点 。 最 重要 的 优点 是 规范 化 系统 
的 类 型 名 称 不 仅 在 类 型 检查 中 起 作用 ,而 且 在 运行 时 同样 起 作用 。 大 部 分 规范 化 语言 给 每 个 
运行 的 对 象 加 上 一 个 售 它 的 类 型 名 称 的 字 头 标记 ,作为 一 个 指针 指向 运行 时 的 数据 结构 (该 数 
据 结构 描述 了 类 型 并 含有 一 个 指向 直接 父 类 的 指针 )。 这 些 类 型 标记 作用 很 广 ,包括 运行 类 型 
测试 (比如 Java 的 instance0f 测试 和 向 下 转型 课 作 ) 打印 将 数据 结构 整理 为 二 进 制 形式 ,以 便 
在 文件 中 存储 或 通过 网 络 传输 ,以 及 提供 一 个 允许 程序 动态 地 检查 对 象 本 身 的 字段 和 方法 的 
自 反 手段 。 运 行 时 类 型 标记 也 能 被 结构 化 系统 支持 (参见 Glew,1999; League,Shao 和 Trifonov， 
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1999; League, Trifonov 和 Shao,2001; 以 及 其 中 给 出 的 引文 ) ,但 是 它们 形成 了 一 个 附加 的 、 独 立 
的 机 制 ;在 规范 化 系统 中 ,运行 时 标记 就 被 当成 了 编译 时 类 型 。 

规范 系统 中 一 个 不 算 基 本 但 比较 邻 人 满意 的 性 质 是 它们 提供 一 个 自然 并 直观 的 概念 : 递 
归 类 型 一 一 类 型 的 定义 中 提 到 了 它 自 己 ( 第 20 章 将 详细 讨论 递归 类 型 )。 这 种 类 型 在 重要 的 
程序 设计 中 是 普 适 的 ,要 求 用 来 描述 一 些 通 用 的 结构 ,如 列表 和 树 , 且 规范 类 型 系统 直接 支持 
这 些 结构 :指向 自身 声明 体 中 List 与 指向 别 的 类 型 一 样 容易 。 的 确 ,即使 互 递 归 类 型 也 是 直接 
的 。 我 们 认为 类 型 名 称 是 一 开始 就 给 定 的 ,所 以 ,如 果 类 型 A& 的 定义 中 包含 B 的 名 称 ,而 B 的 
定义 又 指向 了 A, 那 么 究竟 “哪个 先 定 义 " 都 没有 关系 。 当 然 ,结构 化 类 型 系统 中 也 能 有 递归 类 
型 。 确 实 , 带 结 构 类 型 的 高 级 语言 ,如 ML 语言 ,通常 是 将 递归 类 型 与 其 他 的 特征 “捆绑 ”在 一 
起 的 ,所 以 对 程序 员 来 说 ,使 用 时 的 感觉 和 规范 系统 中 一 样 自然 和 简单 。 但 某 些 更 基本 的 演 
算 ,如 类 型 安全 性 证 明 ,要 求 严密 地 处 理 递归 类 型 的 机 制 会 变 得 更 复杂 些 , 尤 其 是 允许 互 递 归 
的 情况 。 在 规范 系统 中 可 以 自由 使 用 递归 类 型 确实 带 来 了 很 大 好 处 。 

规范 系统 另外 一 个 优点 是 检查 一 个 类 型 是 否 是 另 一 个 类 型 的 子 类 型 几乎 变 得 没有 必要 
了 。 当 然 ,编译 器 仍 要 验证 声明 的 子 类 型 关系 是 否 安全 ,这 本 质 上 复制 了 结构 化 子 类 型 关系 ， 
但 该 项 工作 只 能 在 类 型 定义 时 一 次 完成 ,而 不 是 在 每 次 子 类 型 检查 时 进行 的 。 这 使 得 规范 化 
类 型 系统 的 类 型 检查 器 多 少 容易 达到 一 个 好 的 性 能 。 但 在 更 复杂 的 编译 器 中 ,规范 化 和 结构 化 
风格 的 差异 对 性 能 的 影响 有 多 大 还 不 太 清 楚 ,因为 结构 化 系统 中 设计 良好 的 类 型 检查 器 包括 了 
表示 上 的 一 些 技 巧 ,这 样 也 能 将 大 部 分 的 子 类 型 检查 简化 为 一 个 单独 的 比较 (参见 17.2 节 )。 

还 有 一 个 经 常 被 子 类 型 声明 引用 的 优点 就 是 它 能 阻止 “ 假 包含 ”, 发 生 假 包含 时 类 型 检查 
器 接受 了 一 段 本 该 使 用 某 个 类 型 但 实际 却 使 用 了 另 一 个 完全 不 同 , 但 结构 相 容 的 类 型 程序 。 
这 一 点 比 上 面 所 述 的 更 有 争议 ,因为 存在 其 他 (更 好 论证 的 ) 方 法 来 阻止 假 包含 ,例如 ,使 用 单 
结构 数据 类 型 (参见 11.10 节 ) 或 抽象 数据 类 型 (参见 第 24 章 )。 

有 了 这 些 优 点 (尤其 是 类 型 标记 的 有 效 性 及 递归 类 型 带 来 的 简单 处 理 ) ,规范 类 型 系统 成 
为 主流 程序 设计 语言 的 标准 并 不 奇怪 。 另 一 方面 ,有 关 程 序 设 计 语 言 的 研究 著作 几乎 全 都 涉 
及 了 结构 化 类 型 系统 。 

造成 这 些 的 一 个 直接 原因 是 至 少 没 有 了 递归 类 型 ,结构 化 系统 会 显得 更 有 条 理 和 更 加 高 
雅 。 在 结构 化 设置 中 ,类 型 表达 是 闭 的 实体 : 它 含 有 所 有 可 以 理解 它 的 信息 。 而 规范 化 系统 ， 
总 是 要 根据 类 型 名 称 的 全 局 性 和 相关 定义 来 理解 类 型 。 这 使 得 定义 和 证 明 都 很 宛 长 。 

一 个 更 有 意思 的 原因 是 这 些 研究 专著 倾向 于 关注 更 加 高 级 的 特征 (尤其 是 关于 类 型 抽象 
的 机 制 ,如 参数 多 态 性 ,抽象 数据 类 型 ,用 户 定 义 的 类 型 算 子 和 算 符 等 ) ,以 及 关注 包含 这 些 特 
征 的 ML 和 Haskell 等 语言 。 可 惜 的 是 ,这 些 特性 不 太 适 合 规范 化 系统 。 例 如 ,类 型 List(T) , 像 
是 不 可 约 简 的 复合 形式 一 一 在 程序 中 构造 子 List 在 某 处 只 有 一 种 定义 ,而 且 还 要 根据 List(T) 
功能 判断 它 的 定义 形式 ,所 以 不 能 把 List(T) 简 单 当 成 一 个 原子 名 称 。 一 些 规范 化 语言 已 扩展 
为 带 这 些 “一 般 ” 的 特征 (参见 Myers, Bank 和 Liskov, 1997; Agesen, Freund 和 Mitehell , 1997; 
Bracha, Odersky, Stoutamire 和 Wadqler, 1998; Cartwright 和 Steele, 1998; Stroustrup ,1997) ,但 这 种 扩展 
产生 的 不 再 是 纯 规 范 化 系统 ,而 是 两 种 方法 的 复杂 混合 。 所 以 带 高 级 类 型 化 特征 的 语言 的 设 
计 者 们 更 偏爱 结构 化 方法 。 

规范 化 和 结构 化 系统 之 间 关 系 还 有 待 继 续 深 入 研究 。 
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19.4 定义 
从 现在 开始 提出 可 形 式 化 定义 。 
语法 


图 19.1 给 出 了 可 的 语法 。 元 变量 A,B,C,D 和 下 为 类 名 ;f 和 g 为 字段 名 ; m 为 方法 名 jx 
表示 参数 ;s 和 上 + 表示 项 ;u 和 v 表示 值 ;CL 表示 类 声明 ;K 表示 构造 子 声 明 ;M 表示 方法 声明 。 
假定 变量 集中 含 特殊 的 变量 this, 但 this 不 能 作为 传递 给 方法 的 变量 名 。 但 可 以 认为 this 隐 含 
在 所 有 的 方法 声明 中 。 进 行 方法 调用 的 求 值 规则 (参见 图 19.3 的 E-InvkNew 规则 ) 除 了 用 参数 
值 代 换 参数 外 ,还 会 用 一 个 合适 的 对 象 代 换 this。 





语法 子 类 型 化 C<:D 
CL := ”类 的 声明 ， CC 
cl1assC extends C {tCf;iKMi 
C<:D D <:E 
K := 构造 子 声明 ， C<IE 
CC 和 {super( 有 ;this.ff;} CT(C) = class Cextendsb{f...} 
人 ED 
M ::= 方法 声明 ， 
CmCEX freturnt:} 
tt := 项 ， 
X 变量 
引咎 字段 访问 
tm(E) 方法 调用 
newC(t) 创建 对 象 
(GC)t 强制 转型 
V_ := 值 : 
new(C(y) 创建 对 象 


二 -一 -一 -一 一 -一 一 -一 ~ _ _  _ _ _ _ 
图 19.1 轻 量 级 Java( 语 法 和 子 类 型 化 ) 


用 了 表示 了 ,水 的 缩写 (C,z,E 也 是 类 似 含义 等 ) ,用 M 表示 M …M.)( 没 有 逗号 ) 。 用 同 
样 方法 简写 系列 序 对 的 操作 ,如 用 C 琴 示 CH…C, ,其 中 mm 是 C 和 ff 的 长 度 ,是 “this 池 = 他” 
表示 “this.f = 有 jithis. 和 = 了 环 入。 字段 声明 、 参 数 名 、 方 法 声明 等 系列 中 都 假定 不 包含 重复 
的 名 字 。 

声明 olass C extends D1C K MI 表示 名 字 为 C 的 类 有 超 类 D。 新 类 含有 类 型 为 5 的 字段 记 
一 个 构造 子 K 和 一 组 方法 M。 由 C 声明 的 实例 变量 加 到 了 由 D 声明 的 变量 和 它 的 超 类 中 ， 
所 以 应 该 将 这 些 名 字 区 分 开 @。 另 一 方面 ,G 的 方法 将 重 载 D 中 同名 的 方法 或 给 C 添加 新 


@ 在 Java 中 , 超 类 的 实例 变量 将 会 被 重新 声明 一 次 ,是 新 声明 的 变量 会 观 善 当前 类 及 其 子 类 的 原始 变量 。BJ 忽略 了 
该 特征 。 
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构造 子 声明 C(D g,C 人 super(g) ;this.= 避 | 表明 了 如 何 初始 化 C 的 实例 字段 。 它 的 形式 
完全 由 C 的 实例 变量 声明 和 它 的 超 类 决定 : 它 尽 可 能 取得 和 实例 参数 一 样 多 的 参数 ,并 且 冰 
数 体内 必须 包含 调用 超 类 构造 子 来 初始 化 的 字段 , 且 将 参数 指派 给 C 声 明 中 同名 的 新 字段 
(这 些 限 制 可 由 类 的 类 型 化 规则 执行 ,参见 图 19.4)。 在 整个 Java 中 , 子 类 构造 子 必 须 包 含 一 
个 对 超 类 构造 子 的 调用 ( 当 超 类 构造 子 带 参 数 时 ); 所 以 存在 这 里 构造 子 调用 super 来 初始 化 超 
类 的 实例 变量 。 如 果 不 考 虑 将 末 作为 Java 的 字面 子 集 , 可 以 删除 对 super 的 调用 而 直接 用 每 
个 构造 子 来 初始 化 所 有 的 实例 变量 。 

方法 声明 D m(Cx) fretum t | 介绍 了 方法 的 结果 类 型 为 D 且 含 类 型 为 C 的 参数 x。 方 
法 体 含 一 条 语句 retum t。 变 量 由 t+ 界定 。 同 样 特殊 变量 this 也 认为 由 + 界定 。 

类 表 5C7 是 一 个 从 类 名 C 到 类 定义 CL 的 映射 。 一 个 程序 就 是 类 表 和 项 的 序 对 (CT,D。 
为 了 减少 符号 量 ,我 们 总 是 假定 一 个 固定 的 类 表 C7。 

每 个 类 都 有 一 个 超 类 ,用 extends 声明 。 于 是 引发 了 一 个 问题 :Object 类 的 超 类 是 什么 ”有 
多 种 方法 来 处 理 这 个 问题 ;最 简单 的 (这 里 采用 的 ) 是 将 Opjeet 作为 一 个 其 定义 不 出 现在 类 表 
中 的 特殊 类 和 名。 对 在 类 表 中 查找 字段 的 附加 功能 ,如 果 查 找 的 是 Object, 则 返回 一 个 空 字段 ， 
用 ”。 "表示 ;对 象 被 假定 不 含 方法 。 

看 类 表 时 ,可 以 从 类 间 读 出 子 类 型 关系 。 用 C <:D 表示 C 是 D 的 一 个 子 类 型 ,也 就 是 说 ， 
子 类 型 C7 中 的 extends 子 句 给 出 的 直接 子 类 关系 的 自 反 和 传递 的 闭 包 关系 。 图 19.1 中 给 出 
了 正式 定义 。 

给 出 的 类 表 被 认为 是 满足 一 些 可 靠 条 件 :(1) C7(C) = class C… 对 每 个 Ce dom(C7); 
(2)Obiject edom(C7T);(3) 每 个 类 名 C( 除 了 Object) 出 现在 C7 中 任何 地 方 ,有 Ce dom(C7); 
(4) 在 C7 中 不 含 任何 循环 的 子 类 型 关系 也 就 是 “<: "关系 是 反对 称 的 。 

注意 被 类 表 定 义 的 类 型 允许 递归 , 即 类 A 的 定义 中 用 到 的 方法 类 型 和 实例 变量 可 能 包含 
了 和 名字 A。 类 间 互 递归 是 允许 的 。 


19.4;1 练习 [*]: 用 入 演算 中 的 S-Top 规则 与 子 类 型 进行 类 比 ,可 能 会 发 现 Object 是 所 有 
类 的 超 类 这 条 规则 ,但 这 里 为 什么 不 需要 它 呢 ? 


辅助 定义 


对 于 类 型 化 和 求 值 规则 ,还 需要 一 些 辅助 的 定义 (图 19.2 已 经 给 出 )。 类 C 的 字段 , 记 为 
field(C) ,对 类 C 和 它 的 所 有 超 类 中 所 有 的 字段 来 说 ,是 带 类 名 的 每 个 字段 的 类 序 对 Ci 系列 。 
在 类 C 中 方法 四 的 类 型 , 记 为 mype (mm,C) ,是 一 系列 参数 类 型 了 和 单个 结果 类 型 B 的 序 对 , 记 
为 B-~B。 同 样 地 ,在 类 C 中 方法 m 的 主体 , 记 为 mbody(m,C) ,是 一 系列 参数 蔗 和 项 + 序 对 , 记 
为 (X,t)。 谓 词 ouerride(m,D,C-Co) 用 来 判断 带 参 数 类 型 C 和 结果 类 型 Cy 的 方法 下 是 否 在 D 
的 子 类 中 定义 了 。 对 重 载 来 说 ,如 果 超 类 中 也 声明 了 相同 名 字 的 方法 ,那么 它 必 须 有 相同 的 
类 型 。 


求 值 
这 里 用 一 个 标准 的 值 调用 操作 语义 (参见 图 19.3)。 三 个 计算 规则 (字段 访问 \ 方 法 调用 





@@ 在 Java 中 ,类 Object 含有 几 个 方法 ,但 在 可 中 不 考虑 。 
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和 强制 转型 ) 在 19.2 节 中 已 经 解释 了 。 剩 下 的 规则 形式 化 了 值 调用 策略 。 从 正常 求 值 结束 产 
生 的 值 是 完全 被 求 值 的 对 象 所 创建 形 为 new C(Y) 的 项 。 





字段 查找 Pieids(C) = CE 二 | | 方法 主体 查找 mlbpody(m,C) = (X,t) 


helds(0bject) =。 CT(C) = class CextendsD {CEf;K 卫 


CT(C) = class CextendsD {E 下 ;KK 隔 Bm (EX) freturn ti E 辣 
fields(D) = 5 mapody(mC) = (又 七 ) 


Fields(C) = 可 区 下 CT(C) = class Cextends D {E 下;K 刚 
m is not defined in 


方法 类 型 查找 mtyPpe(m,C) =C 一 C ipody(mC) = abpodyr(m,D) 
CT(C) = class C extends D {E 下 ;KK 阶 _ 
Sm (EX {returntj}e 末 有 效 方法 重 载 |override(m,D,C 一 Co) 


mmD'pem C) = BBS mbypeltm,D) = 5--Do impliesE = Dand co = Do 
CT(C) = class Cextends D 1 和 ;KK 内 overridetm D, ECo) 
m is not defined in 后 


PDMPetm,C) = 100DPe(mD) 





图 19.2 ” 轻 量 级 Java( 辅 助 定义 ) 





求 值 一 。 七/ 七 一 七/ 
二 二 上 一 0 (E-INVK-RECV) 
fieldas(C) =Cf to mt) 一 to.m(CE) 
一 一 一 一 一 (E-PROJNEW) ， 
Cnew CCv)) ,一 Vi ti 一 
加 一 一 一 一 一 一 (E-INVK-ARG) 
Imbocd(m C) = (Xto) ENvNEw vo.mCv，ti, ft) 
CnewC(V)) ,m(D) 一 vo-mCv ti 世 
一 [ 芭 一 可 this 一 newCCv)]to tl 一 
一 一 -一 一 一 一 一 一 一 一 (上 -NEW-ARG) 
C<:D ECasTN new CC(VY，ti, f) 
( 厅 GewEcG5J 二 newEGD 人 CASTNEW) 一 new CCv, tf 下 
4 to 一 t0 
to 一 to 0 -0 = 
(E-FIELD) COto 一 (COt (E-CAST) 


to , 千 一 - t0 , 生 
-| 
图 19.3 轻 量 级 Java( 求 值 ) 


注意 强制 转型 运算 在 运行 时 会 检查 被 转型 对 象 的 实际 类 型 是 否 是 转型 中 声明 类 型 的 子 类 
型 。 如 果 是 ,将 不 进行 转型 运算 而 返回 对 象 本 身 。 这 正好 与 Java 的 语义 对 应 :一 个 运行 时 强 
制 转型 无 论 如 何 都 不 会 改变 一 个 对 象 一 一 它 或 者 成 功 或 者 失败 并 且 提 升 一 个 异常 。 在 可 中 ， 
转型 失败 后 不 会 提升 异常 ,而 是 被 阻塞 ,这 样 求 值 规则 根本 不 会 用 上 。 


类 型 化 


图 19.4 给 出 了 项 方法 声明 .类 声明 的 类 型 化 规则 。 上 下 文 工 是 一 个 从 变量 到 类 型 的 有 
限 映 射 , 记 为 地: C。 项 的 类 型 化 语句 有 形式 下 F t:C, 读 做 “在 上 下 文 工 中 ,项 + 有 类 型 C"。 类 
型 化 规则 是 语法 制导 的 中 ,每 个 项 有 一 个 规则 , 除 此 之 外 还 有 三 个 转型 规则 (下 面 会 谈 到 )。 构 





@ 在 选择 类 型 化 关系 的 算法 规则 上 仍 按照 Java 的 方式 。 有 趣 的 是 ,在 Java 中 该 选择 是 强制 的 ,参见 练习 19.4.6。 
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造 子 和 方法 调用 的 类 型 规则 检查 每 个 参数 的 类 型 是 否 为 声明 的 相关 形 参 类 型 的 子 类 型 。 我 
们 用 明显 的 方式 简写 类 型 语句 序列 ,如 TF-EC 表 示 PFuic,…PFtiCc, 用 6G<:D 表 示 
C <:D ，……，C。<:D,，。 一 











: [THto:D C<:D 《= 了 上 D 
项 类 型 化 -TDCAsT 
XI:C ET [FF (C)to :(C 
(T-VAR) 
THFXIC ThFto:D 《CCKD D 大 CC 
FTP to， C jdskco) = 志和 stapid warning 
上 姜 0 0 Fields(Co) (TFIELD) Tree FT ET {(T-SCAST) 
TH to.fi :Ci 0 
TH to : Co 方法 类 型 化 
IDPe(m, Co) = D 一 人 Xi:Cthis:Chto:Eo  Eo<:Co 
IFt:C (<:D CNvva CT(C) = class CextendsD{...} 
FF to.mCt] :(C Override(m, DC 一 Co) 
jieias(C) = 5 下 Com(CCExX) freturn to;} OK inC 
下 人 < 十 有 (CT.NEwW) | 类 类 型 化 CCK 
FF_ new : K =- C(55, 忆 朋 
LTrtoID  D<:C {super(5); this. 下 = 和 二)} 
FFTGt CE (TUCAST) jields(p) =55 所 OK inC 


c1assCextendsD {Ef;KM OK 


一 一 一 一  - 1 


图 19.4 轻 量 级 Java( 类 型 ) 


一 个 在 可 中 较 小 的 技术 调用 是 引 和 了”“ 愚 塞 " 强 制 转 型 。 类 型 转型 有 三 个 规则 :向 上 转型 
中 被 转型 者 是 目标 的 子 类 ,向 下 转型 的 则 是 目标 的 超 类 , 而 思春 转型 与 目标 无 任何 关系 。Java 
编译 器 拒绝 含 思 大 转 型 的 不 良 类 型 项 ,但 是 如 果 要 将 类 型 安全 性 作为 一 小 步 语 义 的 类 型 保持 
定理 而 形式 化 ,我们 必须 允许 在 可 中 存在 思 玲 转型 。 因 为 一 个 明智 的 项 可 能 归 约 为 一 个 包含 
轴 春 转型 的 项 。 例 如 ,用 19.2 节 中 定义 的 类 A 和 类 B, 考 虑 下 面 的 例子 ， 

(AD) (Object)newB(0) 一 (A)newBO) 


在 愚 辟 转型 的 类 型 规则 (T-SCast) 中 包括 了 假设 supid waming( 轧 春 警 告 ) ,以 此 来 说 明 愚蠢 转 
型 的 特殊 性 质 ; 如 果 一 个 可 类 型 不 包含 这 个 规则 , 则 对 应 一 个 合法 的 Java 类 再。 

方法 声明 的 类 型 语句 形式 为 M OK in C, 读 做 “如 果 方 法 声明 M 发 生 在 类 C 中 , 则 是 良 形 
式 的 "。 它 在 方法 体 中 用 了 项 类 型 化 关系 ,其 中 自由 变量 是 有 声明 类 型 的 方法 参数 ,以 及 还 有 
类 型 为 C 的 特殊 变量 this。 

类 声明 的 类 型 语句 有 形式 CL OK, 读 做 “类 声明 CL 是 良 形式 的 ”, 它 检查 构造 子 应 用 super 
到 超 类 的 字段 中 并 初始 化 该 类 中 声明 的 字段 ,还 要 检查 类 中 每 个 方法 声明 都 正确 。 

项 的 类 型 可 能 依靠 于 它 调用 的 方法 类 型 ,而 方法 类 型 依靠 于 方法 体 中 项 的 类 型 ,因此 有 必 
要 检查 它 是 否 不 存在 不 良 定义 的 循环 。 确 实 不 存在 :因为 每 个 方法 的 类 型 都 是 明确 定义 了 的 ， 
所 以 这 种 循环 被 打破 。 加 载 类 表 并 在 类 表 中 的 类 被 检查 完 之 前 用 类 表 来 做 类 型 检查 是 有 可 能 
的 ,只 要 每 个 类 最 终 被 检查 。 


19.4.2 练习 [xx]: 在 可 中 ,许多 设计 理念 都 受到 希望 它 成 为 Java 的 子 集 想法 的 影响 ,这 
样 每 个 良 的 或 不 良 的 类 型 化 可 程序 都 可 作为 一 个 良 的 或 不 良 的 类 型 化 Java 程序 ,日 良 类 
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型 的 程序 行为 都 一 样 。 假 设 不 考虑 这 个 要 求 , 即 假设 所 要 的 是 类 Java 的 核心 演算 。 你 将 

怎样 改变 末 的 设计 来 使 它 更 简单 或 者 更 精制 ? 

19.4.3 练习 [推荐 ,*xx 产 ] :为 了 简化 表示 ,FJ 中 忽略 了 将 新 值 赋 给 对 象 的 某 字段 的 操 

作 , 但 可 以 把 它 加 进来 ,而 不 会 很 大 地 影响 演算 的 基本 特征 。 仿 照 第 13 章 对 引用 的 处 理 

方式 来 试 着 加 加 看 。 

19.4.4 练习 [xxxy 户 ] ;仿照 第 14 章 对 异常 的 处 理 方 式 , 用 类 似 Java 中 的 raise 和 tr 形式 

来 扩展 FJ。 

19.4.5 练习 [xx 户 ] :如 全 Java 一 样 ,FJ 以 算法 的 形式 来 表示 类 型 化 关系 。 没 有 包含 规 

则 ;但 几 个 其 他 规则 在 它们 的 前 提 中 包括 子 类 型 化 检查 。 如 果 删 除 大 部 分 或 全 部 符合 单 

个 包含 规则 的 这 些 前 提 , 系 统 能 以 一 个 更 易 的 表述 方式 重新 形式 化 吗 ? 

19.4.6 练习 [xxx]: 全 Java 提供 类 和 接口 ,具体 指出 方法 类 型 ,而 不 是 它们 的 实现 方式 。 

接口 是 有 用 的 ,因为 它们 允许 一 个 更 丰富 , 非 树 形 结构 的 子 类 型 关系 :每 个 类 有 一 个 单独 

的 超 类 (从 那里 继承 实例 变量 和 方法 体 ) ,但 是 又 可 能 实现 多 次 接口 。 

在 Java 中 ,接口 的 存在 实际 上 强制 使 用 类 型 化 关系 的 算法 表示 , 它 给 每 个 可 类 型 化 的 项 

惟一 的 (最 小 的 ) 类 型 。 原 因 是 在 条 件 表达 式 (在 Java 中 记 为 h?b:e) 和 接口 之 间 会 产生 

互相 影响 。 

1. 显示 怎样 以 Java 的 风格 扩展 带 有 接口 的 可。 

2. 请 说 明 存 在 接口 时 , 子 类 型 关系 在 合 类 型 下 没 必要 封闭 (回忆 16.3 节 中 合 类 型 在 条 件 
表达 式 的 最 小 类 型 化 特性 中 起 关键 性 作用 )。 

3. Java 中 条 件 表 达 式 的 类 型 化 规则 是 什么 ? 它 合理 吗 ? 


19.4.7 练习 [xxv]:FJ 包括 Java 的 this 关键 字 , 但 是 省 略 了 super。 说 明 一 下 怎样 把 它 加 上 。 


19.5 性 质 


这 里 将 证 明 一 个 标准 的 厅 类 型 保持 定理 。 

19.5.1 定理 [保持 ]: 如 果 T 下 Ht:CG 并 且 Frb ,那么 对 一 些 C'<:C 有 TFTiC'。 

证 明 : 作 为 练 避 [xx 六 ] 。 

我 们 也 能 说 明 标 准 进展 定理 的 一 个 变化 :如 果 一 个 程序 是 良 类 型 的 ,那么 它 发 生 阻塞 的 惟 


一 可 能 是 在 它 无 法 实现 一 个 向 下 转型 时 。 在 出 现 后 者 情况 下 ,可 用 求 值 上 下 文 机 制 来 找 出 失 
败 的 向 下 转型 。 





19.5.2 引 理 :假设 + 是 一 个 良 类 型 项 ， 


1. 如 果 t= newCo(i .1 那么 有 fields( Co ) = 和 Cf 和 ff 
2. 如 果 t= newCo( 人 D.m(5) ,那么 有 mbody(m,Co) = (ft ) 和 1 = 181。 


证 明 : 直 接 可 证 明 。 
19.5.3 定义 : 果 中 的 求 值 上 下 文 定义 如 下 : 





第 19 章 ”实例 分 析 : 轻 量 级 的 Java 177 


了 := 求 值 上 下 文 ， 
[] 括号 
下 .ff 字段 访问 
.mt) 方法 调用 (接收 方 ) 
v.mCVv,E,E) 方法 调用 (参数 ) 
new C(7T,E ,Et) 对 象 创建 (参数 ) 
(C)E 强制 转型 


每 个 求 值 上 下 文 是 带 括号 的 项 ( 写 为 [])。 我 们 用 玉 [ 品 表 示 用 上 代替 刁 中 的 括号 而 得 到 

的 一 般 项 。 

求 值 上 下 文 抓 住 了 “将 被 归 约 的 下 一 个 子 项 "这 个 概念 ,在 一 定 意 义 上 ,如 果 , 根 据 EPro- 
jNew, 了 -ImnvkNew 和 -CastNew 中 的 一 个 计算 规则 ,对 于 惟一 的 下 ,r 和 Pm, 且 rm, 可 将 1 和 忆 表 
示 为 t= 玖 [r] 和 立 = 开 [r]。 


19.5$.4 定理 [进展 ] :假设 t 是 一 个 封闭 的 . 良 类 型 的 范式 ,那么 或 者 (1)t 是 一 个 值 ,或 者 
(2) 对 一 些 求 值 上 下 文 瓦 ,可 将 t 表 示 为 t= 天 [(C)(new D(7))] ,其 中 D yx: C。 


证 明 : 直 接 对 类 型 推导 进行 归纳 。 


进展 特性 可 被 再 增强 一 点 :如 果 { 仅仅 包含 向 上 转型 ,那么 它 不 能 被 阻塞 (并 且 , 如 果 原 来 的 
程序 仅 包括 向 上 转型 ,那么 求 值 将 永远 不 会 产生 任何 非 向 上 的 强制 转型 )。 但 是 ,一 般 情况 下 ,我 
们 想 通过 强制 转型 来 降低 对 象 的 静态 类 型 ,所 以 运行 时 有 可 能 发 生 强制 转型 失败 。 在 全 Java 中 ， 
当然 ,转型 失败 不 会 停止 整个 程序 : 它 会 产生 一 个 异常 ,该 异常 能 被 附近 的 异常 处 理 器 捕获 。 


19.5.5 ”练习 [xxx* 大] :从 一 个 和 演算 的 类 型 检查 器 开始 ,为 轻 量 级 Java 建立 一 个 类 型 检 
查 器 和 解释 器 。 


了 9.5.6 ”练习 [xxxy 户 ] :原始 了 论文 (Jgarashi,Pierce 和 Wadier,1999) 也 形式 化 了 G 风 格 
中 的 多 态 类 型 。 将 这 些 特 征 扩展 到 练习 19.5.5 的 类 型 检查 器 和 解释 器 中 (在 做 本 练习 之 
前 ,可 能 需要 先 阅读 一 下 第 23 章 .第 24 章 .第 25 章 和 第 28 章 )。 


19.6 编码 及 初始 对 象 


我 们 已 经 看 到 语义 和 简单 面向 对 象 语言 类 型 化 的 两 个 对 比 的 方法 。 在 第 18 章 中 ,我 们 用 
简单 类 型 4 演算 的 特征 与 记录 引用 和 子 类 型 化 等 的 组 合 形式 来 编码 对 象 . 类 和 继承 。 在 本 
章 中 ,我们 给 出 一 个 简单 语言 (以 对 象 和 类 为 初始 机 制 ) 的 直接 描述 。 

每 个 方法 都 有 它 的 用 处 。 研 究 对 象 编码 应 放 在 基本 的 封装 和 重用 机 制 , 并 且 允 许 与 其 他 
相同 目的 的 机 制 做 比较 。 这 些 编码 还 有 助 于 理解 对 象 被 编译 器 翻译 为 更 低级 语言 的 方式 ,也 
有 助 于 理解 对 象 和 其 他 语言 特征 之 间 的 联系 。 另 一 方面 ,将 对 象 看 成 原 语 可 帮助 我 们 直接 讨 
论 它们 的 操作 语义 和 类 型 化 功能 ;这 种 表示 方式 是 高 级 语言 设计 和 文档 编制 的 较 好 工具 。 

最 后 ,我 们 还 应 该 持 以 下 观点 :一 个 带 有 自己 的 类 型 化 规则 和 操作 语义 的 高 级 语言 (包括 
原始 特性 ,如 对 象 和 类 等 ) ,拥有 一 个 从 该 语言 到 一 些 含 记录 和 函数 的 低级 语言 (甚至 是 一 个 只 
有 注册 器 、 指 针 和 指令 序列 的 更 低级 语言 ) 的 翻译 程序 ,以 及 一 个 证 明 该 翻译 是 高 级 语言 中 正 
确实 现 的 程序 证 明 程序 , 即 能 证 明 翻 译 保持 了 高 级 语言 的 求 值 和 类 型 化 特征 的 证 明 程序 。 关 
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于 这 点 有 多 种 观点 一 对 末 , 参 见 League,Trifonoy 和 Shao(2001) 等 人 的 著作 ,对 其 他 面向 对 象 
核心 演算 ,参见 Hoftmann 和 Pierce(199$b), Bruce (1994, 2002 ) , Abadi, CardelHli 和 Viswanathan 
(1996) 等 人 的 著作 。 


19.7 注释 


这 一 章 是 根据 Igarashi, Pierce 和 Wadier(1999) 写 的 可 文章 改编 而 成 。 在 表示 方式 上 ,主要 
区 别 是 ,这 里 使 用 的 是 一 种 值 调用 操作 语义 ,而 最 初 用 的 是 非 确定 性 B 归 约 关系 ,这 样 做 是 为 
了 与 后 面 的 章节 保持 一 致 。 

对 于 Java 子 集 类 型 的 安全 问题 有 几 种 证 明 方 法 。 最 早 是 Drossopoulou, Eisenbach 和 
Khrshid(1999) 等 ,用 一 个 技巧 [后 来 经 过 了 Syme(1997) 系 统 的 检验 ] ,证 明了 系列 Java 真子 集 的 
安全 性 。 像 再 ,用 一 小 步 操作 语义 ,但 通过 完全 忽略 强制 转型 而 避免 了 出 现 * 愚 转 型 ”。 
Nipkow 和 Oheimb(1998) 给 出 一 个 大 一 些 的 核心 语言 的 系统 安全 性 证 明 。 其 语言 包括 强制 转 
型 ,但 是 它 通过 用 一 大 步 操作 语义 形式 化 ,这 样 回避 了 愚 愉 转 型 问题 。Flatt, Krishnamurthi 和 
Felleisen(1998a,1998b) 用 一 小 步 语 义 和 形 式 化 了 带 赋值 和 转型 的 语言 ,和 末 中 一 样 处 理 愚 蠢 
转型 。 他 们 的 系统 是 比 可 大 一 些 (语法 .类 型 和 操作 语义 规则 占 三 倍 空间 ) , 它 的 安全 性 证 明 ， 
虽然 较 长 ,但 复杂 度 相 似 。 

在 上 面 这 三 个 研究 中 ,Fiatt,Krishnamurthi 和 Felleisen 最 接近 机 的 重要 原因 是 :他 们 的 目标 
和 这 里 一 样 ,是 选择 一 个 尽 可 能 小 的 核心 演算 ,采用 的 是 与 完成 某 些 特殊 任务 有 关 的 Java 特 
征 的 想法 。 他 们 提出 的 任务 是 分 析 一 个 带 有 公用 LISP 风格 的 mixins 的 Java 扩展 。 在 上 面 提 
到 的 另外 两 个 系统 的 目标 包括 尽 可 能 地 和 Java 的 子 集 一 样 大 ,虽然 他 们 最 初 的 兴趣 是 证 明 
java 本 身 的 安全 性 。 

有 关 面 向 对 象 语言 基础 的 著作 还 包括 很 多 形式 化 基于 类 的 面向 对 象 语言 方面 的 文章 , 内 
容 或 者 涉及 将 类 作为 原 语 (如 Wand 1989a, Brmuce 1994, Bono Patel Shmatikov 和 Mitchell 1999b， 
Bono Patel 和 Shmatikov 1999a) 或 者 把 类 翻译 为 低级 机 制 (例如 , Fisher 和 Mitehell 1998, Bono 和 
Fisher 1998, Abadi 和 Cardelli 1996, Pierece 和 Tumer 1994) 。 

有 关 的 工作 还 涉及 面向 对 象 语言 模型 方面 ,该 模型 中 类 是 由 方法 重 载 或 委托 的 形式 所 取代 
的 (Ungar 和 Smith,1987) ,这 样 单个 对 象 可 以 继承 其 他 对 象 的 行为 。 结 果 演 算 会 比 那些 基于 类 的 
语言 简单 ,因为 它们 处 理 的 是 更 小 的 概念 集 。 关 于 这 方面 最 深入 及 最 权威 的 是 Abadi 和 
Cardelli 的 对 象 演算 (1996)。 另 一 个 比较 流行 的 是 由 Fisher,Honsell 和 Mitchell(1994) 等 人 提出 的 。 

一 个 关于 对 象 . 类 和 继承 等 方面 有 点 不 同 的 方法 多方 法 ,已 由 Castagna,Ghelli 和 Longo 
(1995) 进 行 了 形式 化 。 在 18.1 节 的 脚注 中 给 出 了 说 明 。 


每 个 大 型 语言 体内 是 挣扎 要 走出 来 的 小 的 语言 …… 
一 一 JIgarashi,Pierce 和 Wadler(1999) 

每 个 大 的 程序 中 都 有 一 个 小 程序 挣扎 着 走出 来 ……' 
Tony Hoare 人 大 程序 有 效 介绍 》(1970) 
我 很 胖 , 但 我 里 面 很 瘦 。 

如 果 你 发 现 每 个 胖子 体内 租 着 一 个 疲 子 ,你 会 感到 晨 据 吗 ? 
一 一 Ceorge Orwell, Coming Up For Air(1939) 
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第 20 章 递归 类 型 简介 


在 11.12 节 谈 到 了 怎样 将 一 个 简单 类 型 系统 扩展 成 包括 类 型 构造 子 List(T) ,其 中 的 元 素 
是 类 型 了 的 元 素 列表 。 列 表 仅 仅 是 共同 结构 (包括 队列 、 二 又 树 、 标 签 树 .抽象 语义 树 等 ) 的 大 
类 中 的 - -个 例子 ,可 能 任意 长 得 ,但 又 结构 简单 ` 有 规则 。 例 如 ,List(Nat) 的 元 素 可 为 nil, 也 可 
为 一 个 数字 及 另 一 个 List( Nat) 构 成 的 序 对 {( 即 “cons 单元 ”)。 显 然 , 如 果 将 这 些 结构 中 的 每 一 
个 都 作为 独立 的 、 原 始 的 语言 特征 是 没有 意义 的 。 相 反 ,我 们 需要 一 个 总 的 机 制 , 通 过 它 将 简 
单元 素 定 义 为 这 些 结 构 。 这 种 机 制 被 称 为 递归 类 型 。 
再 考虑 数字 列表 的 类 型 2。 用 11.10 节 和 11.7 节 中 定义 的 变化 类 型 和 元 组 类 型 ,这 里 列 
表 的 表示 可 为 nil 或 一 个 序 对 : 
NatList = <ni1:Unit，cons:{f...，... ]}>; 
nil 表示 平凡 数据 值 , 因 为 mil 标记 本 身 已 经 告诉 我 们 列表 为 空 。 而 cons 标记 所 带 的 值 是 包含 
数字 和 另 一 个 列表 的 序 对 。 序 对 的 第 一 个 分 量 的 类 型 为 Nat;: 
NatList = <ni1:Unit，cons: {fNat，,….j>; 
而 第 二 个 分 量 是 一 列 数字 , 即 所 定义 的 NatList 型 元 素 : 
NatList = <ni1:uUnit，cons:{Nat,Natitist}>; 
该 等 式 不 是 一 个 简单 的 定义 (也 就 是 说 ,这 里 不 是 给 已 经 明白 意思 的 表达 式 一 个 新 的 名 称 ) , 因 
为 右 端 提 到 的 名 称 正 是 我 们 要 定义 的 。 这 里 可 将 它 看 做 一 个 无 穷 树 ; 


“7 Cons : S 


Unit {，， 





Nat <ni1:，，cCons: > 


Uni ， 


可 以 说 明 该 无 穷 树 类 型 的 递归 等 式 与 5.1 节 说 明 的 递归 factorial 函数 有 些 类 似 。 和 那里 的 方 
式 一 样 , 这 里 可 方便 地 将 “循环 " 移 到 等 号 ( = ) 的 右 端 使 之 定义 更 正确 98。 这 里 对 类 型 引 人 一 
个 明确 的 递归 操作 符 


NatList = HX。. <nil:uUnit，cons:{fNat,Xj>; 


@ 本章 学 习 的 系统 为 带 递 归 类 型 的 简单 类 型 演算 。 其 中 的 例子 使 用 了 前 几 章 介绍 过 的 特征 ;相关 的 检查 器 为 
follequirec。 对 20.2 节 ,相关 的 检查 器 为 mllisorec。 

@ 本 章 的 后 面 将 不 考虑 如 何 用 任意 类 型 T 的 元 素来 定义 单个 的 .一般 化 的 列表 。 为 解决 这 个 问题 ,需要 引入 类 型 操 
作 符 的 概念 ,关于 这 一 点 将 在 第 29 章 中 介绍 。 

四 ”说 它 方便 的 原因 是 可 以 在 讨论 递归 类 型 时 不 需要 给 它们 名 称 。 然 而 ,给 出 明确 名 称 的 递归 类 型 有 时 处 理 起 来 也 很 
方便 ,请 参阅 19.3 节 的 规范 化 和 结构 化 类 型 系统 中 的 说 明 。 





第 20 章 ”递归 类 型 简介 181 


直观 上 ,这 个 定义 读 做 “将 NatList 定义 为 满足 X= <mil:Unit,cons: Nat,X+ > 的 无 穷 的 类 型 ”。 

在 20.2 节 中 ,将 会 看 到 实际 上 有 两 种 不 同形 式 化 递归 类 型 的 方式 (分 别称 为 相等 递归 和 
同 构 递 归 ) ,不 同 之 处 是 程序 员 以 类 型 注释 的 方式 对 类 型 检查 器 的 帮助 程度 。 在 接 下 来 的 程序 
实例 中 ,我 们 使 用 简化 的 相等 递归 表示 方式 。 


20.1 实例 


列表 
首先 ,结束 上 面 开 始 的 数字 列表 例子 。 为 了 用 列表 编程 ,需要 一 个 常量 nil, 一 个 在 列表 头 
添加 元 素 的 构造 子 cons, 一 个 取得 列表 并 且 返 回 一 个 布尔 值 的 isnil 操作 ,其 除非 空 列 表 的 列表 
头 和 列表 尾 的 析 构 函数 hd 和 tt。 和 图 11.13 中 的 内 置 操作 的 定义 方式 一 样 ,来 定义 这 里 的 操 
作 ; 这 里 将 从 更 简单 的 部 分 开始 定义 。 
直接 根据 NatList 的 定义 将 nil 和 cons 定义 为 两 字段 的 变 式 类 型 ， 
nil = <njl=unit> as NatList; 


* nil : NatLiSst 
cons = An:Nat. A1:NatList. <Cons=fn,1}> as NatList; 


* COons : Nat 一 NatList 一 NatList 


(回想 第 11.10 节 中 形 为 <1= t> aT 的 表达 式 是 用 来 引入 变 式 类 型 的 值 : 值 + 被 标记 为 1, 并且 
被 “注入 " 变 式 类 型 T 中 。 另 外 ,注意 这 里 的 类 型 检查 器 是 自动 地 将 递归 类 型 NatList“ 展 开 "* 为 
恋 式 类 型 < nil:Unit, cons: | Nat,NatList| > ) 。 

关于 列表 的 基本 棵 作 还 包括 检查 它们 的 结构 和 截取 适当 的 部 分 .它们 都 在 case 语 句 中 完成 


isn 了 jl = A1:NatList. case 1 of 
<ni1=u> 之 true 
上 <cons=p> > fa1se; 


* isni1 : NatList 一 Bool . 
hd = A1:NatLiSst， case 1] of <ni1=u> ”> 0 | <cons=p> > p.1; 


hd : NatList 一 Nat 


时 


tl1 = A1:NatList. case 1 of <nii=u> > 1 | <conssp> > pP.2; 


”让 ] : NatLiSst 一 NatLiSst 


我 们 任意 地 定义 一 个 空 列 表 的 hd 为 0, 空 列表 的 t 为 空 列 表 。 但 在 这 种 情况 下 可 能 会 出 现 异 常 。 
有 了 这 些 定义 ,可 以 用 它们 写 一 个 求 和 的 递归 函数 ; 


sum]1ist = fix (AS:NatList 一 Nat，A1:NatLiSst， 
if isnil 1 then 0 else plus (hd 1) (Ss (t1 1)7); 


” Sum]ist : NatList 一 Nat 


my1ist = cons 2 (cons 3 (cons 5 ni1)); 
Sum1ist my11st; 


* 10 ;: Nat 
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注意 ,尽管 NatList 本 身 是 一 个 无 穷 长 的 类 型 表达 式 ,但 它 的 所 有 元 素 是 有 限 的 列表 (因为 
没有 办 法 用 序 对 和 标记 原 语 或 值 调用 名 来 构造 无 穷 大 的 结构 ) 。 

20.1.1 练习 [xx]: 带 标签 的 二 叉 树 将 树 结构 定义 为 一 个 树叶 (不 带 标签 ) 或 者 带 数 字 标 

签 和 两 个 子 树 的 内 部 节点 。 定 义 一 个 类 型 NatTree 及 其 上 合适 的 一 些 操作 ,如 构造 . 析 构 、 

测试 树 , 等 等 。 写 一 个 次 度 优 先 遍历 的 函数 ,使 之 返回 找到 的 标签 列表 。 用 细 jequirec 检 

查 器 来 检查 你 的 代码 。 


饥饿 函数 


这 里 有 个 稍微 复杂 一 点 的 递归 类 型 的 例子 , 称 为 饥饿 函数 , 它 可 接受 任何 以 数字 为 参数 的 
数值 ,并 生成 一 个 需要 更 多 数值 的 饥饿 函 数 ; 
Hungry = HA，Nat 一 A; 
这 种 类 型 的 元 素 能 用 fix 算 子 来 定义 
f = fix (CAf: Nat 一 Hungry. An:Nat，f) ; 
* 于 : Hungry 
f0Ol2345; 
” <fun> : Hungry 
流 
对 上 面 饥 狐 类 型 的 一 个 更 有 用 的 变 式 是 Sheam 类 型 , 它 能 用 unit 类 型 的 任意 值 ,每 次 返回 
一 个 数字 和 新 的 流 的 序 对 : 
Stream 二 HA。、Unit 一 {Nat,A}; 
我 们 能 为 流 定义 两 个 “ 析 构 函数 " ;如果 s 是 一 个 流 ,那么 hd s 是 传递 给 它 unit 时 返回 的 第 一 个 
数字 : 


hd = As:Stream. (s unit) -1 
* hd ; Stream 一 Nat 


同样 地 ,tl s 是 传递 unit 到 s 时 ,获得 的 新 的 流 ; 
t1 = ASs:Stream. (《s Unit]7 ,2; 
”Ttl : Stream 一 Stream 


为 了 构造 一 个 流 , 和 上 面 一 样 用 fix: 


Upfrom0 = fix (Af: Nat 一 Stream An:Nat， 和 :Unit， fn,f (succ n7}) 0; 
* Upfrom0 : Stream 

hd upfrom0 ， 
> 0 : Nat 

hd (t1 (Ct1 (tl1 upfrom077); 
”了 : Nat 


20.1.2 ”练习 [推荐 ,**] :定义 一 个 产生 连续 的 Fibonacci 序 列 元 素 流 (1,1,2,3,5,8,13,…)。 
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流 能 进一步 归纳 为 一 个 简单 形式 process, 它 是 接受 一 个 数字 并 返回 一 个 数字 和 一 个 新 进 
程 的 函数 : 
Process = _ HA. Nat 一 {Nat,A}; 
例如 ,这 里 有 一 个 进程 ,在 每 一 步 会 返回 已 给 出 的 所 有 数字 的 和 : 
p = fix (AMf: Nat 一 Process。Aacc:Nat- An:Nat . 
1et newacc = plus acc n in 
{fnewacc， 下 newaccjy) 0; 
* PP : Process 
正如 为 流 做 的 ,这 里 定义 一 个 作用 在 进程 上 的 辅助 函数 ， 
curr = AS;IProcess. (S 0) .1; 
*” Curr : Process 一 Nat 
send = An;Nat， As:Process. (S n) .2; 
*” send : Nat 一 Process 一 Process 
如 果 赋 给 进程 p 数值 S,3 和 20, 那 最 后 一 步 返 回 的 数字 是 28: 
curr (send 20 (send 3 (send 5 p777; 
* 28 : Nat 


对 象 


若 对 上 面 的 例子 稍 做 调整 可 得 到 另 一 个 熟悉 的 数据 关系 :对 象 。 例 如 ,这 是 计数 器 对 象 ， 

它 记 录 一 个 数字 ,并且 人 允许 我 们 查询 或 者 增加 它 : 
Counter = HC，{get:Nat，inc:Unit 一 C} ; 

注意 ,这 里 处 理 对 象 的 方式 是 纯 函 数 式 的 (类 似 于 第 19 章 中 ,但 与 第 18 章 中 的 不 同 ) ;给 计数 
器 对 象 发 送 inc 消息 不 能 引起 这 个 对 象 改 变 它 的 内 部 状态 ;而 是 ,操作 将 返回 一 个 内 部 状态 增 
加 后 的 新 的 计数 器 对 象 。 递 归 类 型 的 使 用 使 得 返回 的 对 象 和 原来 的 对 象 类 型 完全 相同 。 

在 这 些 对 象 和 上 面 讨 论 的 进程 间 惟 一 的 不 同 是 对 象 是 递归 定义 的 记录 (包含 一 个 函数 )， 
而 进程 是 一 个 递归 定义 函数 (返回 一 个 元 组 )。 考 虑 到 这 个 变化 是 有 用 的 原因 ,我 们 能 扩展 记 
录 使 之 包含 多 个 函数 ,例如 ,一 个 减少 操作 :; 


Counter = HC，{fget:Nat，inc:Unit 一 C，dec:Unit 一 CC]; 


为 了 创建 一 个 计数 器 对 象 ,如 上 所 做 ,这 里 使 用 不 动 点 组 合算 子 : 


c = let create = fix (Af: {fx:Nat}~Counter. AsS: {x:Natl . 
{get = S.X， 
inc = 和 A_:Unit. f {fx=succ(s.x)}， 
dec = 人 A_:Unit. f {xspred(Cs.x)} 1]) 
in create {Xx=0}1; 


*《 : Counter 


为 了 利用 e 的 一 个 操作 ,我 们 简单 地 投影 出 适合 的 字段 ， 


clL = C.inc unit; 
C2 一 Cl.inc unit; 
c2.9et; 


”> 2 : Nat 


[全 一 一 全 一 一 一 一 一 一 一 -一 一 一 -一 一 一 -一 一 一 -一 一 -一 一 
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20.1.3 练习 [推荐 ,xx]: 扩 展 Counter 类 型 和 上 土 面 的 计数 器 ,增加 backup 和 reset 操作 

(如 在 18.7 节 中 做 的 ) :调用 baekup 引起 计数 器 在 一 个 独立 的 内 部 寄存 器 存储 它 的 当前 

值 ; 调 用 reset 使 计数 器 的 值 由 寄存 器 的 值 重 新 设置 。 
递归 类 型 的 递归 值 

一 个 更 加 令 人 吃惊 的 递归 类 型 的 用 法 (更 明显 体现 了 它们 的 表达 能 力 ) 是 不 动 点 组 合算 子 
的 良 类 型 实现 方式 。 对 了 T 的 任何 类 型 ,可 为 关于 下 的 函数 定义 如 下 一 个 不 动 点 构造 子 : 

fixT = Af:T--T，(CAXI CHA.A-T)， 下 (X X)) (CAX:CUA.A--T). 下 (CxX X)); 
*” fixT : (〔(T-T) 一 开 
注意 ,如 果 我 们 抹 除 类 型 ,该 项 就 是 5.2 节 递归 类 型 里 看 到 的 无 类 型 不 动 点 组 合算 子 。 

这 里 关键 的 技巧 是 用 一 个 递归 类 型 来 类 型 化 子 表 达 式 x x。 正 如 在 练习 9.3.2 中 看 到 的 ， 
类 型 化 该 项 需要 x 有 一 个 箭头 类 型 , 它 的 定义 域 是 类 型 zx 本身。 显然 ,这 个 特性 没有 有 限 的 类 
型 ,而 无 穷 类 型 kA .AT 完美 地 完成 这 个 工作 。 

这 个 例子 的 推论 是 递归 类 型 的 存在 打破 了 强 规范 化 特性 :我 们 能 用 fixy 组 合算 子 来 写 一 
个 良 类 型 的 项 使 它 的 求 值 ( 当 应 用 于 unit 时 ) 发 散 : 

divergeT = 和 :Unit.， fixT (CAX:T，Xx); 
* divergeT : Unit 一 下 


而 且 , 因为 能 获得 该 项 的 每 种 类 型 的 形式 ,所 以 该 系统 中 每 种 类 型 都 能 用 (不 像 和 人. )。 


无 类 型 入 演算 , 约 式 


可 能 对 递归 类 型 最 有 力 的 说 明 是 将 整个 无 类 型 入 演算 (以 一 种 良 类 型 的 方式 ) 嵌 和 人 含 递归 
类 型 的 静态 类 型 化 语言 中 。 让 D 成 为 如 下 的 类 型 2 
D = MX.X 一 X; 
定义 一 个 将 D 到 D 的 函数 映射 为 D 的 元 素 的 “投射 函数 "lam: 
1am = Af:D 一 D. 下 as D; 
> 1am ; D 
为 了 将 D 的 一 个 元 素 应 用 到 另 一 个 ,我 们 简单 展开 第 一 个 类 型 ,产生 一 个 函数 ,又 将 该 函数 应 
用 到 第 二 个 : 
ap 一 Af:D， Aa:D. f ai 
”ap : D 
现在 ,假设 M 是 一 个 只 含 变量 抽象 和 应 用 的 封闭 的 和 项。 那么 能 构造 一 个 表示 M 的 D 的 元 
素 , 记 为 M” (如 下 统一 的 形式 )， 


@ 这 一 点 使 带 递 归 类 型 的 系统 从 逻辑 上 来 说 是 无 用 的 :根据 Cury-Howard 对 应 (参见 9.4 节 ), 如 果 将 类 型 解释 为 逻辑 
命题 ,并 将 “类 型 T 是 适用 的 "理解 为 “命题 T 是 可 证 明 的 ” ,那么 每 个 类 型 都 可 适用 的 意思 就 变 成 每 个 命题 在 到 辑 
上 都 是 可 证 明 的 , 即 逻 辑 是 不 一 致 的 。 

@ 热 悉 外 延 语 义 的 读者 会 注意 到 D 的 定义 其 实 是 纯 》 演 算 的 语义 模型 中 使 用 的 全 域 性 质 的 定义 。 
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X = X 
(Ax-M)” = 1am(Ax:D. M*) 
(MN)* = apM*N* 
例如 ,这 是 表示 为 D 的 一 个 元 素 的 无 类 型 不 动 点 组 合算 子 ; 


fixD = 1am (XAf:D， 
ap (C]am (CAx:D. ap 下 (ap X X])) 
(Cl1am (AMx:D. ap 下 (ap x x)77); 


* fixD : D 
纯 和 演算 的 嵌 人 可 扩展 为 含 一 些 特征 (如 数字 )。 我 们 将 D 的 定义 改 为 一 个 带 标记 的 数字 
变 式 类 型 及 一 个 带 标记 的 函数 变 式 类 型 : 
D = HX， <nat:Nat，fn:X 一 X>; 
也 就 是 说 ,D 的 元 素 或 是 数字 ,或 者 是 从 D 到 D 的 函数 ,分 别 标记 为 nat 和 血 。lam 构造 子 的 实 
现 ,基本 与 以 前 一 样 : 
1am = Af:D-D. <fn=f> as D; 
* ]amw : (D-D) ~ D 
然而 ,ap 以 不 同 的 方式 实现 (十 分 有 趣 ) : 
ap = Af:D，Aa:D， 


case f of 
<nat=n> > divergep unit 
| <fn=f> > 下 ai; 


rap:D 一 D 一 D 
将 f 应 用 到 a 之 前 ,需要 用 一 个 case 语句 从 f 中 提取 一 个 函数 。 这 迫使 我 们 说 明 当 不 是 函数 
时 应 用 该 如 何 执行 (这 个 例子 仅 发 散 ; 但 也 能 提升 异常 )。 注 意 ,这 里 的 标记 检查 与 动态 类 型 化 
语言 如 Scheme 执行 时 的 标记 检查 多 么 相似 呀 ! 从 这 种 意义 上 ,类 型 化 计算 可 认为 是 “包括 ?无 
类 型 的 或 动态 的 类 型 计算 。 
为 给 D 的 元 素 定义 后 继 冰 数 , 仍 需 要 类 似 的 标记 检查 ; 


suc = Af:D。 case 下 of 
<natz=n> > (〔(<nat=5succ n> a5 D) 
| <fn=f> =” divergep unit; 


”* SucC :D 一 D 
D 中 添 人 0, 结果 为 ; 
Zro = <nat=0> 3a5 D; 


* Zro : D 


20.1.4 练习 [*]: 用 布尔 型 和 条 件 式 来 扩展 该 代码 ,将 项 if false then 1 else 0 和 iffalse 
then 1 else false 作为 D 的 元 素 编 码 。 当 求 值 这 些 项 时 ,会 发 生 什 么 ? 


20.1.5 练习 [推荐 ,xx] :扩展 数据 类 型 D 使 之 包括 记录 ，; 


D = HX.，、<nat:Nat，fn:X-X，rcd:Nat 一 X>; 
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并 实现 记录 构造 和 字段 投影 。 为 简单 化 起 见 ,用 自然 数字 作为 字段 标签 , 即 记 录 可 表示 为 
从 自然 数 到 D 元 素 的 函数 。 可 用 fullequirec 检查 器 来 测试 你 的 扩展 。 


20.2 


形式 


在 关于 类 型 系统 的 著作 里 ,存在 两 个 基本 的 递归 类 型 方法 。 它 们 本 质 的 差别 就 在 它们 对 
一 个 简单 问题 的 回答 上 :类 型 kkX.T 和 它 的 一 步 展开 间 的 关系 是 什么 ”例如 ,在 NatList 和 
< nj: Unit,cons: |Nat,NatList| > 闻 的 关系 是 怎样 的 ? 


1 . 


MD 


相等 递归 (equi-recursive) 方 法 是 把 这 两 个 类 型 表达 式 作为 相同 定义 (在 所 有 上 下 文 可 交 
换 ) ,因为 它们 代表 同样 的 无 穷 树 。 类 型 检查 器 有 责任 确保 某 类 型 的 项 可 以 作为 一 个 
参数 传 给 一 个 希望 得 到 另 一 种 类 型 参数 的 函数 。 

关于 相等 递归 方法 令 人 高 兴 的 事 是 : 它 使 类 型 表达 式 可 以 为 无 穷 @, 这 一 方式 是 对 我 们 
已 理解 的 系统 声明 方式 的 惟一 改变 。 只 要 已 有 的 定义 .安全 性 定理 及 证 明 不 是 依靠 对 
类 型 表达 式 ( 不 再 起 作用 ) 进 行 归纳 , 则 都 不 会 发 生 改 变 。 

当然 ,相等 递归 类 型 的 实现 还 需要 一 些 工 作 , 因 为 类 型 检查 算法 不 能 直接 作用 于 无 穷 
结构 。 这 一 点 如 何 做 到 将 是 第 21 章 讨论 的 话题 。 


. 另 一 方面 , 同 构 递 归 (iso-recursive) 将 一 个 递归 类 型 与 其 展开 式 视 为 不 同 (但 同 构 )。 


形式 上 ,递归 类 型 改 .T 的 展开 式 是 将 主体 T 取 出 并 将 出 现 X 的 地 方 用 整个 递归 类 型 
来 代替 ,即使 用 标准 的 代 换 符号 :[X Fr-(HX.T)]JT。 例 如 ,类 型 NatList 即 为 ， 
AHX.<ni1:Unit,cons:{fNat,X}> 
展开 为 ; 
<nil:uUnit，cons:{Nat，HX.<ni1:Unit,cons:{tNat ,Xi>}> 
在 同 构 递 归 类 型 的 系统 里 ,为 每 个 递归 类 型 kgX.T 引 入 了 如 下 一 对 函数 : 
unfo1d[UX.T] : HX.T 一 [Xr= AHX.TIT 
fo1d[AX.T] : [X=-HX.TIT 一 HAX.T 
如 下 图 通过 两 个 类 型 之 间 相 互 映射 可 “目击 同 构 的 过 程 ”; 
unfo1dIHX.T] 
HX.T [X= ARX.T]T 


fold[Ax.T] 


fold 和 unfold 映射 已 作为 语言 的 原 语 形式 ,正如 在 图 20.1 所 描述 的 。 求 值 规则 已 UnftdF1d 
说 明了 它们 是 同 构 的 ,因为 根据 该 规则 , 当 folid 遇 到 了 对 应 的 unfold 时 会 被 消去 ( 求 值 
规则 不 要 求 fold 和 unfold 的 注释 是 相同 的 , 因为 在 运行 时 必须 用 类 型 检查 器 来 检查 该 
条 件 是 否 满足 。 然 而 ,在 良 类 型 程序 的 求 值 中 ,无论 何 时 运用 已 UnfldFld, 这 两 种 类 型 
注释 都 相等 )。 


@@ 从 中 类 型 到 它们 的 无 穷 树 的 映射 ,将 在 21.8 节 中 有 精确 的 定义 。 
@ 严格 地 说 ,应 称 为 有 规则 的 ,参见 21.7 节 。 
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- 潍 扩展 A- (9.1) 
让 项 : 
ee 5 折 生 (E-FLD) 
展开 
V_ :3= 值 ; ， 。(E-UNEFLD) 
打 的 关 弄 规则 
天 二 类 型 ， roletysc 
攻 类 型 变量 一 一 (T-FLD) 
有 递归 类 型 
新 的 求 值 规则 (TUNFLD) 
人 TREE 








图 20.1 类 似 递归 类 型 (Ab) 


这 两 种 方法 广泛 地 运用 于 理论 学 习 和 程序 语言 设计 中 。 相 等 递归 风格 可 说 更 直观 些 , 但 对 
类 型 检查 器 的 要 求 更 高 ,因为 它 必 须 有 效 地 推断 出 fold 和 unfold 注释 的 出 现 位 置 。 此 外 ,相等 递 
归 类 型 与 其 他 高 级 类 型 特征 ,如 畴 量词 和 类 型 操作 符 之 间 的 相互 作用 相当 复杂 ;会 导致 严重 的 理 
论 困 难 ( 如 Ghelli,1993; Colazzo 和 Ghelli ,1999) ,甚至 是 不 可 决定 的 类 型 检查 问题 (Solomon;,1978)。 

同 构 递 归 风 格 在 表示 上 有 些 累 歼 , 在 使 用 递归 类 型 的 地 方 , 它 要 求 程序 要 带 上 fold 和 
unfold 说 明 。 然 而 ,这 些 注释 会 与 其 他 注释 结合 而 被 “隐藏 ”。 例 如 ,在 ML 系列 语言 中 ,每 个 
datatype 定义 都 暗含 了 递归 类 型 。 每 用 一 个 构造 子 来 建立 一 个 数据 类 型 的 值 时 都 隐 含 地 使 用 
了 fold ,而 每 个 出 现在 模式 匹配 的 构造 子 都 会 隐 含 地 用 到 unfold。 相 似 地 ,在 Java 中 每 个 类 定 
义 隐 含 地 引入 了 递归 类 型 , 且 调 用 对 象 中 的 一 个 方法 就 涉及 到 了 unfold。 这 种 合适 的 机 制 重重 
使 同 构 递归 风格 在 实践 中 相当 受 欢 迎 。 

例如 ,这 里 是 一 个 同 构 递归 形式 的 NatList 例子 。 首 先 , 为 NatLiat 的 展开 形式 定义 一 个 缩 
写 形 式 是 很 方便 的 : 

NLBody = <nil1:Unit，cons:{fNat,NatList}>; 
现在 ,通过 建立 类 型 为 NLBody 的 变 式 类 型 来 定义 一 个 nil, 然后 把 它 折 码 为 NatList; 对 cons 也 
这 样 做 : 


nil1 = fol1d [NatList] (<ni1=unit> as NLBody) ; 
cons = An:Nat. 和 1:NatList. fol1d [NatList] <cons={fn,1}> as NLBody ; 


相反 ,isnil,hd 和 世 操 作 的 定义 需要 将 NatList 视 为 一 个 变 式 类 型 ,以 便 它们 能 对 它 的 标记 进行 
分 析 。 需 要 将 参数 1 展开 来 实现 : 


isni] = 和 1:NatList. 
case unfo1d [NatList] 1] of 
<ni1=u> > true 
| <cons=p> > false; 
hd = 和 1:NatList. 
case unfo1d [NatList] 1 of 
<ni1=u> >”> 0 
| <cons=p> > p.1; 
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tl1 = A1:NatLiSt， 
case Unfo1d [NatList] 1 of 
<njilsu> 之 ] 
| <cons=p> = Pp.2; 
20.2.1 练习 [推荐 ,**]: 对 20.1 节 的 一 些 例子 (尤其 是 fixr 例子 ) 用 明确 地 fold 和 
unfold 注释 进行 重新 形式 化 。 并 用 fallisorec 检查 器 来 检查 它们 。 


20.2.2 ”练习 [xx 六 ] :为 同 构 递归 系统 证 明 一 下 进展 和 保持 定理 。 


20.3 子 类 型 化 


本 章 需 要 弄 清 的 最 后 一 个 问题 涉及 到 递归 类 型 和 到 目前 为 止 看 到 的 简单 类 型 入 演算 的 主 
要 改进 一 一 子 类 型 之 闻 的 组 合 。 例 如 ,假设 类 型 Fven 是 Nat 的 一 个 子 类 型 , 则 类 型 pxX.Nat->~ 
(Even x X) 和 JI.Even->(NatxX) 之 间 是 什么 关系 呢 ? 

考虑 这 个 问题 最 简单 的 方式 以 一 种 “ 受 限 "的 观点 来 看 它们 , 即 用 递归 类 型 的 相等 递归 处 理 
方式 。 在 目前 的 例子 中 , 出 现在 两 种 类 型 中 的 元 素 可 被 认为 是 简单 的 反应 进程 (参见 20.1 节 ): 
给 出 一 个 数 ,它们 返回 另 一 个 数 及 一 个 新 的 准备 接收 数字 的 进程 ,等 等 。 属 于 第 一 种 类 型 的 进 
程 总 是 产生 偶数 并 且 能 接受 任意 数字 。 属 于 第 二 种 类 型 的 进程 会 产生 任意 数字 ,但 总 是 希望 
赋 给 偶数 。 对 函数 必须 接受 什么 参数 及 必须 返回 什么 结果 的 限制 对 第 一 种 类 型 要 求 更 严格 
些 , 所 以 我 们 希望 第 一 种 类 型 为 第 二 种 的 子 类 型 。 下 面 将 演算 以 图 的 形式 总 结 一 下 


<。 


ee 
AN 2 > < LN 

DDN IN 
Nat X 上 Even X 


Even 


这 种 直观 上 的 参数 能 精确 吗 ? 事实 上 它 能 ,我 们 将 在 第 21 章 看 到 。 
20.4 注释 


在 计算 科学 中 递归 类 型 至 少 回调 到 Morris(1968) 写 的 论著 。 基 本 的 语法 和 语义 特性 (不 售 
子 类 型 ) 收 集 在 Cardone 和 Coppo(1991) 的 论著 中 。Coureelle( 1983) 等 研究 了 无 穷 和 规则 树 的 特 
性 。Huet(1976) 和 MacQueen ,Pilotkin 和 Sethi(1986) 早 期 的 论文 提出 了 不 含 子 类 型 递归 类 型 的 
基本 语法 和 语义 特性 。 而 Abadi 和 Fiore(1996) 等 对 同 构 和 相等 递归 类 型 系统 进行 过 研究 。 在 
21.12 节 中 还 能 找到 对 含 子 类 型 的 递归 类 型 的 其 他 引用 。 

Morris(1968 ,参见 pp.122-124) 首 次 提 到 递 娄 类 型 能 用 来 为 项 构造 一 个 良 类 型 和 x 操作 ( 参 
见 20.1 节 )。 

自从 最 早 对 递归 类 型 投入 工作 以 来 ,递归 类 型 的 两 种 形式 已 经 发 展 得 十 分 成 熟 了 ,但 是 最 
近 才 由 Crary, Harmper 和 Puri(1999) 给 它们 取 了 同 构 递 归 和 相等 递归 这 两 个 好 记 的 名 称 。 
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在 第 20 章 中 ,我 们 看 到 两 种 递归 类 型 的 表示 形式 ;与 其 展开 式 定义 上 等 价 的 相等 递归 类 
型 和 等 价 性 是 可 从 fold 和 unfolid 项 明显 看 出 来 的 同 构 递 归 类 型 。 在 本 章 中 ,我们 将 深入 讨论 
相等 递归 类 型 的 类 型 检查 器 的 理论 基础 ( 相 比 之 下 , 同 构 递 归 类 型 要 简单 些 )。 这 里 要 处 理 的 
是 一 个 包含 递归 类 型 和 子 类 型 的 系统 ,因为 实际 中 两 者 经 常 结合 使 用 。 一 个 含 相 等 递归 类 型 
但 不 含 子 类 型 的 系统 会 简单 一 些 , 因 为 这 样 只 需要 检查 递归 类 型 的 等 价 性 。 

在 第 20 章 中 ,我 们 得 知 通过 无 穷 类 型 上 的 无 穷 子 类 型 推导 可 以 帮助 直观 地 理解 相等 递归 
类 型 的 子 类 型 化 。 这 里 要 做 的 就 是 用 共 归 纳 的 数学 框架 来 精确 地 描述 这 种 想法 ,并 用 实际 的 
子 类 型 算法 在 无 穷 树 和 推导 与 有 限 表达 方式 之 间 绘 制 精确 联系 。 

从 21.1 节 开 始 先 回顾 一 下 关于 归纳 和 共 归 纳 定义 的 基本 理论 ,以 及 与 它们 相关 原理 的 证 
明 。21.2 节 和 21.3 节 将 考虑 子 类 型 化 的 情况 对 该 一 般 理论 进行 实例 化 ,定义 所 熟悉 的 有 限 类 
型 上 的 归纳 性 子 类 型 关系 和 它 在 无 穷 类 型 上 的 共 归 纳 性 扩展 。21.4 节 将 简单 提 一 下 与 传递 
性 规则 有 关 的 一 些 问 题 (如 我 们 所 知 , 它 在 子 类 型 系统 中 是 一 个 著名 的 难题 )。21.5 节 将 得 出 
在 归纳 性 和 共 归 纳 性 定义 的 集合 中 检查 成 员 关系 的 简单 算法 ;而 21.6 节 中 将 得 出 更 精确 的 算 
法 。 这 些 算法 将 应 用 于 21.7 节 中 提 到 的 一 些 重 要 的 特殊 情况 一 一 “有 规则 的 ”无 穷 类 型 的 子 
类 型 。21.8 节 将 介绍 一 种 可 以 代表 无 穷 类 型 的 有 限 符 号 六 类 型 ,然后 证 明 六 类 型 上 更 为 复 
杂 的 (但 为 有 限 可 执行 的 ) 子 类 型 关系 符合 无 穷 类 型 之 间 的 子 类 关系 的 通常 共 归 纳 定义 。 
21.9 节 将 证 明 疡 类 型 的 子 类 型 算法 可 终止 性 。21.10 节 将 该 算法 与 Amadio 和 Cardelli 提出 的 
算法 进行 比较 。 最 后 21.11 节 简 单 讨 论 一 下 同 构 递 归 类 型 。 


21.1 归纳 和 共 归 纳 


假设 这 里 用 全 集 来 作为 讨论 归纳 定义 和 共 归 纳 定义 的 范围 。 避 代表 “世界 上 的 任何 事 
物 ”, 而 归纳 定义 或 共 归 纳 定 义 起 到 的 作用 就 是 挑选 出 也 的 子 集 ( 接 下 来 ,让 了 4 成 为 所 有 类 型 序 
对 的 集合 ,这样 几 的 子 集 也 是 类 型 上 的 关系 。 在 现 有 的 讨论 中 ,任意 集合 Y 都 满足 这 个 要 求 )。 


21.1.1 定义 :如 果 瑟 E7, 则 有 天 (Z)SRCT7) ,那么 函数 天 <EPOU) 一 (LU) 就 是 单调 的 
[其 中 2P(V) 是 人 所 有 子 集 的 集合 ]。 
接 下 来 假设 尺 是 (QQ) 上 的 某 个 单调 函数 。 通 常 把 亚 作 为 一 个 产生 函数 。 


21.1.2 定义 :使 下 作为 的 人 一 个 子 集 : 
1. 如 果 下 (ED)SX ,那么 天 是 下 封闭 的 。 


@。 本章 研究 的 系统 是 含 子 类 型 (参见 图 15.1) ,乘积 (参见 图 11.5) 和 相等 递归 类 型 的 简单 类 地 演 算 。 相 应 的 检查 器 
为 equirec。 
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2. 如 果 和 ESF(CTD) ,那么 了 是 下 一 致 的 。 

3, 如 果 R(X) = 工 , 那 么 下 是 屎 的 不 动 点 。 

对 这 些 定义 比较 直观 的 理解 就 是 把 取 的 元 素 当 成 某 种 语句 或 断言 ,以 及 把 不 的 元 素 当 成 
“认证 ”的 关系 ,让 它们 在 给 出 一 组 语句 (前 提 ) 下 能 说 明 得 出 的 是 哪些 新 的 语句 (结论 )。 那 么 
到 闭 集 不 能 通过 添加 经 下 认证 的 元 素 而 增 大 ,因为 它 已 经 包含 所 有 被 其 成 员 认 证 过 的 结论 。 
下 一 致 集 是 “自我 认证 ”的 :其 中 每 个 断言 都 被 当中 的 其 他 断言 所 认证 。 严 的 不 动 点 是 一 个 既 
封闭 又 一 致 的 集合 : 它 包 含 了 它 的 元 素 要 求 的 所 有 认证 ,以 及 包含 了 所 有 元 素 得 出 的 结论 , 除 
此 之 外 别 无 其 他 。 

21.1.3 例子 :考虑 下 述 含 三 个 元 素 的 集合 人 = jc ,bej 的 产生 函数 : 


EI(O) = ({c Eli([fa,p)) =  {c} 
El({al) = fc Eli(fach) = {b,cl 
El({p) = fc El({p,cj) = [abc 
El(fcj) = [bc El(fabpcl) = {abcl 


其 中 只 有 一 个 百 闭 集 |ae ,bc1,4 个 盏 一致 集 C cl ,bcl la,bci。 
己 可 以 用 一 个 推论 的 规则 集 来 压缩 表示 ， 
C 六 C 


C 六 Q 
每 个 规则 说 明 所 有 横 线 上 面 的 元 素 为 输入 ,而 横 线 之 下 的 则 为 输出 。 
21.1.4 定理 [Knaster-Tarski( Tarski,195SS) ] : 


1. 所 有 下 封闭 集 的 交集 是 最 小 的 下 不 动 点 。 
2. 所 有 下 一 致 集 的 并 集 类 型 是 最 大 的 下 不 动 点 。 


证 明 : 这 里 只 考虑 第 二 点 ,第 一 点 的 证 明 是 对 称 的 。 设 C= 1XIXSEF(X)} 为 所 有 下 一 臻 
集 的 合集 , 设 已 为 所 有 这 些 集合 的 并 集 。 考 虑 到 下 是 单调 的 , 且 对 任何 YecC 有 三 是 下 
一 致 的 且 居 EP, 于 是 得 出 天 cF(TE)EFCP)。 因 此 P=UxrecXSsF(P), 即 尸 是 下 一 致 
的 。 而 且 , 根 据 它 的 定义 , 己 最 大 的 下 一 致 集 。 再 一 次 利用 下 的 单调 性 ,可 得 出 忆 (P)S 
F(F(P))。 这 就 意味 着 ,通过 C 的 定义 ,可 以 得 出 F(P) <C。 于 是 ,对 C 的 任意 成 员 都 
有 RPR(P)SP, 即 己 是 下 封 闭 的 。 现 在 已 经 证 明 已 既是 最 大 的 下 一 致 集 又 是 严 的 不 动 
点 ,所 以 己 就 是 最 大 的 不 动 点 。 

21.1.$ 定义 :下 的 最 小 不 动 点 记 为 AP; 下 的 最 大 不 动 点 记 为 vF。 

21.1.6 例子 ;从 上 面 产生 函数 局 的 例子 ,可 以 得 出 Ap 盏 = 古 = la,bel。 


21.1.7 练习 [*] :假设 全 集 | ec,5,cj 上 的 一 个 产生 函数 已 由 下 面 的 推论 规则 定义 : 


C QQ& 少 


. Q 疡 C 
如 对 已 所 做 的 那样 ,请 明确 写 出 关系 及 的 序 对 集 。 列 出 所 有 忆 封闭 和 已 一 致 的 集 
合 。 并 指明 A 五 1 和 ) 克 2， 是 名 些 。 
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注意 到 APF 本 身 是 下 封闭 的 (因此 , 它 是 最 小 的 下 闭 集 ) ,中 是 下 一 致 的 (因此 , 它 是 最 大 
的 下 一 致 集 )。 这 个 结论 提供 了 一 对 最 基本 的 推理 工具 ， 
21.1.8 推论 [关于 定理 (21.1.4) ] : 
1. 归纳 原则 :如 果 苞 是 己 封 闭 的 ,那么 RSX。 
2. 共 归 纳 原则 :如 果 互 是 到 一 致 的 ,那么 丰 SvF。 


提出 这 两 条 原则 的 原因 是 想 把 集合 作为 一 个 谓词 ,表示 它 的 特征 集合 一 一 谓词 为 真 的 
忆 的 子 集 ; 如 果 说 元 素 * 具有 性 质 夺 , 则 表示 x 在 集合 工 中 。 现 在 ,归纳 原则 说 明 特 征集 为 下 
闭 集 的 任何 性 质 ( 也 就 是 说 ,性 质保 持 为 尺 的 ) 对 归纳 定义 集合 wz 的 所 有 元 素 都 为 真 。 

另外 , 共 归 纳 原 则 提供 了 建立 元 素 * 在 共 归 纳 定 义 的 集合 wz 中 的 方法 。 为 了 表明 xs 
民 ,需要 找到 集合 站, 使 xE 下 且 天 是 玉 一 致 的 。 虽 然 共 归纳 原则 比 起 归纳 原则 要 让 人 感到 陌 
生 些 ,但 是 它 却 是 计算 机 科学 许多 领域 的 中 心 。 举 例 来 说 , 它 是 基于 互 模拟 的 ,并 发 理论 的 主 
要 证 明 工具 ,而 且 它 还 处 于 许多 模型 检查 算法 的 核心 。 

归纳 和 共 归 纳 原则 在 全 章 中 将 被 大 量 使 用 。 我 们 不 会 根据 产生 函数 和 谓词 来 写 出 所 有 的 
归纳 参数 ,而 是 为 了 简便 ,更 多 地 使 用 熟悉 的 缩写 形式 ,如 结构 化 归纳 。 共 归纳 参数 的 表示 会 
更 为 明确 。 


21.1.9 练习 [推荐 ,xxx*]: 证 明 自 然 数 的 一 般 归 纳 原则 [参见 公理 (2.4.1)] 及 自然 数 对 的 
字典 序 归 纳 原 则 [参见 公理 (2.4.4) ] 符 合 推论 (21.1.8) 的 归纳 原则 。 


21.2 有 限 类 型 和 无 穷 类 型 


接 下 来 我 们 将 举例 说 明 最 大 不 动 点 的 一 般 化 定义 和 用 具体 子 类 型 说 明 共 归纳 证 明 方 法 。 
在 此 之 前 , 先 明 确 地 说 明 一 下 如 何 将 类 型 视 为 (有 限 或 无 穷 ) 树 。 

简便 起 见 ,本章 仅 考虑 三 种 类 型 构造 子 : 一 , x 和 Top。 我 们 将 类 型 表示 为 树 的 形式 (可 能 
是 无 穷 的 ) ,节点 用 ~, x 和 Top 三 种 符号 中 的 一 种 来 作为 标签 。 这 种 定义 符合 现在 的 需要 ; 井 
对 无 穷 标签 树 的 一 般 处 理 方 式 感 兴趣 可 参阅 Courcelle(1983)。 

我 们 把 1 和 2 的 序列 集 记 为 11,2 上 。 空 序列 记 为 。 ,而 关 代 表 ; 的 大 次 方 。 如 果 区 和 = 
都 是 序列 ,那么 rc 表示 的 是 r 和 串联 。 


21.2.1 定义 :一 个 树 类 型 (或 简称 为 树 ) 是 一 个 局 部 函数 Te fl,2 乒 一 [| 一 , x ,Top|， 
它 满足 下 列 约束 条 件 ; 


@T(。) 有 和 定义 

@ 如 果 T(r,o) 定 义 , 那 么 T(o 也 有 定义 。 

e 如 果 T(r) = 一 或 者 T(r) = x ,那么 T(r,1) 和 T(r,2) 有 定义 。 
e@ 如 果 T(r) = Top, 那 么 T(r,1) 和 T(r,2) 没 有 定义 。 


如 果 dom(T) 是 有 限 的 ,那么 树 类 型 T 也 是 有 限 的 。 所 有 树 类 型 的 集合 可 记 为 开 ; 所 有 有 
限 树 类 型 的 子 集 都 记 为 了 7。 


@ “ 树 类 型 "的 担 法 有 些 不 可 靠 , 但 它 能 使 我 们 在 21 .8 节 中 谈 到 递归 类 型 作为 一 个 含 w(“r 类 型 ") 的 有 穷 表 达 式 时 更 
直观 些 。 
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为 了 方便 ,将 满足 T(。) = Top 的 树 T 写 为 jp。 若 了 和 卫 都 是 树 , 把 满足 (T x 卫 )(。) = x 
和 (了 x 呈 )(r) =T(nr) 的 树 记 为 了 ->T ,把 (下 -了 )(。)= -一 和 (Ti 一 Jr) =Ti(r) 的 树 
记 为 T 一 ,其 中 ;=1,2。 比 如 :(Top xTop)-Top 表示 的 就 是 由 函数 T(。) = 一 ,T(1) = x 和 
T(2) =T(1,1) =T(1,2) = Top 定义 的 有 限 树 类 型 T。 我 们 用 省 略 号 来 表示 非 有 限 树 类 型 。 比 
如 Top 一 (Top 一 (Top 一 …)) 对 应 于 类 型 T, 其 中 下 的 定义 是 对 所 有 20,T(2 ) =->, 且 对 所 有 
让 20,T(2 ,1) =Top。 图 21.1 描述 了 这 些 规定 。 


CTop x Top) 一 Top LAN LA \a Top 一 (Top 一 (Top 一...)) 


X Top Top 


AN AN 


Top Top 


图 21.1 树 类 型 例子 


可 以 根据 语法 给 出 有 限 树 类 型 更 加 简洁 的 定义 形式 ; 
了 T := Top 
TXT 
T 一 T 
形式 上 , 厂 是 用 语法 描述 的 产生 函数 的 最 小 不 动 点 。 产 生 函 数 的 全 集 是 所 有 用 一 , x 和 Top 
作为 标签 有 限 和 无 穷 树 的 集合 [也 就 是 说 ,不 考虑 最 后 两 个 条 件 . 对 定义 (21.2.1) 一 般 化 后 的 
集合 形式 ]。 若 用 最 大 不 动 点 代替 最 小 不 动 点 ,相同 的 产生 函数 可 推出 整个 集合 并 。 
21.2.2 练习 [推荐 ,*xx]: 根 据 前 文 提出 的 思想 ,假设 有 全 集 们 和 产生 范 数 Fe?P(V)-> 
?(U) 使 得 有 限 树 类 型 集合 Ti 是 忆 的 最 小 不 动 点 ,而 所 有 树 类 型 下 的 集合 是 它 的 最 大 
不 动 点 。 


21.3 子 类 型 





我 们 对 某 全 集 上 的 单调 函数 的 最 小 或 最 大 不 动 点 的 禁 类 型 及 有 限 树 类 型 定义 子 类 型 关 
系 。 对 有 限 树 类 型 的 子 类 型 ,全 集 指 的 是 有 限 树 序 对 集合 IT x IT ;产生 函数 将 该 全 集 的 子 集 
( 即 77 上 的 关系 ) 映 射 到 其 他 的 子 集 , 且 它们 的 不 动 点 也 将 是 Tr 上 的 关系 。 任 意 树 (有 限 或 无 
穷 ) 的 子 类 型 ,全 集 为 了 xT。 


21.3.1 定义 [有 限 子 类 型 ] :对 两 个 有 限 树 类 型 S 和 了 T, 如果 (S$,T)ers', 其 中 单调 函数 
SrE 丰 (了 T7/ 勾 T7) 一 了 (IT7 欠 T7) 定 义 为 : 
Sr(R) = {!TTop)1TEeI7} 
U _ {(Sl x5z,TixTz)1(S1,Ti)，(Sz,T2) ER} 
U _{(Sli 一 92, Ti 一 Tz) | (Tl,S1) (Sz,T2) ER}. 
那么 S 和 了 为 子 类 关系 ( 即 “S 是 T 的 一 个 子 类 型 ”)。 根 据 如 下 的 推论 规则 ,可知 该 产生 
函数 准确 地 反映 了 子 类 型 关系 的 标准 定义 ， 
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T <: Top 
S1 <: Ti 92 <: T2 
S1 x92 <: TI xT2 
Ti <: S1 S2 <: T2z 
S1-S2 < Ti 一 T> 
其 中 第 二 个 和 第 三 个 规则 横 线 上 边 的 语句 S <:T 可 读 为 “如 果 序 对 (S,T) 是 8 的 输入 参 
数 ”, 而 横 线 之 下 的 部 分 读 为 “那么 ($S,T) 就 为 结果 "”。 
21.3.2 ”定义 [无 穷 子 类 型 化 ] :对 两 个 树 类 型 (有 限 或 无 穷 )$ 和 T, 如 果 (S,T)ew, 其 中 
SET xT) 一 PP(TxT) 被 定义 为 ， 


SR) = {TTop)1TeT} 
U _ {(Six92,TI xT2) |(S1,TI)，(S2,T2z) GE 尺 } 
U_{(Si-Sz,Ti 一 Tz) |1(Ti,Si)， (S2,T2) E 尺 }. 


那么 S 和 T 为 子 类 型 关系 。 

注意 该 关系 的 推论 规则 表示 方式 与 上 面 的 归纳 关系 相同 :所 做 的 变动 就 是 考虑 一 个 更 大 

类 型 全 集 ,所 用 的 是 最 大 不 动 点 而 不 是 最 小 不 动 点 。 

21.3.3 ”练习 [x] :通过 列举 不 在 S 中 的 序 对 (S,T) ,验证 一 下 并 不 是 全 部 的 记 x 。 

21.3.4 ”练习 [xj :是否 存 在 与 WS 有 关 而 与 wS 无 关 一 个 类 型 序 对 (S,T)? 与 wy; 有 关 而 

与 wSy 无 关 的 类 型 序 对 (S, 人 存在 吗 ? 

无 穷 树 类 型 上 的 子 类 型 关系 一 个 基本 属性 , 即 传递 性 ,可 立即 被 证 明 ( 在 16.1 节 中 已 知 有 
限 类 型 的 子 类 型 具有 传递 性 )。 如 果子 类 型 关系 不 具 传递 性 ,那么 求 值 中 的 类 型 保持 关键 特性 
将 马上 失败 。 假 设 有 类 型 S,T 和 U, 其 中 $ <:T,T<:U, 但 不 满足 $ <:U。 设 s 是 类 型 $ 的 一 个 
值 ,f 为 类 型 U~Top 的 一 个 函数 ,那么 对 每 个 应 用 使 用 一 次 包含 规则 ,项 (x ;T.f)s 有 可 能 是 
可 类 型 化 的 ,但 是 实际 上 它 一 步 就 会 得 出 不 良 类 型 f s。 

21.3.5 ”定义 :如 果 尺 在 单调 函数 TR(R) = |1(x,y)13zed 且 (zx,z),(z,y)eRI 下 是 封 

闭 的 ( 即 欢 (R)S 玉 ) ,那么 关系 RESU xU 有 传递 性 。 


21.3.6 引 理 : 设 FeP(UxT1) 一 ?(x 也 ) 为 一 单调 函数 。 如 果 对 任意 尺 cU x V4 都 有 

7TRCFCR))SCFCTR(CR)) ,那么 吧 是 可 传递 的 。 

证 明 :因为 是 一 个 不 动 点 ,由 = R() 就 表示 了 (FF) = 琢 (CF(F))。 这 样 根据 引 理 

的 假设 有 了 (xyP)SR( 各 ())。 换 言 之 , 吕 ( 央 ) 是 下 一 致 的 ,因此 ,根据 共 归 纳 原则 ， 

IRCOED)S 严 。 等 价 地 ,根据 定义 (21.3.5) 严 有 传递 性 。 

这 条 引 理 会 令 人 回想 起 推论 系统 中 传递 规则 的 传统 宛 余 处 理 技术 ,通常 称 为 “eut 消去 证 
明 “〈 参 见 16.1 节 )。 条 件 ?六 (F(R))ESRCIR(R)) 对 应 于 技术 中 至 关 重 要 的 一 步 ;, 应 用 严 中 
的 规则 ,然后 运用 了 琶 传递 性 的 规则 ,从 届 的 某 些 语句 中 可 得 出 一 个 特定 的 语句 ,而 换个 方式 ， 
我 们 认为 这 条 语句 还 可 以 通过 相反 的 步骤 得 到 一 一 首先 运用 7R 传递 性 的 规则 ,然后 才 是 下 
的 规则 。 运 用 这 个 引 理 来 建立 子 类 型 关系 的 传递 性 。 
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21.3.7 “定理 :9 具有 传递 性 。 


证 明 :根据 引 理 (21.3.6) ,可 以 证 明 对 任意 RST x7T ,都 满足 ?RS(CR))SSCTR(CR))。 
设 (S,TD)e PR(SCR))。 根 据 豆 的 定义 ,存在 某 个 UET 使 得 ($,U),(U,T) ES(R)。 我 
们 的 目的 就 是 证 明 (S,T)eS(TR(R))。 下 面 考虑 一 下 [的 可 能 形式 ， 

情况 ，U = Top 
因为 (U,T)jeS(R),S 的 定义 表明 T 必 为 Top。 但 是 对 于 任意 A 和 Q 都 有 (A,Top)e 
S(O0); 特 殊 的 情况 为 ,(S,T) = (S,Top)sS(7TR(R))。 

情况 ， U= U xuz 
如 果 了 = Top, 那 么 就 如 前 一 种 情况 一 样 (S,T)eS(? 吕 (CR))。 否 则 (U,T)eSCR) 意 味 着 
T= 了 T x, 其 中 ,(U,T), (UDP)eR。 同 理 ,(S$S,U)eS(CR) 说 明 S=S xsS, 其 中 ， 
(SU),(S9,U)eR。 根 据 玲 的 定义 ,我 们 可 以 从 8 的 定义 推导 出 的 (S x S， 
Tixmp)esSCRCR)) 中 得 出 (S Ti) (SP) ETR(CR)。 

情况 : LU=Ui-Uz 
同 理 可 证 。 
21.3.8 练习 [推荐 ,**xxj] :证 明 无 穷 树 类 型 的 子 类 型 关系 也 具有 自 反 性 。 


在 下 一 节 中 ,将 通过 对 有 限 类 型 的 标准 子 类 型 化 的 处 理 方法 和 现 有 的 无 穷 树 类 型 的 子 类 
型 化 方法 的 比较 ,继续 讨论 传递 性 。 第 一 次 阅读 时 ,可 以 跳 过 本 节 或 只 做 浏览 。 


21.4 传递 性 的 偏离 


第 16 章 讲 到 了 归纳 定义 子 类 型 关系 的 标准 形式 有 两 种 :为 提高 可 读 性 而 采用 的 声明 性 表 
示 方 式 和 或 多 或 少 面向 实现 的 算法 表示 方式 。 在 简单 的 系统 中 ,这 两 种 表示 方式 基本 上 相似 ; 
但 对 更 复杂 的 系统 ,它们 就 完全 不 一 样 了 , 若 要 证 明 它 们 定义 的 是 类 型 上 相同 的 关系 ,将 是 一 
件 极 具 挑 战 性 的 事 (第 28 章 将 就 这 一 点 举 了 个 例子 ;其 他 的 都 已 经 学 到 过 ) 。 

声明 性 表示 与 算法 表示 之 间 一 个 最 罕 出 的 不 同 点 就 是 :声明 性 表示 中 包含 了 一 个 明确 的 
传递 性 规则 (如 果 S <:U 且 U <:T, 那 么 S <:T) ,而 算法 系统 却 不 是 这 样 。 该 规则 在 算法 系统 中 
根本 用 不 上 ,因为 以 面向 目标 的 方式 总 会 引起 对 U 的 猜测 。 

在 声明 性 系统 中 ,传递 性 规则 起 了 两 个 重要 的 作用 :(1) 它 使 读者 明白 子 类 型 关系 的 确 是 
传递 性 的 ; (2) 传 递 性 使 其 他 的 规则 处 于 一 种 更 简单 .更 原始 的 形式 ,而 在 算法 表示 中 ,这 些 简 
单 的 规则 必须 穷尽 所 有 的 组 合 方式 以 形成 复杂 的 数 以 百 万 条 的 规则 ,这 样 才能 将 每 种 可 能 出 
现 的 情况 考虑 清楚 。 例 如 ,有 了 传递 性 规则 ,记录 字段 内 的 “深度 子 类 型 化 "规则 增加 新 字段 
的 “宽度 子 类 型 化 "规则 和 字段 的 “置换 "规则 都 可 以 单独 描述 ,以 便于 理解 (参见 15,2 节 )。 若 
不 用 传递 性 规则 ,这 3 条 规则 必须 合并 为 一 条 一 次 可 以 完成 宽度 深度 和 置换 功能 的 规则 ,如 
在 16.1 节 中 所 见 。 

还 有 一 点 令 人 感到 停 讶 的 是 ,在 声明 性 表示 中 加 入 了 传递 性 规则 可 能 会 造成 类 似 于 归纳 
定义 (不 包括 共 归 纳 ) 带 来 的 技巧 上 的 影响 。 原 因 是 ,传递 性 其 实 是 一 个 闭 包 的 性 质 , 它 要求 传 
递 规则 下 的 子 类 型 关系 是 封闭 的 。 因 为 有 限 类 型 的 子 类 型 关系 本 身 定义 为 规则 集 的 闭 集 形 
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式 , 所 以 可 以 很 自然 地 将 传递 的 封闭 性 用 到 其 他 的 规则 中 。 这 形成 了 归纳 定义 和 闭 包 性 质 的 
一 般 化 性 质 : 当 归纳 地 将 两 个 规则 集合 并 时 ,会 产生 各 自 规 则 所 封闭 的 最 小 关系 。 利 用 产生 冰 
数 可 将 该 结论 进一步 抽象 化 ,形式 化 。 

21.4.1 命题 : 设 普 和 6 为 单调 函数 , 且 妃 ( 于 ) = F(E)U CG(E) , 则 5 为 满足 屎 封闭 和 C 

封闭 的 最 小 集合 。 

证 明 :(1 说 明 z 刀 在 下 和 C 均 为 封闭 的 。 根 据 定 义 知 六 = 瓦 (ur 好) = FE)U CGO) ,所 

以 有 F(uBD)SA 诡 和 C(AP)SAB;(2) 还 要 说 明 px 如 是 已 和 6G 下 的 最 小 封闭 集合 。 设 存在 

集合 蕊 使 得 FCXY)SX 且 C(XE)E 天 ,那么 有 鼠 (X) = PT)U CC(E)ESX, 也 就 是 说 天 是 已 封 

闲 的 。 因 为 pz 刀 是 最 小 的 总 闭 集 ( 根 据 KnasterTarski 定理 ), 所 以 有 已 SX。 

遗憾 的 是 ,这 种 传递 封闭 性 的 处 理 技巧 对 共 归 纳 定义 不 起 作用 。 如 下 的 练习 可 说 明 ,在 产 
生 共 归纳 定义 关系 的 规则 中 添加 传递 性 规则 往往 会 得 出 一 种 退化 的 关系 。 

21.4.2 练习 [*] :假设 尺 是 全 集中 的 一 个 产生 函数 。 证 明 产 生 函 数 ; 

FTR(R) = F(R) WU TITR(OR) 
的 最 大 不 动 点 FT 是 xTV 上 的 全 关系 。 
所 以 谈 到 共 归 纳 时 ,我 们 不 考虑 声明 性 表示 ,而 只 讨论 算法 表示 。 


21.5 成 员 检查 


现在 把 话题 转向 本 章 的 中 心 : 给 定 某 全 集 人 上 的 产生 函数 严 和 元 素 xe 也 ,该 如 何 判断 % 
是 否 会 落 在 下 的 最 大 不 动 点 中 。 对 最 小 不 动 点 的 成 员 检查 将 更 简捷 (参见 练习 21.5.13)。 
通常 一 个 元 素 xEV 可 通过 很 多 方法 由 严 产 生 。 也 就 是 说 ,可 以 有 不 止 一 个 集合 三 ET， 
满足 xe F(TX)。 称 这 种 集合 站 为 x 的 一 个 产生 集 。 由 于 下 的 单调 性 ,任何 * 的 产生 集 的 超 集 
也 是 * 的 一 个 产生 集 , 因 此 ,将 注意 力 放 在 最 小 的 产生 集 上 有 一 定 的 意义 。 更 进一步 ,要 把 注 
意 力 放 在 一 秘 “ 可 逆 " 的 产生 函数 上 ,其 中 每 个 * 最 多 只 有 一 个 最 小 产生 集 。 
21.5.1 定义 :如 果 对 所 有 的 xe 人 , 艇 集 : 
GCxr={XSsTIxEeRFX)} 
要 么 为 空 ,要 人 么 包含 一 个 惟一 的 为 其 他 所 有 集合 的 子 集 的 元 素 , 则 该 产生 函数 严 称 为 可 
逆 的 。 当 下 可 逆 时 ,部 分 函数 wpportre1->?P(U) 定 义 如 下 ; 
X 让 XeEGxandVX ECG 克 EX 
SUPPOrtF (X) = | 1 ifcv=g 
SUPDPDOFE 函数 可 以 写成 集合 的 形式 : 


7 j ， 
SupportF (X) -| Tex aupp0 F(X) YX 和 < SUPPportF (X)1 


如 果 严 在 上 下 文中 是 明确 的 ,那么 可 以 将 supportr 下 方 的 下 省 略 (类 似 于 后 面 定义 到 的 基 
于 三 的 函数 )。 
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21.5.2 ”练习 [xx]: 证 明定 义 (21.3. 切 和 定义 (21.3.2) 中 的 子 类 型 关系 的 产生 函数 S% 和 
S 是 可 逆 的 ,并 给 出 它们 的 支持 函数 。 


我 们 的 目标 是 提出 一 个 检查 产生 画 数 尺 的 最 大 和 最 小 不 动 点 中 成 员 的 算法 。 算 法 中 最 基 
本 的 一 步 包括 “逆向 执行 : 为 了 检查 元 素 x* 的 成 员 关 系 ,需要 得 知 x* 是 如 何 从 玉 中 产生 的 。 
屎 可 逆 的 优势 就 是 最 多 只 有 一 种 产生 * 的 方式 。 而 对 于 不 可 逆 的 严 ,x 可 通过 多 种 方式 产生 ,这 
样 会 造成 算法 所 经 过 的 路 径 形 成 组 合 爆炸 。 所 以 从 现在 起 , 仅 限 于 讨论 可 逆 的 产生 函数 。 


21.5.3 定义 :假如 spportr(x) ， ,那么 元 素 * 就 是 下 支持 的 ,否则 就 是 亚 不 支持 的 。 如 
果 sapporr(x)= 弛 ,那么 下 支持 的 元 素 被 称 为 严 基 。 


注意 ,因为 对 每 个 了, 基 x 都 在 下 (X) 中 ,所 以 对 任意 对 ,不 支持 元 素 x 不 出 现在 R(X) 中 。 

一 个 可 逆 函 数 可 以 用 支持 图 来 形象 化 表示 。 例 如 ,图 21.2 定义 了 全 集 1a ,pcdse, 六 g 天, 
上 的 函数 无 ,用 来 指明 哪些 元 素 需 要 支持 给 定 全 集中 的 元 素 : 对 给 定 的 x* ,集合 supporg(x) 包 
含 所 有 y ,满足 存在 从 x 指向 y 的 箭头 。 不 支持 元 素 用 带 短 斜 线 的 圆圈 表示 。 在 这 个 例子 中 ， 
; 是 惟一 的 不 支持 元 素 ,而 g 是 惟一 基 元 素 ( 注 意 :根据 我 们 的 定义 ,六 是 支持 的 ,即使 它 的 支 
持 集 包 括 了 一 个 不 支持 的 元 素 )。 


21.5.4 练习 [*]: 如 例 21.1.3 中 所 示 ,给 出 该 函数 相应 的 推论 规则 。 验 证 严 (12，,cf) = 
gayd Elai)=fg,i ,及 在 图 中 表明 为 正和 中 的 部 分 ,确实 为 已 的 最 小 和 最 
大 的 不 动 点 。 


观察 图 21.2 可 知 , 当 且 仅 当 支 持 图 中 不 存在 * 可 达 的 不 支持 元 素 , 则 元 素 * 为 最 大 不 动 
点 。 这 表明 检查 * 是 否 在 风 中 的 算法 策略 ;列举 出 所 有 通过 支持 函数 从 * 出 发 可 达 的 元 素 ; 
如 果 其 中 含有 不 支持 元 素 ,那么 * 就 不 在 中 中 ;否则 ,x 在 凤 中 。 注 意 到 ,尽管 图 中 的 元 素 之 
间 存 在 一 些 可 达 的 循环 ,列举 过 程 中 要 注意 不 要 陷 人 死 循环 。 在 接 下 来 的 部 分 中 , 仍 要 注意 
这 一 点 。 


\ 一 -一 一 -~ 一 -一 -一 一 


图 21.2 支持 函数 


21.5.5 定义 :假设 玉 是 一 个 可 道 的 产生 函数 。 定 义 布 尔 函 数 蚤 (或 简写 为 哆 ) 如 下 @， 
gp(X) = 让 Support(X) Tthen else 
else 计 SUpPport(X) < X, then true 
else gjP(Support(X) UNX)， 


@ 这 里 对 递归 函数 的 定义 采用 标准 的 符号 , 即 鹃 是 满足 等 式 的 最 小 偏 冰 数 。 该 函数 本 身 可 看 成 是 合适 的 产生 函数 
的 最 小 不 动 点 。 任 何 指称 语义 的 文章 都 对 该 函数 进行 了 详细 讨论 , 如 Cunter(1992) ,Winakel(1993 ) 或 Mitchell 
(1996)。 
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直观 地 讲 , 哆 从 天 出 发 ,不 断 用 支持 函数 强化 它 , 直 到 它 变 得 一 致 或 者 找到 一 个 不 支持 
元 素 。 通 过 公式 蚊 (xz) = 用 (lai) 可 将 蛇 扩展 为 个 别 元 素 。 

21.S.6 练习 [*]: 从 图 21.2 中 还 可 得 出 的 结论 ,就 是 并 的 元 素 * 出 现在 支持 图 的 循环 
中 ,那么 它 不 是 AF 的 元 素 ( 或 者 存在 一 条 从 * 通 往 循环 中 其 他 元 素 的 路 径 )。 反 之 也 成 
立 吗 一 一 也 就 是 说 ,如 果 元 素 * 是 x 的 成 员 而 不 是 wF 的 成 员 ,那么 它 也 可 能 有 通 往 循 
环 的 途径 吗 ? 

接 下 来 的 部 分 将 致力 于 证 明 师 的 正确 性 和 可 终止 性 (第 一 次 阅读 的 人 可 以 跳 过 这 些 内 





容 而 直接 读 下 一 节 )。 我 们 从 wppor 函数 的 一 些 特性 开始 讨论 。 


止 。 





21.5.7 引 理 : 当 上 且 仅 当 supporr(X) +， 且 sapporr(E)S 了 ,大 ER(7) 成 立 。 

证 明 :需要 证 明 , 当 且 仅 当 spor(z)y 且 spot(z)S 了 时 xc 天 (7Y)。 首 先 假 设 xe 大 (六 )。 
于 是 Yee. = 的 SUIxEFE(T) 用 即 C 关 O。 因 为 下 可 道 , 所 以 C. 中 的 最 小 集 suppor(x) 存 
在 , 且 sppor(x)SE 了 Y。 反之 ,根据 单调 性 ,如 果 spor(z)SE 了 了 , 则 亚 (supor(x))E 严 (了 )。 
但 是 根据 支持 函数 的 定义 知 xe 严 (szppor(xz)) ,所 以 xeF(7)。 

21.5.8 引 理 : 假设 忆 是 尺 的 一 个 不 动 点 。 那 么 于 E 尸 当 且 仅 当 suppot(E) y 且 
SupPportF(X)S PP。 

证 明 : 根 据 忆 = 必 (CP), 并 运用 引 理 (21.5.7) 即 可 得 证 。 

现在 我 们 可 以 证 明 蚁 的 部 分 正确 性 (我 们 还 没有 考虑 到 它 的 完全 正确 性 ,因为 一 些 产生 


函数 会 使 呢 产生 某 些 歧义 。 在 本 节 的 后 一 部 分 将 证 明 产生 函数 的 受 限 类 的 可 终止 性 )。 


21.5.9 定理 : 

1. 如 果 人 pr(T) =tme, 那 么 开 SEvF。 

2. 如 果 蚁 5(XZ) = false, 那 么 怀 &F。 

证 明 : 通 过 递归 结构 运行 算法 的 归纳 来 证 明 每 个 命题 。 

1. 从 蚁 的 定义 中 很 容易 得 知 有 两 种 蚁 (X) 返 回 真 值 的 情况 。 如 果 呈 (T) = tmue 是 由 
于 suppor(X)ESX, 那 么 根据 引 理 (21.5.7), 有 无 SF(X), 即 工 是 下 一 致 的 ;这 样 根 据 共 
归纳 原则 可 知 下 < PP。 另 一 方面 ,如 果 蚁 (T) = ne 是 由 于 旷 (support( 了 )U 大) = 
true ,那么 由 归纳 假设 ,有 support(XT)U 三 SI 开 ,所 以 工 EvF。 

2. 间 样 ,也 有 两 种 使 驳 (T) = foise 的 方法 。 假 设 第 一 种 蚁 (IT) = jlse 是 因为 support 
(ZE) 人 。 那 么 根据 引 理 (21.5.8) 可 知 下 民 。 另 一 种 假设 使 蚁 (T) = /akse 的 原因 是 
驹 (sppot(T)U) = lse。 根 据 归纳 假设 ,有 suppor(X)U 到 开 。 等 价 地 ,开工 轨 
或 wpport (于 )E 天 。 无 论 哪 种 都 可 得 出 硅 &wF[ 第 二 种 情况 还 要 根据 引 理 (21.5.8) ]。 


接 下 来 我 们 确定 蚁 的 一 个 完全 终止 的 条 件 ,给 出 一 类 产生 函数 使 它 的 算法 能 够 保证 终 
为 了 描述 这 个 类 ,我 们 还 需要 一 些 术 语 。 
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21.S$.10 定义 :给 定 可 逆 产 生 函 数 尺 和 元 素 xEcV,x 的 直接 前 驱 集 合 predr(x)( 或 简写 为 
pred(x)) 为 : 
， 他 这 Support(x) 1 
Pred(x) -| Support(X) 证 Support(x)1 
对 集合 盛 < 袜 的 扩展 定义 为 : 
pred(X) = 【jpred(x)， 


XEA 
通过 支持 函数 从 集合 工 出 发 可 达 的 所 有 元 素 的 集合 reachabler (了 )( 或 简写 为 reaahabje( 厂 ) ) 为 : 
reachapile(X) = 【jpredn(). 


ME0 

对 单个 元 素 x<1 的 扩展 定义 为 : 

reachapble(x) = reachnazplje([{xX]). 
如 果 ye reachable (x ) ,那么 元 素 yEV 从 >* 出 发 是 可 达 的 。 
21.S.11 定义 :如 果 对 任 一 *EU，,reachabie(x) 是 有 限 的 ,那么 可 逆 产 生 函 数 严 也 可 称 为 
是 有 限 状 态 的 。 
对 有 限 状 态 的 产生 函数 而 言 ,因为 蚁 的 搜索 空间 有 限 ,所 以 蚁 通常 都 可 以 终止 。 
21.S$.12 定理 :如 果 recchaber(T) 是 有 限 的 ,那么 哆 ; (了 T) 就 可 以 定义 。 因 此 ,如 果 下 是 
有 限 状态 ,那么 对 任意 有 限 集 XSD ,se 加 5(TZ) 都 可 终止 。 
证 明 : 对 原 有 的 蚁 (Z) 产 生 的 调用 图 中 的 每 个 递归 调用 蚁 (7) ,可 得 到 了 SS reachable(X)。 
而 且 , 每 次 调用 了 都 严格 递增 。 由 于 reachobe (8) 有 限 ,mm(7) = 1reachpape (TY -17YI 
可 作为 衡量 efpo 可 终止 的 手段 。 


21.5.13 ”练习 [xsx] :假设 亚 是 一 可 逆 产 生 函数 ,函数 态 ,( 或 简写 为 态 ) 定 义 如 下 : 


jiPP(X) = 让 Support(X) 1 then Folse 
else 论 X = 四 , then trwe 
else | 屿 (Support(X))， 


直观 上 说 , 网 从 集合 瑟 开 始 ,利用 支持 关系 约 简 它 ,直至 为 空 。 根 据 ， 
1. 如 果 访 5(T) = tnue ,那么 三 EpF。 
2. 如 果 访 r(T) = Jolse ,那么 X&IF。 


这 个 算法 被 证 明 是 部 分 正确 的 。 你 能 和 否 找到 一 能 产生 函数 ,以 保证 狗 , 对 所 有 有 限 输入 
都 能 终止 ? 


.6 ”更 高 效 算法 
尽管 哆 算法 是 正确 的 ,但 是 它 的 效率 却 并 不 高 ,因为 在 每 次 进行 递归 调用 时 , 它 都 要 重 


新 计算 整个 集合 下 的 支持 函数 。 比 如 在 图 21.2 中 ,函数 瑟 的 酌 的 踪迹 ; 
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gp({faj) 
9 访 ({a 记 ch) 
9g1fp(faDpce, 六 9]) 
9gp({fa pce, 六 gdj) 
true. 


显然 , support(a) 被 计算 了 4 次 。 可 以 保持 假设 集 4( 它 的 支持 集 已 经 被 考虑 了 ) 和 目标 集 邢 
( 它 的 支持 集 未 被 考虑 ) ,这 样 就 能 减少 计算 次 数 从 而 改进 算法 。 
21.6.1 定义 :假设 忆 为 一 可 闭 的 产生 郴 数 。 定 义 函 数 蚤 8 或 简写 为 蚁 * ) 如 下 (其 中 上 
标 w 代表 assumptions ) ， 


gjp2(4,X) = 下 sapport(X) Tthen Jaise 
else 让 X = 名 , then trae 
else gj (4UX Support(XE) (4UX)). 


为 了 检查 xe ,应 计算 县 (人 ,ix 上 )。 


此 算法 (如 本 节 中 的 后 两 个 算法 ) 计 算 每 个 元 素 的 支持 函数 至 多 一 次 。 前 一 例子 的 计算 
踪迹 为 ; 


盾 直 由 旧 


gpp20O, faj) 

gj (laj fbch) 
gfjpalfap,cl fe,9g]) 
gj (fapce,rgj, fd]) 
gfp (fabcef,g,d],O) 
true. 


很 显然 ,此 算法 比 前 一 节 我 们 看 到 的 算法 稍微 精巧 一 些 。 
21.6.2 定理 


1. 如 果 supporr(4)S4uU 天 目 gjpr(4,X) = ine, 则 有 4U 开 SF。 
2. 如 果 旷 804, 工 ) = /abse , 则 有 开 民 FF。 
证 明 : 同 定理 (21.$.9)。 


本 节余 下 的 部 分 将 检查 鲍 算法 的 两 种 改进 算法 ,使 它们 与 递归 类 型 熟知 的 子 类 型 算法 
更 为 接近 。 第 一 次 阅读 的 人 可 以 直接 跳 到 下 一 节 。 


21.6.3 定义 :对 蚁 " 的 小 小 变化 是 从 X 中 一 次 选 一 个 元 素 并 扩展 它 的 支持 函数 后 的 算 
法 。 新 的 算法 被 称 为 哆 #( 或 简写 为 u' ,* 代表 single): 


gjzr(4,X = 让 X= G@,then true 
else let x be some element of X in 
证 xE4then gj(4,XNVfx]) 
else f Support(x) 1 then false 

else gjz(4u fx (KUsupport(x)) (AU {x])). 


此 算法 的 正确 性 (比如 ,递归 “ 环 " 的 不 变性 ) 与 定理 (21.6.2) 完 全 相同 。 
与 上 面 算法 不 同 的 是 ,许多 递归 子 类 型 化 算法 用 一 个 备 选 元 素 , 而 不 是 一 个 集合 作为 参 


一 一 一 
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数 。 对 上 面 的 算法 做 小 小 的 改动 能 使 之 更 接近 于 这 些 算法 。 修 改 的 算法 不 再 是 尾 递 归 吕 , 因 
为 它 用 调用 栈 来 保存 还 未 检查 的 下 一 个 目标 。 另 一 个 变化 是 ,算法 将 假设 集 4 作为 一 个 参 
数 ,并 返回 一 个 新 的 假设 集 作 为 结果 。 这 就 允许 它 在 全 递归 调用 中 记录 下 已 经 产生 的 子 类 型 
化 假设 ,并 在 后 面 的 调用 中 重用 。 效 果 上 ,假设 集 从 算法 名 8 多: 开始 通过 递归 调用 图 进行 
整理 。 


21.6.4 定义 :给 定 一 可 逆 产 生 函 数 亚 , 定 义 蚁 5( 或 简写 为 蚁 条 如 下 : 


9g1p(4,x) = 让 xe4,then4 
else 二 SUPpPport(x) 1 then 7 
else 
let {x1 ,xn = SUpPport(X) 记 
let 4o = 4U fx in 
let 41 = gjp!(4o,xl) im 


iet An = 9gjpL(4n_1xn) 也 

4n。 
为 了 检查 xE ,应 计算 上 (CC,x)。 如 果 调 用 成 功 , 则 xe 驱 , 和 否则 ,x e。 如 果 失 败 
我 们 有 如 下 约定 :如果 表达 式 下 失败 ,那么 "let 4 = B in C" 也 失败 。 这 就 避免 了 对 每 个 
纺 ' 的 递归 调用 明确 写 明 "异常 处 理 ” 的 子 句 。 
此 算法 正确 的 语句 必须 在 以 前 的 基础 上 进行 修改 ,通过 给 元 素 ( 其 支持 函数 仍 有 待 检查 ) 

设 定 一 个 额外 的 “ 栈 " 下 ,以 此 来 考虑 该 公式 的 非 尾 递归 特性 。 

21.6.$S 引 理 : 
1. 如 果 蚁 rc(4,z)=4 ,那么 4UlxziS4'。 
2. 对 所 有 革 , 如 果 有 sporr(4)Ss4UXUzi 且 pr(4,x)=4 ,那么 apportr(4)S4UTT。 
证 明 : 第 (1) 部 分 是 对 运行 算法 递归 结 梅 的 常规 归纳 。 
第 (2) 部 分 也 是 通过 对 运行 算法 递归 结构 的 归纳 。 如 果 xe4 ,那么 4 =4, 且 由 假设 可 立 
郭 得 出 想 要 的 结论 。 另 一 方面 ,如 果 4' 却 4, 而 且 还 考虑 特殊 情况 : sppor(x) 含 有 两 个 
元 素 和 加 一 般 的 情况 (此 处 不 证 明 ) 证 明 原 理 相 似 , 对 suport(x) 的 长 度 进行 内 


部 归纳 。 算 法 计算 4u,4, 和 4; ,并 返回 4;,。 对 任意 加 ,我 们 想 要 证 明 : 如 果 suppor(4)S 
4Ulxilu 和 ,那么 support(4)E4 U 和 。 设 各 = 各 Ulzl。 因为 : 








SPPOIT(4) UV SPPOFT(X) 
SUHPPO(A) U {xlxX2)} 
4UfXuXouw fxxz} 
40oUXoU {xix2} 
4ouxu fx 


SUPPO7T(40) 


tmnnukh NI 


中” 尾 递 归 调 用 (或 称 为 尾 调用 ) 指 一 个 递归 调用 ,是 调用 函数 的 最 后 行为 , 即 递归 调用 返回 的 结果 也 是 调用 者 的 结果 。 
尾 调用 很 有 意思 , 因为 大 部 分 函数 语言 的 编译 器 都 把 尾 调用 当成 一 个 小 的 分 支 , 通 过 重用 调用 者 的 栈 空间 而 不 是 
为 递归 调用 分 配 一 个 新 栈 。 这 意味 着 尾 递归 调用 循环 将 被 编译 为 与 while 循环 等 价 的 机 器 代码 。 
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通过 将 把 下 实例 化 为 不 ,可 以 对 第 一 次 递归 调用 归纳 假设 。 这 就 得 出 sapor (4， ) 
<s4U8E=4uUlxiu DZ。 现 在 我 们 可 以 通过 把 下 实例 化 为 负 , 对 第 二 次 递归 调用 进 
行 归纳 假设 ,并 得 出 所 要 的 结果 :support(4, )S4, U 和 na。 


21.6.6 定理 : 
1. 如 果 sjor(Cxz) = 4 ,那么 zxeyE。 


2. 如 果 旷 r(Cx) = 帮 2 ,那么 yx 攻 丰 。 


证 明 : 第 (1) 部 分 ,用 引 理 [21.6.5(1)] ,得 出 xe4'。 对 引 理 [21.6.5(2)] 用 和 = 实例 化 ， 
得 出 swppor(4')s4 , 即 根据 引 理 (21.5.7) ,4 是 下 一 致 的 ,因此 由 共 归 纳 还 有 4 ESyF。 
对 第 (2) 部 分 ,我 们 认为 [通过 引 理 (21.5.8)] ,对 吸 # 算法 的 深度 进行 简单 归纳 了 对 某 些 


4, 如 果 8jpx(4,x) = Hi ,那么 x 并 。 


因为 本 节 中 所 有 的 算法 都 要 检查 可 达 集 (reachahle set) ,所 有 算法 的 终止 条 件 都 与 原始 算 
法 的 条 件 相 同 : 当 屎 有 限时 ,对 所 有 的 输入 都 能 终止 。 


21.7 正则 树 


此 时 ,我们 已 经 将 检查 集合 中 成 员 关 系 的 通用 算法 定义 为 产生 函数 屎 最 大 不 动 点 的 集 
合 , 并 假设 玉 是 可 道上 且 有 限 的 ;另外 ,还 说 明了 如 何 将 无 穷 树 之 间 的 子 类 型 化 定义 为 一 个 特殊 
产生 函数 $ 的 最 大 不 动 点 。 下 一 步 显 然 就 是 用 $ 将 其 中 一 个 算法 实例 化 。 当 然 ,该 具体 的 算 
法 不 会 对 所 有 的 输入 都 终止 ,因为 通常 给 定 的 一 对 无 穷 类 型 的 可 达 状 态 集合 可 以 是 无 穷 的 。 
但 是 ,将 在 本 节 中 看 到 ,如 果 只 考虑 某 种 良 行为 形式 上 的 无 穷 类 型 , 称 为 正则 树 ,那么 可 达 状态 
的 集合 将 确定 为 有 限 的 ,并 且 子 类 型 的 检查 算法 也 将 是 可 以 终止 的 。 


21.7.1 定义， 

对 树 类 型 S 和 T, 如 果 对 某 x 有 S= )Xc,T(nr,c) 也 就 是 说 ,对 从 路 径 到 符号 的 函数 S， 
如 果 能 够 通过 给 T 的 参数 路 径 添加 某 个 常量 前 级 x 来 得 到 , 则 S$ 是 T 的 一 棵 子 树 ;前 级 
相当 于 从 了 的 根 到 $ 的 根 路 径 。 我 们 把 所 有 子 树 下 的 集合 写 为 subirees(T)。 


21.7.2 ”定义 :如 果 subtrees(T) 是 有 限 的 , 即 T 有 有 限 多 的 不 同 子 树 , 那 么 树 类 型 Te 二 就 
是 正则 的 。 正 则 树 类 型 的 集合 写 为 T, 。 


21.7.3 例子 : 

1. 任意 有 限 树 类 型 都 是 正则 的 ;不 同 子 树 的 数目 最 多 为 节点 的 数目 。 树 类 型 的 不 同 子 树 
的 数目 严格 小 于 节点 数目 。 比 如 ,T= Top->(Top x Top) 具 有 5 个 节点 但 只 有 3 棵 不 同 
的 子 树 (T,Top x Top 和 Top)。 

2. 某 些 无 穷 树 类 型 是 正则 的 。 比 如 树 ; 

T=Top x (Top x (Top x .…')) 

仅 有 2 棵 不 同 的 子 树 (7 和 Top)。 

3. 树 类 型 ， 

T=Bx(Ax(Bx(AXx(Ax(Bx(Ax(Ax(Ax(CBx..) 
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当 连 续 的 每 对 B 被 逐渐 增多 的 A 分 隔 后 , 它 就 不 是 正则 的 。 因 为 了 为 非 正 则 的 ,所 以 
包含 子 类 型 序 对 的 集合 reackuble,(T,T) 需 要 证 明 T<:T 是 无 穷 的 。 


21.7.4 命题 :产生 函数 $ 对 正则 树 的 限定 函数 S, 是 有 限 的 。 

证 明 : 需 要 证 明 对 正则 树 类 型 的 任意 序 对 (S,T) ,集合 reochables (S,T) 都 是 有 限 的 。 注 意 
到 reachabie: (S,T)Ssubtrees(S) x subtzrees(T); 因为 subirees(S) 和 subtprees(T) 都 是 有 限 的 ， 
subirees(S) x subirees(T) 也 是 有 限 的 。 


这 就 意味 着 可 以 通过 将 某 个 成 员 算 法 用 $ 实例 化 后 得 到 正则 树 类 型 上 的 子 类 关系 的 一 
个 判定 过 程 。 自 然 地 ,在 实际 的 执行 中 ,正则 树 必 须要 由 一 些 有 限 结构 来 表示 。 其 中 一 种 表示 
方法 一 一 "符号 ,将 在 下 一 节 中 讨论 。 


21.8 类 型 


本 节 讨 论 有 限 靖 符号 ,定义 六 表达 式 上 的 子 类 型 化 ,并 将 这 种 子 类 型 与 树 类 型 的 子 类 型 联 
系 起 来 。 


21.8.1 定义 : 设 X 为 一 个 类 型 变量 的 可 数 集 |1X ,X | 。 原 始 六 类 型 的 集合 和 ”依据 
如 下 语法 定义 ; 
T ?= X 
Top 
TXT 
T-T 
HHX.T . 
语法 算 子 上 是 一 个 绑 定 器 , 它 以 标准 的 方式 将 团 变 量 和 自由 变量 ,封闭 原始 类 型 及 与 原始 
上 类 型 等 价 的 概念 以 转变 量 的 形式 重 命名 。 用 到 (T) 来 表示 原始 ， 类 型 的 自由 变量 集 。 在 
原始 # 类 型 T 中 ,对 XXX 自 由 出 现 的 地 方 ,照样 可 以 定义 避免 捕获 代 换 [X -~ S]T。 
原始 # 类 型 必须 稍 加 限制 以 获得 与 正则 树 紧 密 的 对 应 ;我 们 希望 能 够 用 ， 类 型 的 无 穷 
展开 的 形式 很 快 读 出 树 类 型 ,但 是 仍 存在 某 些 无 法 可 车 地 解释 为 树 类 型 表示 方式 的 原始 “类 
型 。 这 些 类 型 有 形 如 | 以 ,上 …HAX,,X, 的 子 表达 式 ,其 中 从 X 到 X, 都 与 X 不 同 。 举 例 来 
讲 ,对 了 = / 必 .X,T 后 展开 再 次 出 现 新 的 T, 所 以 不 能 通过 下 的 展开 来 通读 树 。 因 此 提出 了 如 
下 定义 。 
21.8.2 ”定义 :如 果 对 于 任 一 形 如 必 .AX…/ 必 。.S 的 T 的 子 表达 式 ( 其 中 S 不 是 X) ,原始 
A 类 型 了 是 收缩 的 。 等 价 地 ,如 果 类 型 体 中 每 个 六 转变 量 的 出 现 都 是 用 -> 或 x 与 其 绑 定 
器 分 隔 开 的 , 则 该 原始 关 类 型 为 收缩 的 。 
如 果 原 始 类 型 是 收缩 的 ,那么 可 直接 简称 为 上 类型。 类 型 的 集合 记 为 荆 , 。 
当 了 是 一 个 睛 类 型 时 ,在 T 前 用 六 jeig 乱 (T) 来 表示 六 绑 定 的 次 数 。 


通常 将 关 类 型 作为 无 穷 正 则 树 的 有 限 概念 表示 形式 ,定义 如 下 : 
21.8.3 定义 :函数 treeof ,将 闭 上 类 型 映射 为 树 类 型 ,归纳 定义 如 下 ， 
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freeof (Top)(e) = Top 
treeof (Ti 一 T2)(e) = 一 
treeof(TI-Tz)(irr) = treeof(Ti)(T) 


freeofF(TI xT2)(e) X 
treeof (TEXTz)DTr) treeof (Ti)(T) 


treeof(HX.T)(Tr) = freeofr([X 一 HX.T]T)(OT) 

为 了 证 明定 义 可 靠 性 ( 即 可 终止 的 ) ,应 注意 如 下 ， 

1. 对 右 端 teeef 进行 递归 可 减少 序 对 (1xl ,mpeie 有 (IT)) 的 词典 长 度 :S->T 和 SxT 的 情况 
会 减少 Irl ,而 AX.T 保 留 了 1zxj 但 减少 了 peiekz(T。 

2. 所 有 的 递归 调用 都 会 保持 参数 类 型 的 收缩 性 和 闭 包 性 。 尤 其 是 当 且 仅 当 类 型 芭 .T 的 
展开 式 [X 一 JI 以 .TT 为 收缩 且 封 财 时 ,AX.T 也 为 收缩 旦 封闭 的 。 这 就 为 teeof(p5X.T) 
定义 的 展开 做 出 了 判断 。 

可 在 treeof 函数 中 加 和 人 类 型 序 对 (S,T) ,并 定义 treeof(S,T) = (treeor(S) ,treeor(D)。 


将 teeef 应 用 到 关 类 型 的 例子 如 图 21.3 所 示 。 


treeof(ux. (CCxTop)-XD) = 人 
1 [/ Na 2 和 


一 Top 


2 
YY 


Top 


图 21.3 treeof 应 用 举例 


树 类 型 的 子 类 型 关系 已 经 在 21.3 节 中 作为 产生 函数 $ 的 最 大 不 动 点 定义 出 来 。 在 本 节 
中 ,我 们 用 # 类 型 扩展 类 型 语法 , 它 的 行为 能 够 用 folding 规则 直接 描述 出 来 : 
S<: [X 一 HHX.T]IT [X=m HAX.S]S <:T 
S <: HX.T HX.S <: T 
形式 上 , 通过 给 出 一 产生 函数 $。 来 定义 p 类 型 的 子 类 型 ,用 三 个 和 8 定义 相同 的 子 句 ， 
还 有 两 个 附加 的 对 应 pfiolding 规则 的 子 句 。 


21.8.4 ”定义 :对 两 个 上 类 型 s 和 T, 如 果 满 足 ($S,T)e 由。, 其 中 单调 函数 9 E2P(T x 
T.) 一 卫 (T.x 开 ), 的 定义 为 : 


Sm( 只 ) {(S, Top) |1SEe7Tn} 

{(Si xsSz,TIxTz)1(S1Ti)，(Sz,T2) ERR} 

{(S1 一 S2, Ti 一 Tz) | (Til,S1)，(S2,T2) ER 

{(S, NUX.T) |(S,[X 一 AHX.TIT) ERR} 

{(UX.S,T) | ([Xm= RHX.S]S,T) ERT+Top andT+ 上 +HY.TI} 


则 $S 和 了 T 为 子 类 型 关系 。 


CCCCGI 
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注意 到 这 个 定义 并 没有 把 上 面 的 六 folding 规则 准确 包含 进来 :为 使 其 可 逆 , 我 们 在 最 后 一 
条 子 句 和 倒数 第 二 条 子 句 之 间 引 人 了 反对 称 式 (否则 , 子 名 将 互相 重 肆 )。 然 而 ,正如 在 下 
一 个 练习 中 将 会 看 到 , S。 产生 的 子 类 型 关系 与 更 本 质 的 (完全 对 应 于 ) 推 导 规 则 的 产生 函 
数 宰 % 相同 。 

21.8.5 ”练习 [xxx] : 写 出 刚才 提 到 的 函数 3, ,并 证 明 它 是 不 可 道 的 。 证 明 v$, = vS。。 
产生 函数 9。 是 不 可 逆 的 ,因为 与 之 对 应 的 支持 函数 为 良 定 义 形 式 ; 


人 让 T = Top 
{(S1T1)， (92,T2)} 让 S= SIxSz and 
T=T XT2 
f(Tl, SI)，(92,T2)} 让 S = Si 一 S2 and 
SUPPports, (S,T) = T=Ti 一 T2 


{(sS,[X 一 HRX.TIITD) 让 T=AHAX.T 
{(X 一 HAHX.S1]SiT)) 这 S= HHX.SlI and 
THX,T,T:Top 


1 其 他 
到 目前 为 止 , 关 类 型 上 的 子 类 型 关系 是 独立 于 (前 面 定 义 的 ) 树 类 型 上 子 类 型 关系 进行 介 
绍 的 。 因 为 我 们 考虑 六 类 型 时 是 将 其 表示 为 有 限 形 式 的 常规 类 型 ,所 以 还 有 必要 确保 这 两 种 
子 类 型 概念 互相 对 应 。 下 一 定理 (21.8.7) 就 建立 这 种 对 应 。 但 是 ,首先 需要 引信 一 个 引 理 。 


21.8.6 引 理 :假设 只 SIT。x 了 .是 S。 一 致 的 。 对 任意 ($S,DeR ,存在 某 (S ,T') < 尺 使 
得 weeef(S' ,T) = treeof(S,T) 且 S 和 了 都 不 以 六 开头 。 

证 明 : 归 纳 S 和 了 前 端的 产 总 数 。 如 果 S$ 和 T 都 不 以 上 开头 ,那么 (S ,T) =(S,T)。 另 一 
方面 ,如 果 (S$,T) = (S,pXX 贡 ) ,那么 根据 玉 的 S，。 一 致 性 ,有 (S,T)e S (只 ) ,所 以 (S, TY) 
=(S,[X 一 以 中]Tm)eR。 因 为 T 是 收缩 的 ,展开 T 的 结果 下 前 端的 六 比 工 的 更 少 。 
根据 归纳 假设 ,可 知 存 在 某 (S ,T')eRR 使 得 SS 和 呈 都 不 以 天 开 头 , 且 treeof(S T) = 
(S ,T)。 因 为 根据 treeor 的 定义 ,treeof(S,T) = treeof(S ,) , 序 对 (S , 呈 ) 就 是 我 们 所 需要 
的 。 出 现 (S,T) = (AUX.S ,T) 的 情况 类 似 。 


21.8.7 定理 : 设 ($S,T)eT。xT,。 当 且 仅 当 eeor(S,T) e 风 时 ,有 (S,7)JeysS，。 


证 明 :首先 ,考虑 " 仅 当 "的 情况 , 即 (S,T)e v。 推出 peeor(S,T) cx 的 情况 。 设 (A,B) = 
teeofS,T) ET xT ,根据 共 归 纳 原 理 , 如 果 可 以 找到 一 个 $ 一 致 集 OeT x 了 人 使 得 (A， 
B) EQ@, 则 可 得 出 结果 。 这 里 认为 CO = reeof(yS,。) 就 是 这 样 的 集合 。 为 了 证 明 这 一 点 , 必 
须 证 明 对 每 个 (A'" ,B')e Oo 都 有 (A',B')eS(CO)。 

设 (S ,T')e 5。 为 上 类 型 序 对 ,满足 teeef(S' ,T) = (A',B')。 根 据 引 理 (21.8.6) , 先 假设 
S 和 了 都 不 以 关 开头。 因为 9S。 是 8 一 致 的 ,所 以 (S,T) 必 须 由 定义 8S, 其 中 的 某 条 语 
名 支持, 即 它 必 须 具 备 以 下 某 一 特性 : 

情况 ， (S ,T) = (S ,Top) 


@ 5% 中 的 4d 是 用 来 特别 强调 该 函数 是 基于 ifolding 的 “声明 性 "推导 规则 ,以 区 分 于 S。 中 采用 的 “算法 "规则 。 
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那么 根据 $ 的 定义 有 B' = Top 且 (A',B') ES(O)。 

情况 (S,T') = (S:xSz,TixTz)， 其 中 (Si Th,(Sz,Tz) evSm 
根据 ireeor 定义 ,有 B' = tireeof(T') = B x 了 ,其 中 Bi = ieeof( 下 )。 同 理 , 有 A' = A xA, ,其 
中 Ai = treeof(S )。 将 preeor 应 用 于 这 些 序 对 ,有 (A, ,B ),(A ,了 )eO。 但 是 ,根据 $ 的 定 
义 ,可 知 (A,B) =(AxA,BxB)EeSCO)。 

情况 (S ,T') = (Si-S2,TI-T2)， 其 中 (Ti1,S1),(S2,T2) e vSm 
同 理 。 

接 下 来 ,考虑 " 当 ” 的 情况 , 即 证 明 weeof(S,T) ervs 推导 出 ($S,T)e w,  。 根 据 共 归纳 原 
理 , 需 要 找到 一 个 Su。 一致 集 Re 。x 开 ,使 ($S,T) 有 R。 这 里 认为 尺 = 1(S TY) Ex 
Tieeof(S' ,T')eyS| 为 这 样 的 集合 。 显 然 ,(S,T) < 有 尺 。 为 了 完成 证 明 ,必须 先 说 明 (S'， 
T) E 尼 能 推导 出 (SS T) ES (RD)。 
注意 到 ,因为 风 是 8 一致 的 ,所 以 任何 序 对 (A",B') ex 必须 具有 (A' ,Top),(A x 

4 ,B, x 有 本),(A 一 As ,Bi 一 B:) 其 中 一 种 形式 。 由 此 ,并 根据 treeof 的 定义 ,可 知 任意 序 对 
(S' ,TD) ER 必须 具有 (S ,Top) ,(S xs ,和 x 王 ),(S 一 3 ,了 一 了 ) (SAX.T ) 或 (AX.S，， 
T') 其 中 一 种 形式 。 我 们 依次 考虑 其 中 的 每 种 情况 ; 

情况 : (S ,T') = (S ,Top) 
那么 由 S。 的 定义 ,立即 可 得 出 (S',T' ) eS。( 尽 )。 

情况 (S ,T') = (SI xS2,TiXTz) 
设 (A' ,B') = treeof(S ,T) ,那么 有 (A' ,B') = (Al x An,B, xB), 其 中 Al= treeof(S),B; = 
treeof(T)。 因 为 (A',B') Ex, 的 3 一 致 性 可 得 出 (A, ,B, ) ew ,这 样 根 据 尺 的 定义 ,可 
得 出 (S ,下 ) E 尽 。S， 的 定义 产生 (S T) =(S xs 人 TixT)eS(R)。 

情况 :  (S ,T') = (S1 一 S2,TI 一 T2) 
同 理 。 

情况 ， (S ,T) = (SUX.TI) 
设 下 =[X Fr 发 裤 ]T。 根 据 定 义 有 treeof( 科 ) = treeof(T ) ,这 样 由 届 的 定义 ,有 (SI) 
Ee 丸 且 由 S。 的 定义 有 (S T')eS。(RR)。 

情况 ， (S ,T) = (HUX.STT') 
如 果 了 = Top 或 了 以 开头 ,那么 上 面 任何 一 种 情况 可 成 立 ;否则 ,参数 就 同 前 面 一 个 相同 。 
考虑 到 无 穷 树 类 型 (用 有 限 关 表 达 式 来 表示 ) 之 间 一 般 的 子 类 型 关系 ,本 定理 所 建立 的 


类 型 (本 节 所 定义 的 ) 上 子 类 型 间 的 对 应 是 可 靠 旦 完备 的 。 
21.9 计算 子 表 达 式 


用 “类 型 [参见 (21.8.4)] 上 的 子 类 型 关系 的 特殊 支持 函数 supports 来 实例 化 一 般 算法 


6 [参见 (21.6.4)] 会 产生 如 图 21.4 所 示 的 子 类 型 算法 。21.6 节 说 明了 如 果 对 任意 关 类 型 序 
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对 (S,T) ,reachabjes (S,T) 都 是 有 限 的 ,那么 该 算法 一 定 会 终止 。 本 节 将 证 明确 实 是 这 样 的 [ 参 


见 命题 (21.9.11)]。 

乍 看 一 眼 ,该 性 质 好 像 是 显而易见 成 立 的 ,但 证 明 起 来 却 要 付出 惊人 的 工作 量 。 问 题 在 于 
存在 两 种 定义 六 类 型 的 “ 子 表达 式 闭 集 ” 的 方式 。 一 种 称 为 自 顶 向 下 子 表达 式 ,直接 对 应 于 
supports 产生 的 子 表达 式 ; 另 一 种 称 为 自 底 向 上 子 表达 式 , 直 接 可 用 来 证 明 每 个 封闭 六 类 型 的 


子 表达 式 闭 集 都 是 有 限 的 。 要 证 明 可 终止 性 , 先 要 对 应 出 这 两 个 集合 ,然后 说 明 前 者 是 后 者 的 
子 集 [ 参 见 命题 (21.9.10)]。 本 节 的 讨论 是 依据 Brandt 和 Henglein 的 论著 (1997)。 


SubpbDpe(4,ST) = (SSTEeA4,then 
else let 4o = 4U [CS,T) 让 

让 T = Top, then 
40 

elseifS=SixsSzandT=TixTzthen 
let 41 = SUDbDPpe(4o, 5 Ti) 这 
Supbype(41,9>,T2) 

else 让 S = Sl 一 S2 andT = Ti 一 T2,then 
let 41 = SUDpDPpe(4o,Ti,S1) iD 
SUDhPe(41,S2,T2) 

elsei 让 T = NAX.Tithen 
Suptbpe(4o, 3 [X 一 NUX.TI]TI) 

else 让 S = HX.Si, then 
SUDpDPpe(40, [Xm HRX.S1]S1,T) 

else 
Ai 


图 21.4 & 类 型 的 子 类 型 化 算法 


21.9.1 定义 :对 /类 型 和 T, 如 果 序 对 (S,T) 是 产生 函数 ; 


TD(R) {(T,T) |1TeTn} 

{(S, TI xT2z) | (STI) ER 

{(S, TI xT2z) | (ST2) E 及 } 
{(9,TI~T2) | (9,TI) ER 
{(S,Ti 一 T2) |1(S,T2z) E 愉 } 

{(S, HUX.T) | (3 [X 一 HUX.T]T) ER} 


的 最 小 不 动 点 , 则 $ 为 了 自 顶 向 下 的 子 表达 式 , 记 为 SS T。 

21.9.2 练习 [*] :将 关系 SET 视 为 推导 规则 的 集合 ,给 出 等 价 定 义 。 

从 supports 的 定义 容易 看 出 ,对 任何 # 类 型 S 和 了 ,所 有 在 supporis (S,T) 中 的 序 对 都 是 由 
自 顶 向 下 的 S 和 了 的 子 表达 式 组 成 。 

21.9.3 引 理 :如 果 (S ,T')e suppors (S,T) ,那么 S 和 了 满足 :SSE S 或 SS TiTESsS 或 

TE To 

证 明 : 直 接 对 supports 的 定义 进行 观察 即 可 得 证 。 


CCCCC II 
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还 有 , 自 顶 向 下 的 子 表达 式 关 系 也 有 传递 性 。 
21.9.4 引 理 : 如 果 SE 0 且 0ST, 那 么 SS 7。 


证 明 : 引 理 的 表述 等 价 于 对 VU, 有 T.UET 汪 (VS.SEU 一 SS T)。 换 名 话说 ,必须 说 明 
An(7D)E R, 其 中 R=iU,DIVS.SEU 一 SETi。 根 据 归 纳 原 则 ,有 尺 是 7D 封闭 的 , 即 
7Z(R)SR。 所 以 假设 (U,TDe7ID(R) ,现在 对 7D 定义 中 子 句 出 现 的 几 种 情况 来 讨论 ; 

情况 : (UT) = (T,T) 

显然 ， (T,T) < 及 

情况 : (U,T) = (UTi xTz) and (U,TIi) < 尺 


因为 (U,T )E 届 ,所 以 对 所 有 的 S 必 有 SET 一 SEE 了。 根据 E 的 定义 ,对 所 有 的 S$ 必 有 
SSsU 汪 SST x。 这 样 ,根据 忍 的 定义 ,有 (U,T) = (U,T x 呈 )e 尽 。 其 他 情况 类 似 。 
若 将 前 两 个 引 理 合 起 来 考虑 ,可 提出 关于 自 顶 向 下 的 子 表 达 式 命题 

21.9.5 命题 ;如 果 (S' ,T' )e reachables (S,T) ,那么 SS S 或 SET, 及 TES 或 TS T。 


证 明 :利用 = 的 传递 狂 , 对 reochoble， 的 定义 直接 归纳 得 证 。 


”根据 上 面 的 命 愿 及 任意 上 类 型 [ 都 有 有 限 数量 的 自 顶 向 下 的 子 表 达 式 这 一 事实 ,可 得 出 
reachables〈S,T) 的 有 限 性 [参见 后 面 的 命题 (21.9.11)]。 但 任意 关 类 型 U 都 有 有 限 数量 的 自 
项 向 下 的 子 表达 式 这 一 点 不 容易 从 的 定义 看 出 ,用 7 的 定义 对 U 进行 结构 化 归纳 没什么 
效果 ,因为 和 9 的 最 后 子 句 破坏 了 归纳 :构造 U = JpX.T 的 子 表达 式 时 , 它 得 出 的 是 更 大 的 表达 
式 [X F=- 1XX.T]T。 

另 一 个 概念 : 自 底 向 上 子 表 达 式 ,只 要 在 计算 子 表达 式 之 后 (而 不 是 之 前 ) 热 行 递归 变量 的 
类 型 代 换 ,就 可 以 避免 出 现 这 个 问题 。 这 样 能 使 有 限 性 证 明 更 简单 。 


21.9.6 定义 :对 灵 “类 型 S 和 T, 如 果 序 对 ($, 嫉 在 如 下 产生 函数 : 
BU(R) {(T,T) ITETo} 

{(S,Ti xTz) 1(S,T) e 及] 

{(S, TI XxXTz) |(S,T2) ER) 

{(S, Ti 一 Tz)1(S Ti) ER 

{(9, TI 一 Tz) 1(S,T2z) ER} 

{([X 一 HHX.T]S,HX.T) 1 (S,T) e 尺 } 
的 最 小 不 动 点 中 , 则 S$ 是 T 的 自 底 向 上 子 表 达 式 , 记 为 S<T。 
该 子 表达 式 的 新 定义 与 老 的 不 同 之 处 仅 在 于 子 句 中 类 型 的 开头 有 上 绑 定 器 。 为 获得 该 类 
型 的 自 顶 向 下 子 表达 式 , 要 先 把 它 展 开 ,然后 再 将 展开 的 子 表达 式 放 在 一 起 。 而 为 获得 自 
底 向 上 的 子 表达 式 ,要 先 将 函数 体 中 的 子 表达 式 ( 不 一 定 为 封闭 的 ) 收 集 一 起 ,然后 应 用 展 
开 代 换 封 财 它们 。 


21.9.7 练习 [xxj]: 若 将 关系 S<T 看 成 是 推导 规则 的 集合 ,给 出 等 价 的 定义 。 
很 容易 证 明 一 个 表达 式 只 有 有 限 多 个 自 底 向 上 的 子 表达 式 。 


CCCCCI 
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21.9.8 引 理 :对 每 个 T,1S1 S$< 玉 是 有 限 的 。 
证 明 :根据 B7 和 基 的 定义 ,可 得 出 下 面 的 这 些 结论 ， 

。， 站 工 = Top orT= 久 then1S1S<T = 1T| |; 

*。 iT=Ti xmTorT=T 一 TtihenfSIS<T= 人 HUCSIS<TIIU1SIS 到 开 电 
iT=/X.T then 1SIS<TI = 人 TIUIX FTJSIS<T' | 


根据 这 些 结论 可 对 了 直接 进行 结构 化 归纳 即 可 得 证 。 
为 证 明 类 型 的 自 底 向 上 子 表达 式 包 括 了 自 顶 向 下 的 子 表达 式 , 还 需要 一 个 将 自 底 向 上 的 
子 表达 式 与 代 换 联系 起 来 的 引 理 。 


21.9.9 引 理 :如 果 S<[X cr-Q]T, 那 么 对 满足 S <T 的 $ SR S=[X 一 Q] 
S 成立。 


证 明 : 对 了 进行 结 构 化 归纳 。 

情况 : T= Top 
只 有 BU 的 自 反 子 名 允许 Top 为 序 对 的 右 端 元 素 , 所 以 必须 让 S= Top。 若 设 S' = Top 会 得 
到 想 要 的 结果 。 

情况 : T=Y 
如 果 Y=X, 有 S<[IXr-QlIT=Q, 则 根据 这 个 假设 可 以 得 到 理想 的 结果 。 如 果 了 zxX, 有 
S=[Xr 一 QT=Y。 只 有 BU 的 自 反 子 句 能 判定 该 序 对 ,所 以 必须 使 S= Yo 令 S =Y 来 
得 出 理想 的 结果 。 

情况 : T=TixT2 
有 S<[Xr-QT=[IXrQTxIxr-O。 根 据 8 的 定义 ,可 知 存在 三 种 使 $ 成 为 
这 种 乘积 类 型 的 自 底 向 上 的 子 表 达 式 的 方法 。 下 面 腔 一 来 考虑 ; 

子 情况 S= [X=~- QT 
那么 可 使 S' = T。 

子 情况 : Sx<s[X=~QTi 
根据 归纳 假设 ,对 某 S <T 有 S<Q( 这 种 情况 已 经 讨论 了 ) 或 S= [X Fr- Q]S'。 根 据 BU 的 
定义 ,后 者 能 得 出 理想 的 结果 S <T xT。 

子 情况 Sx<fX- QTz 

同 理 。 

情况 T= Ti-Tz 
类 似 于 乘积 类 型 情况 。 

情况 ，T= hhY.T 
有 S<[XrQT=pY.[X 天 QT。 有 两 种 使 S 成 为 该 六 类 型 的 自 底 向 上 子 表达 式 的 
方法 ， 

子 情况 ， S=[X 一 QT 

让 SS =T 

子 情 况 ， S=[IYy=~AY.IXr QT]sS， 其 中 S < 区 =- QT 
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应 用 归纳 假设 可 得 出 两 种 可 能 结果 


。S <Q。 根据 对 园 变 量 名称 的 约定 ,知道 YY 自 FY(Q) ,所 以 必 有 Y 基 克 (S )。 但 
S=[yYr-payv.[IXr-QlT]s =S ,所 以 S<sQ。 

。 对 某 呈 有 S =[Xr-gQ]s 使 得 $ <T。 这 种 情况 下 ,S= [Y Fr~ YY.[Xr=-gQlT]s， 
=[YrpyIXrQoTIXrQSs=IXr-QoYyrayT]s。 令 S=[Yr- 
pnY.S']S 来 得 到 理想 的 结果 。 


证 明 的 最 后 一 条 说 明了 类 型 的 每 个 自 顶 向 平子 表达 式 都 可 以 从 它 的 自 底 向 上 的 子 表达 
式 中 找到 。 


21.9.10 命题 :如 果 SET, 那 么 S<T。 


证 明 : 一 开始 想 说 明 ?7D SBU。 根 据 归 纳 原则 ,如 果 能 说 明 xBr7 是 7 态 封 闭 的 , 即 
7TD(BU)SABU ,就 可 以 得 出 上 SBU。 另 外 ,还 想 说 明 (A,B)Je 7Z(xBD) 能 推导 出 
(A,B)EpBU = BUSBD)。 如 果 每 个 可 以 从 8BD 中 产生 (A,B) 的 7D 子 名 能 与 xBD 中 产 
生 (A,B) 的 B7 子 句 相 匹 配 ,那么 第 二 种 想 说 明 的 即 为 真 。 在 7 的 定义 中 ,除了 最 后 一 
条 子 句 ,其余 的 子 句 想 使 之 为 真 比较 勉强 ,因为 它们 与 对 应 的 Br 子 名 完全 相同 。 对 最 后 
一 条 子 句 ,有 (A,B) = (S,JX,T)e 7D(nBU) 及 (S,[X 一 1I 区 .TIT)erBu, 或 等 价 地 ， 
S<[X 一 / 蔗 .TjT。 根 据 引 理 (21.9.9), 有 S</ 必 ,T, 即 (S,JX.T)epBu( 这 是 需要 的 ) ,或 
者 对 满足 (S ,T)enBU 的 某 S 有 S= [X 一 IJ 必 .T]S。 根 据 Br 的 最 后 子 句 ,后 者 可 推导 
出 (S,JX,T)eBU(xBU) = wBU。 


21.9.11 “命题 :对 任意 上 类 型 S 和 了 ,集合 reoohable，(S,T) 是 有 限 的 。 


证 明 :对 S 和 T, 设 到 为 它们 所 有 的 自 顶 向 下 的 子 表达 式 集合 , Bu 为 它们 所 有 自 底 向 上 的 
子 表达 式 集合 。 根 据 命题 (21.9.5), 有 reaehabie (S,T)c 7 x 74。 根 据 命题 (21.9.10), 有 


型 x 到 5 无 x 有 无。 根据 引 理 (21.9.8), 可 知 后 者 是 有 限 集 。 所 以 可 推导 出 raoohables (S,T) 为 
有 限 的 。 


21.10 关于 指数 级 算法 的 闲话 


21.9 节 开 始 提 到 的 子 类 型 算法 (参见 图 21.4) 可 通过 让 它 返回 布尔 值 来 进一步 简化 ,而 不 
是 采取 一 个 新 的 假设 集 ( 参 见 图 21.5)。 中 间 结 果 subtpe“ 对 应 于 Amadio 和 Cardelli 的 检查 子 
类 型 化 的 算法 (1993)。 它 计算 的 关系 与 子 类 型 计算 的 关系 相同 ,但 效率 要 低 些 ， 因为 它 不 能 记 
住 发 生 在 一 和 x 生 况 的 递归 调用 的 子 类 型 关系 中 的 类 型 序 对 。 这 看 似 无 关 紧 要 的 改变 会 导致 
算法 中 递归 调用 数量 的 激增 。 但 是 子 类 型 进行 的 递归 调用 数量 是 与 两 个 参数 类 型 中 的 子 表达 
式 总 数 的 平方 成 比例 [可 通过 检查 引 理 (21.9.8) 和 命题 (21.9.11) 中 的 证 明了 解 这 一 点 ] ,发 生 
subbpe“ 时 , 它 将 成 指数 级 增长 。 
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Subbpexc(4,S,T) = 还 (ST) e 4,then true 
else let 4o = 4U(S,T) in 
让 T = Top, then true 
else 让 S = S] XS2z andT =TixTz,then 
Subtype2c(40， SUTI) and 
SUBDe2c (40o,S2,T2) . 
elseitS=SI 一 SandT =Ti 一 T2,then 
Subtype2(40,T1,S1T) and 
SUbpbDpe2c (40,S2,T2) 
elseifs= HX,.Si,then 
SUbbzPpexC(4o, [Xm HHX.S1]Si, T) 
else 这 T = HAX.Ti, then 
SupbDpes (40 S [X 一 HX.TI]TUD) 
else 1alise. 


图 21.3S- Amadio 和 Cardelli 的 子 类 型 化 算法 


subbpe” 的 指数 行为 可 在 下 例 中 清楚 地 体现 出 来 。 将 类 型 答 S. 和 T, 归纳 定义 为 : 


30 
To 


因为 S 和 T。 
然而 ,检查 S, <:T, 会 产生 指数 级 推导 ,这 一 点 可 从 下 面 的 递归 调用 产生 的 结果 看 出 : 


中 


其 中 ， 
Al 
Az 
As3 
Ad4 
As5 
A6 


HLX ,X 一 Sn 
MX .X 一 下 n。 


HLX.Top xX Sn+1 
HLX.TopXx (TopXxx) Tnyl 


信 攻 


都 分 别 出 现 一 次 S. ;和 T, ,所 以 它们 的 长 度 (将 简写 展开 后 ) 随 ” 成 线性 增长 。 


SUbtbype2<c(O Sn Th) 

Subbype2c(Al, Sn 一 Sn Tn) 

Subbype“ (Az, Sn 一 Sn Tn 一 Tn-1) 

Subbypeasc (As,Tn Sn) and subtypeac(A3, Sn 1 T_T) 
SUbtbypeac (Ad4, Th 一 TSn) and ,，， 
SubbPpe2c(A5,Tn 一 Th-1 Sn 一 Sn-1) and ... 
Subfype(A6, Sn Tn) and SUbDpesc(A6,Ta-lSn-l) and ,.， 
etc. 


{(SnwTn)} 

Al U !(Sn 一 Sr- Tn)} 

A2 U {(Sn 一 Sn-lTn 一 Tn-1)} 
Ag U {(Tn Sn)} 

A4 U {(Tn 一 Tn-b Sn)} 

As U {(Tn 一 Tn-l Sn 一 Sn-1)j. 


让 和 有 二 夺 息 


注意 到 初始 调用 subbope" (G,S. ,T, ) 的 结果 是 两 个 含 S, ,和 T,_, 的 相同 形式 的 递归 调用 (用 下 
划 线 表示 )。 而 它们 又 会 产生 两 个 含 S,-; 和 T, -的 递归 调用 ,依次 类 推 。 按 这 样 的 比例 计算 
下 来 总 的 递归 调用 数 为 2"。 


21.11 子 类 型 化 同 构 递 归 类 型 


在 20.2 节 中 , 曾 说 过 一 些 递归 类 型 采用 了 同 构 递 归 表 示 方 式 , 它 将 递归 类 型 的 折 秋 和 展 
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开 已 明确 地 注 明 了 项 构造 子 fnld 和 unfold。 在 这 种 语言 中 ,类 型 构造 子 是 “严格 的 ”, 因 为 它 
在 类 型 中 的 位 置 会 影响 该 类 型 项 的 使 用 方式 。 

如 果 在 同 构 递 归 类 型 的 语言 中 添加 子 类 型 ,构造 子 的 严格 性 还 会 影响 子 类 型 关系 。 本 
章 中 采用 的 大 部 分 方法 都 是 “除去 限制 ,再 子 类 型 化 " ,但 这 里 不 采用 这 种 办 法 ,而 是 直接 在 递 
归 类 型 中 定义 子 类 型 规则 。 

最 常见 的 同 构 递 归 子 类 型 化 定义 为 Amber 规则 ,因为 它 是 由 Cardelli 的 Amber 语言 (1986) 
广泛 使 用 的 : 

Z, X<:YFF S<:T 


直观 地 看 ,该 规则 可 读 为 "在 某 假设 集 荆 下 , 若 加 上 一 个 条 件 X<:Y 有 SS <:T, 则 /以 .S 为 pY.T 
的 子 类 型 "p。 这 里 的 了 是 递归 变量 序 对 集合 ,包括 了 所 有 经 过 判断 的 递归 类 型 序 对 。 这 种 假 
定 可 以 用 另 一 个 子 类 型 规则 来 表示 : 


(S-Amber) 


(X <: Y) 皇 王 
世上 FX<:Y 
即 ,如 果 现 在 假设 X <:Y, 则 可 以 将 其 加 入 。 
将 这 两 个 规则 加 入 到 第 16 章 提 出 的 子 类 型 化 算法 (并 扩展 别 的 规则 以 从 前 提 将 习 传 递 给 
结论 ) ,这 样 会 产生 一 个 行为 类 似 于 图 21.5 中 的 subbpe* 算 法 的 新 算法 ,其 中 芋 起 到 了 4 的 作 
用 。 不 同 之 处 在 于 :(1) 只 有 当 <: 的 两 边 同 时 出 现 了 递归 类 型 时 立即 将 它们 展开 ; (2) 对 递归 类 
型 不 做 代 换 (将 其 视 为 变量 保留 ) ,这 样 容易 看 出 算法 终止 。 
在 规范 化 类 型 系统 中 (如 第 19 章 的 轻 量 级 Java) 出 现 的 子 类 型 规则 与 Amber 规 则 密切 相关 。 


21.11.1 练习 [推荐 ,*x] :请 利用 相等 递归 定义 (但 不 能 用 Amber 规则 ) 来 找到 递归 类 型 S 
和 了 ,使 得 S <:T。 


21.12 注释 


本 章 以 Gapeyev,Levin 和 Pierce(2000) 所 著 的 手册 为 基础 。 

想 了 解 有 关 共 归纳 的 背景 知识 可 参考 Barwise 和 Moss 的 “Vicious Circles”(1996) , Gordon 著 
的 《 共 归 纳 和 函数 编程 手册 》(1995) ,及 Milner 和 Tofte 的 程序 语言 语义 中 关于 共 归 纳 声明 性 文 
章 (1991a)。 想 了 解 关 于 单调 函数 和 不 动 点 的 基础 知识 ,可 参考 Aczel(1977) 和 Davey 以 及 
Priestley(1990) 。 

计算 机 科学 中 共 归 纳 证 明 方法 的 使 用 要 追溯 到 20 世纪 70 年 代 ,例如 Milner(1980) 和 Park 
(1981) 所 著 的 关于 并 发 的 文章 ;也 可 参见 Arbib 和 Manes 所 著 的 自动 控制 理论 中 对 二 元 性 的 范 
团 性 讨论 (1975) 。 但 是 归纳 前 带 上 了 “oo-" 形 式 早 已 为 数学 家 们 所 熟悉 ,比如 , 它 在 通用 代数 和 
范畴 论 中 有 明确 的 论述 。 在 Aczel 的 关于 非 良 定 集合 的 开创 性 书籍 (1988) 中 简单 介绍 了 其 
发 展 史 。 


(S-Assumption) 


中 ”注意 该 规则 ,与 其 他 大 部 分 两 边 含 绑 定 结构 的 规则 (如 图 26.1 中 的 S-AH) 不 同 , 它 要 求 园 变 量 X 和 下 在 规则 应 用 之 
前 重新 命名 为 不 同 的 名 称 。 
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Amadio 和 Cardelli(1993) 给 出 了 第 一 个 关于 递归 类 型 的 子 类 型 化 算法 。 他 们 在 论文 中 定 
义 了 3 种 类 型 关系 :(1) 无 穷 树 间 的 包含 关系 ;(2) 检 查 六 类 型 之 间 子 类 型 关系 的 算法 ; (3) 定 义 
为 声明 性 推导 规则 集 的 最 小 不 动 点 的 上 类 型 之 间 引 用 子 类 型 关系 。 这 些 关系 都 证 明 为 等 价 
的 ,并 与 基于 部 分 等 价 关 共 的 模型 结构 有 关 。 不 采用 共 归 纳 ,出 于 无 穷 树 的 考虑 ,引入 了 一 个 
无 穷 树 的 有 限 再 近 概念 ,这 个 概念 在 许多 证 明 中 都 起 到 重要 的 作用 。 

Brandt 和 Henglein(1997) 根 据 Amadio 和 Cardelli 的 结果 引 人 了 一 个 新 的 使 子 类 型 关系 更 加 
可 靠 和 完备 的 归纳 性 公理 化 形式 ,从 而 揭示 了 Amadio 和 Cardelli 系统 的 共 归 纳 本 质 。 公 理化 
中 箭头 (国定 ) 规 则 都 进一步 有 具体 化 了 系统 的 共 归 纳 性 。 这 篇 文章 描述 了 推出 关系 (由 共 归 纳 
定义 ) 中 归纳 性 公理 化 的 一 般 方法 ,并 对 子 类 型 算法 可 终止 性 进行 了 证 明 。21.9 节 与 后 者 的 
证 明 密 切 相 关 。Brandt 和 Henglein 还 发 现 了 算法 的 复杂 度 为 0( 玛 )。 

Kozen, Palsberg 和 Schwartzbach(1993) 通 过 研究 发 现 正则 递归 类 型 对 应 于 有 状态 记录 的 自 
动机 ,从 而 得 出 了 一 个 更 巧妙 的 二 次 子 类 型 化 算法 。 他 们 定义 了 两 个 自动 机 的 乘积 ,产生 一 个 
约定 词 操作 , 即 当 用 仅 当 最 初 自动 机 的 类 型 不 是 子 类 型 关系 时 接收 一 个 词 。 线 性 时 间 空 集 测 
试 可 以 接近 子 类 型 的 问题 。 它 再 加 上 乘积 结 梅 的 二 次 复杂 度 及 类 型 到 自动 机 的 线性 时 间 转 
换 ,就 能 得 出 整个 二 次 时 间 的 复杂 度 。 

Hosoya, Vouillon 和 Pierce(2001) 用 与 自动 机 理论 有 关 的 方法 ,将 递归 类 型 ( 带 联 合 类 型 ) 与 
调整 为 XML 处 理 过 程 的 子 类 型 化 算法 中 的 树 自动 机 联系 起 来 。 

Jim 和 Palsberg(1999) 针 对 子 类 型 和 递归 类 型 语言 提出 了 类 型 重 构 概 念 (参见 第 22 章 )。 
如 本 章 所 做 ,他 们 用 共 归 纳 的 观点 来 看 待 无 穷 树 的 子 类 型 关系 ,并 提出 将 子 类 型 检查 算法 作为 
一 个 在 给 定 的 类 型 序 对 中 建立 最 小 模拟 的 ( 即 在 术语 学 上 称 为 一 致 集 ) 过 程 。 他 们 定义 类 型 上 
的 一 致 性 和 P1 闭 包 的 概念 ,这 正好 与 本 书 的 一 致 性 和 可 达 集 合 对 应 。 


如 果 休 思考 了 足够 长 的 时 间 ,那么 会 明白 这 是 显然 成 立 的 。 
Saul Com 
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到 目前 为 止 ,我 们 所 见 到 的 对 演算 进行 的 类 型 检查 算法 都 有 明确 的 类 型 注释 一 一 尤其 是 
要 求 注释 lambda 抽象 的 参数 类 型 。 在 本 章 中 ,提出 了 一 个 更 有 用 的 类 型 重 构 算 法 ,该 算法 能 够 
为 一 个 项 计算 主 类 型 ,该 项 只 进行 了 部 分 注释 或 全 未 注释 。 相 关 的 算法 还 处 于 某 些 语言 ,如 
ML 和 Haskell 等 的 核心 地 位 。 

将 类 型 重 构 与 其 他 语言 的 特征 结合 起 来 是 一 件 难事 。 尤 其 在 记录 型 和 子 类 型 上 有 很 大 的 
困难 。 为 了 使 问题 简单 化 ,这 里 只 考虑 对 简单 类 型 进行 类 型 重 构 ; 从 22.8 节 开 始 将 对 其 他 的 
组 合 方式 进一步 讨论 。 


22.1 类 型 变量 和 代 换 


在 前 面 章 节 的 一 些 演 算 中 ,我 们 已 经 假设 类 型 集合 包括 了 无 穷 的 没有 解释 的 基 类 ( 参 
见 11.1 节 )。 不 同 于 有 解释 的 基 类 如 Bool 和 Nat, 这 些 类 型 没有 引 人 和 人 或 消去 项 的 操作 ; 直觉 上 
说 ,它们 只 是 一 些 特殊 类 型 的 符号 , 而 实际 的 含义 我 们 无 需 领 会 。 在 本 章 中 ,将 会 不 停 地 提出 
一 些 问题 ,比如 “如果 给 项 t 中 的 符号 X 一 个 具体 的 类 型 Bool ,是 否 可 获得 一 个 可 类 型 化 的 
项 ?”。 换 名 话说 ,我 们 将 把 没有 解释 的 基 类 型 当做 类 型 变量 ,用 其 他 类 型 来 代 换 或 将 其 实 
例 化 。 

本 章 为 采用 技术 手段 说 明 问题 ,将 对 类 型 变量 的 代 换 操作 分 成 两 部 分 :描述 一 个 从 类 型 变 
量 到 类 型 的 映射 c( 称 为 类 型 代 换 ) ,再 将 该 映射 应 用 到 一 个 特殊 类 型 T 上 以 获得 实例 of。 例 
如 ,定义 6c= [X Fr- Bool] ,然后 将 6 应 用 于 类 型 X-=~X 得 到 c(X-~X) = Bool-~Bool。 


22.1.1 定义 :通常 ,类 型 代 换 ( 当 已 知 讨 论 的 是 类 型 时 可 直接 简称 为 代 换 ) 指 一 个 从 类 型 
变量 转换 到 类 型 的 有 限 映射 。 例 如 ,[X r~T,Y Fr-U] 作 为 将 X 与 T,Y 与 U 联 合 起 来 的 类 
型 代 换 。 用 dom(c) 来 表示 出 现在 的 序 对 中 左 端的 类 型 变量 集合 ,用 range(c) 表 示 出 现 
在 右 端的 类 型 集合 。 注 意 : 相 同 的 变量 可 能 同时 出 现在 代 换 定义 域 和 值 域 的 位 置 上 。 类 
似 于 项 代 换 ,如 果 出 现 了 上 述 的 情况 时 ,表示 所 有 的 代 换 都 是 同时 进行 的 ; 例如 ,[X r~ 
Bool,Y Fr~ X-~X] 是 将 X 映射 成 Bool, 将 站 映射 成 X>X, 而 不 是 Bool->~Bool。 


代 换 可 以 用 下 面 的 方式 来 表示 
rrOX) _ T 如 果 (X-~ Te 
X 如果 X 不 是 er 的 定义 域 
Cl(Nat) = Nat 
Il(Boo1) = Boo1 
CTI 一 T>) 二 CTI1 一 CT> 


人 ”本章 学 习 的 系统 是 包括 布尔 型 . 数 型 及 无 穷 基 类 集合 的 简单 类 型 的 lambda 演算 (参见 图 9.1) 。 对 应 的 OCaml 实现 
是 recon 和 fallrecon。 . 
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注意 ,在 类 型 代 换 过 程 中 ,不 需 采 取 任 何 准备 措施 来 避免 变量 捕获 ,因为 在 类 型 表达 语言 
中 没有 什么 类 型 表达 结构 绑 定 类 型 变量 (将 在 第 23 章 谈 到 这 个 问题 )。 
类 型 代 换 可 以 逐 点 扩充 至 上 下 文中 ,定义 如 下 : 
OI(xl:Ti .xnsTi) = (XI:OTI,. ,xn:CTi). 
类 似 地 ,如 果 一 个 代 换 应 用 于 出 现在 项 t+ 注释 中 的 所 有 类 型 , 则 该 代 换 应 用 于 该 项 。 
如 果 c 和 7 都 是 代 换 ,可 以 用 c。y 来 组 成 新 的 代 换 形式 : 


roy-| 和 7 其 中 (X-~Tiey 
X=-T 其 中 (Xr=Tea 且 Xedom(y) 


注 :(ac"y)S=c(7yS)。 

类 型 代 换 的 一 个 重要 特性 是 它们 保 备 了 类 型 声明 的 有 效 性 :如 果 包 含 变 量 的 项 是 良 类 型 
的 , 则 所 有 它 的 代 换 实例 都 是 良 类 型 的 。 

22.1.2 定理 [类 型 代 换 下 的 类 型 化 保持 ]: 设 c 是 任意 类 型 代 换 , 旦 FF tbT, 则 cnF act:oT。 

证 明 : 可 直接 从 类 型 化 推导 中 归纳 得 出 。 


22.2 类 型 变量 的 两 个 观点 


设 + 是 一 个 包含 类 型 变量 的 项 ,了 是 一 个 相关 的 上 下 文 { 可 能 也 含有 类 型 变量 )。 我 们 可 
以 就 + 提出 两 个 截然 不 同 的 问题 : 


1.“t 是 否 在 所 有 代 换 实例 中 都 是 良 类 型 ?”, 也 就 是 问 ,对 一 切 都 存在 T 满 足 cPh ct :T? 
2.“t 是 否 存在 为 良 类 型 的 代 换 实例 ?”, 即 能 否 找到 一 个 存在 T 满 足 co F ct :T? 


对 第 一 个 问题 ,在 类 型 检查 过 程 中 类 型 变量 应 始终 保持 抽象 ,这样 才能 确保 一 个 良 类 型 的 
项 无 论 在 后 来 的 类 型 代 换 中 用 什么 样 的 具体 类 型 代 换 变量 ,都 能 正常 使 用 。 例 如 ,对 项 
Af:X-X，Aa:X, 于 (f a); 
有 类 型 (X->X) 一 X->X, 无 论 什 么 时 候 用 一 个 具体 的 类 型 T 来 代替 X 时 ,实例 ， 
Af:T 一 T。AalT. ff (f al); 


都 是 良 类 型 。 保 持 这 种 类 型 变量 抽象 可 引出 参数 化 多 态 ,也 就 是 类 型 变量 的 使 用 使 得 一 个 项 
在 具体 的 上 下 文中 具有 不 同 的 类 型 。 在 22.7 节 中 ,还 会 谈 到 参数 化 多 态 的 问题 ,并 在 第 23 章 
中 更 深入 地 加 以 讨论 。 

对 第 二 个 问题 ,原始 项 t 甚 至 可 能 不 是 良 类 型 的 ,而 我 们 所 关心 的 问题 是 能 否 通过 它 的 类 
型 变量 选择 合适 的 值 来 将 该 项 实例 化 为 良 类 型 。 比 如 ,有 项 : 


NAf:Y.Aa:X. 下 (f a); 
如 它 是 不 可 类 型 化 的 ,但 如 果 用 Nat 一 Nat 代替 站 ,用 Nat 代替 X, 就 可 获得 ， 
Af:Nat 一 Nat。 和 XAa:Nat. 下 (f a); 


可 得 到 类 型 (Nat 一 Nat) 一 Nat -Nat。 或 者 简单 一 点 ,用 X->X 来 代替 了 ,也 能 得 到 良 类 型 
的 项 ; 





Af:X 一 X，Aa:X, 下 (ff a); 
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尽管 它 仍 含 变量 。 确 实 ,该 项 是 XM:Y.Aa:X.ff a) 最 一 般 性 的 实例 ,其 意义 就 在 于 它 使 用 最 简 
单 的 类 型 变量 值 就 能 产生 一 个 良 类 型 的 项 。 ， 

在 寻找 类 型 变量 有 效 实例 的 过 程 中 ,出 现 了 一 个 新 概念 类 型 重 构 ( 有 时 也 称 类 型 推断 ) , 它 
意味 着 由 编译 器 来 帮助 添加 那些 编程 人 员 忽 略 掉 的 类 型 信息 。 受 条 件 限 制 ,如 在 ML 语言 中 ， 
我 们 允许 编程 人 员 忽略 所 有 的 类 型 注释 , 仅 依照 原始 的 无 类 型 的 lambda 演算 中 的 语法 写 程 
序 。 在 做 分 析 时 ,对 每 个 原始 的 lambda 抽象 hx.t 用 类 型 变量 进行 注释 ,写成 Mx:X,t 其 中 选 
择 的 X 与 程序 中 其 他 抽象 使 用 的 类 型 变量 都 不 同 。 然 后 采取 类 型 重 构 来 找到 一 个 使 项 通 
过 类 型 检查 的 最 一 般 化 值 ( 这 一 步 在 出 现 了 ML 的 let 多 态 后 变 得 更 加 复杂 了 ,在 22.6 节 和 
22.7 节 中 还 会 谈 到 )。 

为 形式 化 类 型 重 构 ,需要 一 个 简明 的 方式 来 讨论 ,在 项 及 其 相关 的 上 下 文中 ,如 何 用 类 型 
来 代 换 类 型 变量 以 得 到 有 效 的 类 型 化 语句 中 。 


22.2.1 定义 : 设 了 为 上 下 文 ,t 为 项 ,(T,b 的 解 是 指 一 个 序 对 (c,T) ,使 得 ob at:T 成立。 
22.2.2 实例 : 设 耻 =f:X,a:Y 且 t=fa, 那 么 : 


([X 一 Y 一 Nat]j，Nat) ([X 一 Y 一 Z]，Z) 
([XmY-Z,， ZNat]，Z) ([X ~ Y~Nat 一 Nat]，Nat 一 Nat) 
([X 一 Nat 一 Nat,Y 一 Nat]，Nat) 

都 是 (个 ,b 的 解 。 


22.2.3 练习 [x 户 ] :在 空 的 上 下 文中 ,为 下 列 项 找 出 三 个 不 同 的 解 : 
AX:X. AY:Y. AZ:Z. (xX Z) (y z)， 


22.3 基于 约束 的 类 型 化 


对 给 定 的 项 t 和 上 下 文 工 ,我 们 提出 一 个 算法 ,用 来 计算 一 个 约束 集 一 一 类 型 表达 式 (可 
包含 类 型 变量 ) 之 间 的 等 式 ,该 集合 对 任何 (T,D 的 解 都 满足 。 该 算法 的 想法 与 通常 的 类 型 检 
查 算法 概念 基本 上 是 相同 的 ,惟一 的 区 别 是 它 不 是 用 来 检查 约束 ,而 是 把 它们 记录 下 来 以 备 以 
后 考虑 。 例 如 ,对 应 用 bb 有 TFb:Tm 和 下 Feb:T, 不 是 检查 贡 有 形式 卫 一 Ta 并 将 T。 作 为 
应 用 的 类 型 返回 ,而 是 选择 一 个 新 的 类 型 变量 X, 记 录 约 束 式 Ti = 卫 一 X, 将 X 作 为 应 用 的 类 
型 返回 。 

22.3.1 定义 :约束 集 C 指 一 个 等 式 集 | S = Ti。 如 果 一 个 代 换 c 的 代 换 实例 cs 和 

ol 相同 , 则 称 该 代 换 合 一 了 等 式 S=T 。 如 果 该 代 换 能 合 一 C 中 的 所 有 等 式 , 则 称 c 能 合 

一 (或 满足 )C 。 


22.3.2 定义 :约束 类 型 关系 下 HF tTIx C 的 定义 见 参 图 22.1 的 规则 。 非 正规 地 ,FF t:TIxC 


中 ”还 有 许多 其 他 建立 此 基本 定义 的 方式 。 其 中 一 种 是 用 称 为 存在 量词 合 一 的 一 般 机 制 , 是 由 Kirehner 和 Jouannaud 
〈《1990) 提 出 的 ,以 代 将 图 22.1 中 的 强制 产生 规则 中 的 所 有 单独 的 新 变量 条 件 。 另 一 个 大 的 改进 是 由 Remy(1992a， 
1992b, long version,1998, 第 5 章 ) 提 出 ,把 类 型 声明 本 身 当 成 合 一 体 ;从 三 元 组 T,tT) 开 始 ,其 中 三 个 分 量 都 可 能 含 
类 型 变量 ,寻找 代 换 c 使 中 六 atD3:c(T), 即 ,该 代 换 能 使 示意 性 的 类 型 声明 FF t:T 合 一 化 。 
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可 读 成 “约束 集 C 满 足 时 ,项 t 在 下 下 的 类 型 为 T 。 在 规则 TApp 中 ,以 F(T) 来 表示 T 





中 提 到 的 所 有 类 型 变量 集合 。 
mr 
XIT ET (CrvAn) TIFtiITIxC 
TITFx:Tlef C' =CufT=Nat} (CT.PRED) 
T, x:Ti FF t2 : T2 |x C (CrAse) 了 pred tl : Nat |xC 
THFAX:Ti,t2z :TI 一 Tz |xC Tti: 本 IxC 
C =CuUT=Nat} 
THFtl:T lx CI 工 F t2z :T2 |x。 C2 FEiszerot yo C (CT-ISZERO) 
XinXa =%nFVT2) =》%onEVT) = 纪 上 t+- 1Szero tl : Boo |x 
XE XI X2 TI Tz CC2, 上 ,tl, Or t2 ITrtrue :Bool lo 全 (CT-TRUB) 
C=CuCcuLT=Tz 一 X] Tr false:8ool lc 人 (CT-FALSB) 
THFtit2 3:X 人 
1 七 2 | xuxzutx) (CrApp FFtiiT Ia 
THFtz:Tz |x C2 IFtas :Ta lx Cs3 
[THFO:Nat |o 羡 (CT-ZERO) Xi Xz, X3 无 交集 
ThFti:TIxC C“ =CaucCucsuflTI = Boo1,Tz =T3} 
C=CuflT=Nat THFiftlithentzelset3a:Tz jucux C 
二 一 一 一 一 一 一 一 CT-SUcC 102U 一 3 
THFsucctl :Nat lxC ) (CT-IP) 


一 一- vv vv vv | 
图 22.1 约束 类 型 规则 


下 标 X 光 是 用 来 记录 在 每 个 子 推导 中 出 现 的 中 间 类 型 变量 ,以 确保 每 个 不 同 的 子 推导 产生 

的 新 变量 都 不 同 。 第 一 次 阅读 规则 时 ,可 以 先 不 去 管 这 些 下 标 , 以 及 与 其 有 关 的 前 提 条 

件 。 再 一 次 看 规则 时 ,可 以 研究 一 下 这 些 注 释 和 前 提 , 做 到 两 点 ;第 一 ,在 推导 中 ,最 终 规 

则 选择 的 类 型 变量 必须 与 前 面 的 子 推导 中 选中 的 变量 不 同 ;第 二 ,无 论 何 时 , 若 一 个 规则 

含 两 个 或 两 个 以 上 的 子 推导 ,这 些 子 推导 所 选择 的 变量 的 集合 之 间 不 能 有 交集 。 还 要 留意 

这 些 条 件 不 能 阻止 对 给 定 的 项 做 某 些 推导 ,它们 只 能 阻止 推导 时 在 两 个 不 同 的 地 方 使 用 同 

一 个 "新 "变量 ,因为 有 无 穷 多 的 变量 名 可 以 使 用 ,我 们 总 能 找到 一 个 满足 要 求 的 新 变量 。 

当 我 们 自 底 向 上 读 规 则 时 ,约束 类 型 规则 说 明了 一 个 直接 的 过 程 :对 给 定 的 和 +, 计算 

出 T 和 C( 及 X) ,满足 PH t:TIxC。 然 而 ,不 同 于 简单 类 型 演算 中 的 一 般 类 型 化 算法 ,该 

过 程 总 会 成 功 ,也 就 是 说 对 每 个 下 和 + 都 存在 T 和 C 满 足 FHF t:TIxcC ,而 且 该 T 和 C 是 由 

F 和 t+ 惟一 决定 的 (严格 地 说 ,只 当 我 们 将 其 考虑 为 “对 新 名 字 的 选择 取 模 ”时 算法 是 确定 

的 ,这 一 点 将 在 练习 22.3.9 中 还 会 提 到 )。 

为 了 减少 下 面 讨论 的 符号 量 ,有 时 可 以 省 略 X ,直接 写成 FF t:TIC。 

22.3.3 练习 [x 户 ] :用 S,X,C 来 构造 一 个 约束 类 型 推导 ,使 得 结论 为 ; 

FF- AX:X.- Ay:Y. AZ:Z. (XZ) (yz) :S |xC 

约束 类 型 化 关系 的 思想 是 ,对 给 定 的 项 ft 和 上 下 文 工 ,我 们 可 以 检查 在 了 中 + 是 否 为 可 类 
型 化 的 ,方法 是 先 找到 能 使 * 有 类 型 的 约束 集 C , 以 及 一 个 可 以 反映 出 t+ 的 类 型 特征 的 结果 类 
型 S; 接 着 ,为 找到 t 的 解 , 要 找到 满足 C 的 代 换 o( 就 是 能 使 C 中 的 等 式 都 相同 ); 对 每 个 这 样 的 
代 换 c, 类 型 c$ 就 是 + 的 可 能 类 型 。 如 果 找 不 到 满足 C 的 代 换 ,t 就 没有 使 其 可 类 型 化 的 实例 。 

例如 ,对 项 t= )x:X->Y.x0 按 照 算法 产生 的 约束 集 为 |Nat->Z = X~>Y} ,相关 的 结果 类 型 
为 (X>Y)- 一 2Z。 代 换 c=[X Fr Nat,Z r- Bool,Y r=* Bool] 使 得 等 式 Nah>Z = X->Y 恒 等 ,所 以 
我 们 可 推断 c((X-~Y) 一 Z) , 即 (Nar>Bool) 一 Bool 是 t 的 可 能 类 型 。 
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以 下 的 定义 是 对 该 思想 的 正式 提出 。 

22.3.4 定义 : 设 PF btSIC。 则 (PS,C ) 的 解 为 序 对 (co,T) ,其 中 5 满足 C 且 osS=To。 

下 一 节 中 将 提出 寻找 使 约束 集 C 合 一 的 代 换 算法 问题 。 这 里 ,首先 要 检查 一 下 约 东 类 型 
算法 与 原始 声明 的 类 型 关系 是 否 合理 地 对 应 。 

假定 有 上 下 文 下 和 项 t, 为 使 和 + 中 的 变量 找到 可 能 的 实例 而 产生 有 效 的 类 型 ,可 以 采 
取 两 个 不 同 的 特征 方式 : 

1. [声明 性 的 ] 根 据 定义 (22.2.1) 考 虑 用 所 有 (T,t 的 解 的 集合 。 

2. [算法 性 的 ] 通 过 约束 类 型 关系 ,找到 满足 FF t:SIC 的 S 和 C , 取 (T,tS,C) 的 解 组 成 

的 集合 。 

可 用 两 步 来 表明 上 面 两 个 特征 的 等 价 性 :首先 ,我 们 知道 所 有 (T,ts,c ) 的 解 都 是 
(,b 的 解 [参见 定理 (22.3.5)]; 其 次 ,通过 对 约束 产生 式 的 类 型 变量 赋值 ,每 个 (T,b 的 值 都 
能 扩充 为 (P,t,S,C ) 的 值 [ 参 见 定理 (22.3.7)]。 

22.3.5 ”定理 [约束 类 型 的 可 靠 性 ]: 设 TCF t:SIC ,如 果 (c,T) 是 (DT,t,S,C ) 的 解 , 则 它 也 是 

(的 解 。 

按照 该 结论 ,新 变量 集合 X 已 不 再 重要 ,可 以 省 略 。 

证 明 : 通 过 对 和 FeSIC 的 约束 类 型 推导 的 妇 纳 ,结合 最 后 使 用 的 规则 , 几 种 情况 分 别 讨 

论 如 下 ; 

情况 CT-VAR: t=x  x:SeTI  C= 上 

已 知 (c, 太 是 (T,t,S,C ) 的 解 ,因为 C 为 空 ,这样 cS =T, 但 根据 开 Var, 很 快 可 得 出 oFF x:T。 

情况 CT-ABS: 七 =Ax:Tli.t2 S =TIi 一 S2 DT, x:TI FFt2 :SC 

已 知 (c, 是 (T,tS,C ) 的 解 , 即 ec 使 C 合 一 且 T= os = o 吕 一 cs ,因此 (co,cs ) 是 ((Tx: 

T ) 国 交 ,S ,CC ) 的 解 。 通过 归纳 假设 可 知 (c,cs ) 是 ((T,x:T， ) ,已 ) 的 解 ， 即 GOL ,xx:aT 广 at : 

a9 。 通 过 人 Abs , 按 要 求 得 cp F )x:oT .cb :af 一 a9 = ac( 了 一 S ) =T。 


情况 CT-APP:- 七 =tlitz S=X 
THtl:9llCl THFtz :9zjC> 
C=CIUCzU{SI = S2 一 X} 


根据 定义 ,6 使 (1 和 Ca， 合 一 且 09S， 二 a(S 一 X)。 所 以 (c,agS， ) 和 (caS: ) 是 (CT , S) 9 C1 ) 和 
(5,S，C2) 的 解 ,由 此 通过 归纳 假设 可 得 中 广 oh :os 和 中 FF 虽 :a9。 但 因为 oS| =o9， 
一 以 ,可 得 of F ob :cS~>oX, 根 据 TApp 有 of ch b):oX=T 其 他 情况 类 似 。 

对 于 一 般 的 类 型 关系 ,对 约束 类 型 完备 性 的 论证 有 点 困难 ,因为 必须 对 新 名 称 小 心 处 理 。 
22.3.6 定义 :对 所 有 在 X 中 未 定义 的 变量 都 用 c \X 作 为 代 换 ,其 他 的 仍 以 代 换 。 


22.3.7 ”定理 [约束 类 型 的 完备 性 ] : 设 下 F- t:SJx C ,如果 (c, 太 是 (个 , 记 的 解 且 do 六 (sn 
X = 弛 则 有 (T,t,S$, C) 的 解 (c' ,T) 满 足 oAX = 


证 明 :根据 约束 类 型 推导 归纳 。 
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情况 CT-VAR: 臣 =X X:9 E 工 
从 假设 可 知 (c, 站 是 (T,x) 的 解 , 从 类 型 关系 的 首 转 引 理 (9.3.1) 可 得 到 T= cs, 但 (c,T) 也 
是 (PT,x,S, 1) 的 一 个 解 。 
情况 CT-ABS: 七 =Ax:Ti.to DT, x:TIiFtz:Sz |IxC SS =TI~9> 
根据 假设 可 知 (c,T) 是 (T,)Xx:Tm .b) 的 解 ,根据 类 型 关系 逆转 引 理 可 得 出 对 某 些 了 可 产生 
cx:opn Fob:T 和 T=on 一 了 。 根 据 归纳 假设 ,存在 (CPP,x:T),b,S,C) 的 解 (c',) 且 
满足 co \X 与 5 一 致 。 这 时 ,X% 不 会 包含 任何 由 中 的 类 型 变量 ,所 以 coT| = oT , 且 co(S) = 
CT 一 3) = of 一 aoS =of 一 =T。 这 样 我 们 认为 (c, 是 (个 , (xx:T ) ,TS,C) 的 
一 个 解 。 
情况 CT-ApP: 七 = tl t2 TrFrt:S jx C: THFt2z :9Sz |x C2 
XImnX2 = 外 
XI mFV9z) = 你 
X2 mmFVS1) = 伍 
X 未 包含 在 Xi, Xa, St Sz, Cl, Ca 中 
9 三 X X =XiUX2Uw{X} C=CIUC2U{Si=S2 一 X} 
从 假设 可 知 (c,T) 是 (T,a by) 的 解 ,根据 类 型 关系 道 转 引 理 可 得 onHF ol :T 一 T 和 orF 
dt :了 T。 通过 归纳 假设 可 得 (ao ,下 一 了) 为 (T, ,9 ， (1 ) 的 解 ， (oa ,T ) 为 (Tb,sS,C), 且 
Ga AMXi=c=o\Xae 我 们 必须 表达 出 一 个 代 换 c ,使 之 满足 :(1)c\X 与 c 一 致 ;(2)cX= Ti 
(3)c' 分 别 使 C ,Ca 合 一 ;(4)c' 使 1S =S 一 XI 合 一 , 即 c'S =o'S -aoX。 这 样 可 定义 pc 为 
如 下 形式 ; 
YuU 若 YEX 且 (YrmUec， 
YirU 若 YeXi 且 (Y =-U)eon， 
Yz~uUz 若 Yz ec》 是 (Yz~U)eo， 
X 一 了 
条 件 (1) 和 条 件 (2) 显 然 满足 。 因 为 XY 和 X, 没有 交集 ,所 以 条 件 (3) 也 满足 。 对 新 变量 的 
附加 条 件 可 以 保证 FTY(S， ) 站 (X， U 区 有 = 个 ， 因此 0'S， 三 01S ,接着 计算 如 :0'9) = 0OiSi 三 卫 
一 T= aoS 一 T=aS 一 5X=a(S 一 X)。 
故 条 件 (4) 也 满足 。 其 他 情况 类 似 。 
22.3.8 推论 : 设 PF t:SIC。 当 且 仅 当 (PT,tbS,C) 有 解 时 ,(T,t) 有 解 。 
证 明 : 可 由 定理 (22.3.5) 和 定理 (22.3.7) 得 出 。 


22.3.9 练习 [推荐 ,*xx]: 在 编译 过 程 中 ,由 于 规则 CT-App 对 新 类 型 变量 的 取 名 无 法 确 
定 ,可 采用 别 的 方式 来 解决 这 个 问题 ,如 调用 一 个 产生 新 的 类 型 变量 的 函数 ,每 次 调用 时 
产生 的 新 类 型 变量 都 不 同 于 以 前 产生 的 变量 ,上 且 不 同 于 上 下 文中 出 现 的 所 有 类 型 变量 或 
正在 检查 的 项 。 因 为 全 局 gensym 操作 对 隐藏 的 全 局 变量 有 副作用 ,所 以 它们 正常 推理 较 
困难 。 但 我 们 能 通过 约束 产生 规则 来 整理 出 一 系列 的 未 使 用 过 的 变量 名 ,以 一 个 非常 精 
确 和 数学 上 易 处 理 的 方式 模仿 gensym 操作 。 


CI“ = 
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用 严 来 表示 一 系列 不 同 的 类 型 变量 名 。 不 用 下 FEHTIx C 来 作为 约束 产生 关系 , 改 
用 Pi-rt:TieC, 其 中 PP,P 和 ft 为 算法 的 输入 ,T, 屎 和 C 为 输出 。 当 需要 一 个 新 的 类 型 变 
量 时 ,算法 就 会 去 掉 下 的 前 部 分 而 将 已 的 其 余部 分 作为 严 返回 。 
请 写 出 关于 此 算法 的 规则 。 并 用 合理 的 方式 证 明 它 与 一 般 的 约束 产生 规则 是 等 价 的 。 


22.3.10 练习 [推荐 ,*x] :在 ML 中 运行 练习 (22.3.9) 的 算法 ,使 用 下 面 的 数据 类 型 ， 
type ty = 一 
Ty8Boo1 
1 TyArr of ty wx ty 
| TyId of string 
| TyNat 
作为 类 型 ,将 : 


type Constr = (ty * ty) 11St 


作为 约束 集 。 还 需要 一 个 可 以 表示 新 变量 名 字 的 无 穷 系列 的 方式 。 有 很 多 方法 可 以 做 到 
这 一 点 ,通过 使 用 下 面 的 递归 数据 类 型 可 直接 实现 这 一 点 : 


type nextuvanpr = NextUVvanr of strjng * UVvargenerator 
and Uvargenerator = unit 一 nextuvar 


1et uvargen = 
let rec fn (] = NextUVar("?X " A string_of_int n，f (Cn+1)) 
in ff0 
其 中 uvargen 是 一 个 函数 , 当 用 () 调 用 时 ,会 返回 形 为 NextUVar(x,f 的 值 ,其 中 x 是 一 个 新 
类 型 名 称 ,f 是 相同 形式 的 另 一 个 函数 。 


22.3.11 练习 [xx] :请 写 出 如 何 扩 充 约束 产生 类 型 算法 ,以 处 理 一 般 的 递归 函数 定义 ( 参 
见 11.11 节 )。 


22.4 合 一 


为 计算 约束 集 的 解 ,我 们 根据 Hindley (1969) 和 Milner(1978) 的 思想 用 合 一 (Robinson, 1971 
提出 ) 来 检验 解 集 是 否 非 空 ,如 果 非 空 , 则 可 以 找 出 一 个 “最 好 ”的 元 素 使 得 所 有 的 解 都 能 从 该 
元 素 中 直接 产生 出 来 。 


22.4.1 定义 :如 果 对 某 代 换 使 得 代 换 " 和 代 换 o 有 ao = y*c, 则 称 代 换 7 比 代 换 o 更 
具 一 般 性 , 写 为 cEc'。 


22.4.2 定义 :对 约束 集 C 的 主 合 一 子 (或 称 为 最 一 般 合 一 子 ) 是 代 换 co, 它 能 满足 C 且 对 
所 有 满足 C 的 代 换 c' 都 有 cEo'。 


22.4.3 练习 [xj: 为 下 列 的 约束 集 写 出 最 一 般 合 一 子 ( 如 果 存 在 的 话 ) 


{X = Nat,Y = X 一 X} {Nat--Nat = X 一 Y} 
{X-Y=Y-ZZ=U- 时  {Nat=Nat-Y) 
fy = Nat 一 Y} 和 (约束 集 为 空 ) 











第 22 章 类 型 重 构 221 


22.4.4 定义 :类 型 合 一 算法 在 图 22.2 定义 中 。 图 22.2 中 第 二 行 语 名 “let1$= TIU C' = 
C" 应 理解 成 “从 集合 C 中 选择 一 个 约束 S=T., 并 用 C' 表 示 C 中 的 其 余部 分 ”。 
六 人 ra 
Mn 六 (C) = 评 C = 人 包 ,then [] 
else let {fS =TiUC' =Cin 
认 $S= 耻 
then Pip(C) 
elseifS=XandXeFT) 
then bp 六 ([X 一 TIC) oo[X 一 T] 
else 让 T =XandXEeFVS) 
then MEIRAIX 一 SIC )o[Xm=- 5S] 
-else 证 3S= 9 一 Sa andT=TI-T2 
thben ipC' Uu !Sl =Ti,S =Tz)) 
else 
JE 
二 -一 -一 -一 -一 一 -一 -一 vv vv 


图 22.2 合 一 算法 
第 5 行 的 附加 条 件 X e FY(T) 和 第 7 行 的 X Eee 克 (S) 可 看 成 是 发 生 检 查 。 作 用 是 防止 


算法 产生 一 个 含 循环 代 换 (如 X F~ X>X) 的 解 ,因为 循环 代 换 会 使 得 我 们 谈 到 的 有 穷 类 型 表 
达 训 无 意义 (如 果 将 语言 扩充 到 无 穷 类 型 表达 , 即 和 第 20 章 和 第 21 章 一 样 含 递归 类 型 , 则 该 
发 生 检 查 可 以 忽略 掉 )。 


22.4.5 定理 : 合 一 算法 总 能 终止 , 当 输 入 一 个 不 能 合 一 的 约束 集 时 ,算法 才 会 失败 ,和 否则 
就 会 返回 一 个 主 合 一 子 。 形 式 化 表达 为 : 

1. 对 所 有 的 C ,无 论 是 失败 还 是 返回 一 个 代 换 ,za 芒 (C) 都 会 终止 。 

2. 如 果 mn 态 (C) =c, 则 就 是 C 的 合 一 子 。 

3. 如 果 8 是 C 的 合 一 子 , 那 么 un 沪 (C) = 满足 csa3。 


证 明 : 对 第 (1) 条 ,首先 为 约束 集 C 定义 一 个 称 为 度 的 序 对 (m ,nm) ,其 中 mm 表示 C 中 不 同 
类 型 变量 的 数量 ,mn 表示 C 中 类 型 的 总 长 。 很 明显 un 太 算法 的 每 条 语句 或 者 很 快 终止 
(第 一 种 情况 就 成 功 或 到 最 后 一 种 失败 ) ,或 者 用 一 个 按 字 典 顺 序 且 小 一 些 的 约束 集 来 递 
归 调 用 xn 态 。 
第 (2) 条 是 在 计算 ww 六 (C) 的 过 程 中 对 产生 的 递归 调用 数目 的 直接 归纳 。 除 了 两 个 包含 
的 变量 外 其 他 的 情况 都 不 重要 ,这 要 取决 于 下 面 的 考 志 :如果 使 [XF= 下 六合 一 ,那么 
对 任意 约束 集 D,c*[X Fr> 中 都 能 使 IX=TIU D 合 一 。 
第 (3) 条 也 是 在 计算 mn 沪 (C) 的 过 程 中 对 产生 的 递归 调用 数目 的 直接 归纳 。 如 果 C 是 空 
集 , 则 由 态 (C) 立 即 返 回 一 个 空 代 换 []; 因为 8$= 8*f ] ,所 以 [js 满足 要 求 。 如 果 C 非 
空 , 则 mn 态 (C) 会 从 C 中 选择 某 序 对 (S, 太 ,继续 按照 S 和 和 下 的 具体 情况 来 处 理 ， 

情况 : S =T 
因为 ?是 C 的 合 一 子 , 它 也 同样 能 合 一 C' 。 通 过 归纳 假设 ,有 mm 六 (C) = 满足 cci。 


情况 : S=X 且 XeEFEVT) 


中 该 算法 中 并 不 是 说 所 得 的 合 一 类 型 表达 是 与 其 他 种 类 的 表达 唱 反 测 , 相 同 的 算法 也 能 在 任何 (一 阶 ) 的 表达 之 问 得 
出 相等 的 约束 集 。 
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因为 8 能 使 S 和 T 合 一 ,所 以 有 8(X) = SCT)。 所 以 对 任意 类 型 U, 都 有 8(U) =SCLX FT] 

U) ;尤其 是 因为 8 能 合 一 C ,也 必 能 使 [X Fr=- T]C 合 一 。 通 过 归纳 假设 可 知 , mn 沪 ([X 

Fr ITC ) =c ,其 中 存在 7 满足 8$=7ysa'。 因 为 由 态 (C)=oo[X 一 Y], 表 明 83=7yo(co[X 

r~T]1) 能 完成 论证 。 所 以 考虑 任意 类 型 的 变量 了, 如果 习 尖 X, 显然 (yc [XFYD)Y 

= (7y"c')Y= 8Y。 另 一 方面 ,从 上 面 可 看 出 (7*(c"[X FI))X=(ysc)T= 汉 。 通 过 以 

上 所 述 ,可 知 对 所 有 的 变量 Y 都 有 8 =(7"(c"[Xr-T))Y, 即 S=(7"(o[X cr- 站))。 
情况 ，T=X 且 XEFV(S) 


情况 类 似 。 
情况 ， S= Si 一 Sz 旦 T=Ti~T2 
可 直接 得 证 。 
另外 要 注意 当 且 仅 当 8 是 CU 1S = 卫 ,S = 呈 | 的 合 一 算 子 时 ,和 也 是 1S 一 S = 人 一 开 1UC' 
的 合 一 算 子 。 


如 果 上 面 的 情况 都 不 适用 于 $ 和 T, 则 mm 态 (C) 失 败 。 但 这 种 情况 只 会 有 两 种 原因 :或 者 
S$ 是 Nat 型 ,了 T 是 箭头 类 型 (或 两 者 反 过 来 ); 或 者 S=X,XeT( 或 两 者 反 过 来 ) 。 第 一 种 情 
况 明显 不 符合 C 是 可 合 一 的 这 个 假设 ,所 以 只 能 考虑 第 二 种 情况 。 假 设 第 二 种 情况 发 
生 , 则 吧 = 8ST; 如 果 X 包 含 在 T 中 , 则 江 总 会 严格 地 比 8$ 大 。 于 是 ,如 果 m 沪 (C) 失 败 ， 
则 C 是 不 可 合 一 的 ,但 这 又 与 我 们 开始 的 假设 8 是 C 的 合 一 算 子 矛盾 ,所 以 ,这 种 情况 也 
不 可 能 发 生 。 


22.4.6 练习 [推荐 ,*x*]; 实 现 合 一 化 算法 。 


22.5 主 类 型 


上 面 我 们 曾 说 过 如 果 有 某 种 方法 使 项 中 的 类 型 变量 实例 化 ,从 而 使 项 本 身 成 为 可 类 型 化 
的 , 则 可 以 找到 一 个 最 一 般 化 或 主要 的 方法 来 说 明 ,我 们 要 就 此 提出 形式 化 的 理论 。 


22.5.1 定义 :(T,tS,C) 的 主 解 是 解 (c, 了 ) , 若 任何 时 候 有 (co ,T ) 也 是 (TtS,C) 的 解 ， 
则 有 csc'。 当 (c, 六 是 一 个 主 解 时 , 称 T 是 工 条 件 下 的 t 的 主 类 型 。 


22.5.2 练习 [* 户 ] :为 jx:X.Xy:Y.)z:Z.(xz)(y z) 找 出 主 类 型 。 


22.5.3 “定理 [ 主 类 型 ]: 如 果 (F,t,S,C) 有 解 , 则 它 必 有 -个 主 解 . 图 22.2 中 的 合 _- 算 法 
能 用 来 判断 (T,t,S, C) 是 否 有 解 ,如 果 有 , 则 可 以 将 主 解 计算 出 来 。 


证 明 : 可 根据 (T,tS, C) 解 的 定义 及 合 一 的 性 质 来 证 明 。 

22.$.4 推论 :(T, 世 是 否 有 解 是 可 判断 的 

证 明 :根据 推论 (22.3.8) 和 定理 (22.5.3) 可 得 。 

22.5.5 练习 [推荐 ,*xx 大 ] :结合 练习 22.3.10 和 练习 22.4.6 的 约束 产生 算法 和 合 一 算 


名 ”请 不 要 将 主 类 型 与 主 类 型 化 混 消 了 。 参 见 22.8 节 。 
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法 来 建立 可 计算 主 类 型 的 类 型 检查 器 , 以 reconbase 检查 器 作为 起 点 。 类 型 检查 器 的 典型 
的 作用 过 程 类 似 如 下 ， 
AX:X。 Xi 
” <fun> : X 一 X 
AzZ:ZZ，、AY:YY.， zZ (yY true) ; 
* <fun> : (?xo 一 ?Xi) 一 (Boo1 一 ?Xo) 一 ?Xi 
Aw:W、if true then false el1se WwW fa1sei 


* <fun> ;: 《Boo1 一 Boo1) 一 8oo1 
类 型 变量 名 如 ?加 是 自动 生成 的 。 


22.5.6 练习 [推荐 ,**x] :如果 要 处 理 记 录 型 而 想 扩充 上 面 的 定义 (22.3.2 等 ) 时 会 出 现 
什么 困难 ? 该 怎样 将 它们 提出 ? 


主 类 型 思想 可 以 用 于 建立 一 个 类 型 重 构 算法 , 它 比 这 里 所 研究 的 算法 运行 更 快 。 不 是 先 
产生 所 有 的 约束 集 然 后 再 求解 ,而 是 将 产生 集 和 求解 交叉 进行 ,这 样 类 型 重 构 算 法 在 每 一 步 都 
能 真正 地 返回 一 个 主 类 型 。 因 为 类 型 总 是 主要 的 ,所 以 算法 不 需要 对 子 项 再 进行 分 析 一 这 
样 对 每 一 步 只 要 花 最 少 的 力气 就 能 达到 可 类 型 化 的 目的 。 这 种 算法 的 一 个 最 大 的 进步 就 是 它 
能 更 精确 地 指出 用 户 程 序 的 错误 之 处 。 


22.$.7 ”练习 [xx** 六 ] :修改 练习 22.5.5 的 解 , 让 它 能 更 快 地 实现 合 一 化 并 返回 主 类 型 。 


22.6 隐 含 的 类 型 注释 


支持 类 型 重 构 的 语言 还 允许 编程 人 员 完 全 忽略 lambda 抽象 类 型 注释 。 为 做 到 这 一 点 (如 
在 22.2 节 所 述 ) 只 要 用 解析 器 将 新 产生 的 类 型 变量 来 填充 省 略 的 注释 即 可 。 一 个 比较 好 的 选 
择 就 是 将 未 注释 的 抽象 加 入 到 项 语法 中 ,以 及 将 一 个 对 应 的 规则 加 入 到 约束 类 型 关系 中 。 
XE&EX  Tx:XFti:T 1IxC 
工 上 FAX.tl : X 一 下 |xufx C 


对 这 些 未 注释 的 抽象 说 明 不 把 它们 当成 语法 的 修饰 品 会 更 直接 些 。 这 是 以 简短 但 有 用 地 使 表 
达 更 有 利 的 方式 :如 果 复 制 几 份 未 注释 的 抽象 , CT-AbsInf 规则 允许 为 每 个 副本 选择 一 个 不 同 
的 变量 作为 参数 类 型 。 相 比 之 下 ,如 果 将 原始 抽象 看 成 是 用 不 可 见 的 类 型 变量 来 注释 ,那么 生 
成 的 副本 将 会 产生 多 个 含 相同 参数 类 型 的 表达 。 这 点 区 别 对 下 一 节 要 讨论 let 多 态 十 分 重要 。 





(CT-AbsInf) 


22.7 let 多 态 


“多 态 "“(polymomhism) 一 词 是 语言 机 制 范围 内 的 一 个 概念 , 它 指 的 是 程序 的 单独 一 段 能 在 
不 同 的 上 下 文中 使 用 不 同 的 类 型 ( 23.2 节 将 更 详细 地 讨论 几 种 多 态 形式 )。 上 面 介 绍 的 类 型 
重 构 算法 可 以 推广 成 一 个 简单 的 多 态 形式 , 称 为 let 多 态 ( 也 可 称 为 ML 型 或 DamasMilner 多 
态 )。 该 特征 最 早出 现在 ML(Milner,1978) 的 术语 中 ,已 经 被 许多 成 功 的 语言 设计 所 采纳 , 它 形 
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成 常用 结构 (列表 、 数 组 、 树 型 . 哈 希 列表 、 流 和 用 户 接口 的 小 宝 口 ,等 等 ) 的 基因 库 的 基础 部 分 。 


let 多 态 的 功能 可 从 下 面 的 例子 谈 起 。 假 设 要 定义 并 使 用 一 个 简单 函数 double, 要 求 使 用 
第 一 个 参数 两 次 后 再 使 用 第 二 个 : 


1et double = Af:Nat 一 Nat，Aa:Nat. f(f(a)) in 
doub1le (CAXx:Nat，SUCC (SuUCC X)) 2; 


因为 想 将 double 应 用 到 类 型 为 Nat ->Nat 的 函数 ,可 选择 注释 类 型 (Nat 一 Nat) 一 (Nat 一 Nat)。 
我 们 可 变换 double 定义 使 一 个 布尔 型 函数 加 售 。 


1et double = AXAf:8B8oo1~Boo1. Aa:8B8oo1. fCfCa)) in 
double (CAx:Boo1.X) falsei 


我 们 不 能 做 的 是 在 同一 个 double 函数 中 娆 用 布尔 型 又 用 数字 型 ,如 果 需 要 这 两 者 在 同一 个 程 
序 中 ,必须 定义 两 个 形式 相同 但 类 型 注释 不 同 的 double 函数 。 


et doubleNat = AMf:Nat~-Nat. Aa:Nat， f(Cf(a)) in 
]et doub1e8Boo1 = Af:Boo1-8oo1. Aa:Boo1，fCf(a)) in 
let a = doub1leNat (CAx:Nat， succC (succ xX))J 1 in 

Tet b = doub1eBoo1 (AxX:8oo1. x) fafse in .…， 


即使 在 double 中 用 类 型 变量 来 注释 抽象 也 没有 作用 ， 


let doubje = Af:X 一 X，Aa:X. 于 (ff(a)) in ……， 


例如 ,如 果 写 ， 


1et double = Af:X 一 X，Aa:X，fCf(a)) 1n 
1et a = double (AX:INat.， SuUCC (Succ X)) 1 in 
]et b = double (CAx:Boo1. x) false in .….. 


则 在 a 定 义 中 使 用 double 会 产生 一 个 约束 类 型 X->X = Nat 一 Nat, 而 在 b 定义 中 使 用 double 会 
产生 约 东 类 型 X>X = Bool-~Bool ,这样 会 使 X 发 后 矛盾 而 导致 整个 程序 不 可 类 型 化 。 

这 里 到 底 出 了 什么 错 ? 在 例子 中 X 承担 了 两 个 不 同 的 角色 。 其 一 , 它 受 到 了 约束 , 即 计算 
a 的 double 的 第 一 个 参数 必须 为 一 个 定义 域 和 值 域 类 型 与 doubie 的 其 他 参数 的 类 型 (Nat) 相 同 
的 了 芳 数 。 其 二 , 它 同 样 受到 了 b 中 的 double 类 似 的 约束 。 然 而 ,两 种 情况 下 都 使 用 相同 的 变量 
X, 我 们 不 得 不 终止 得 到 的 错误 约束 , 即 double 的 两 次 使 用 得 到 的 第 二 参数 必须 有 相同 的 
类 型 。 

这 里 该 做 的 是 打破 最 后 一 个 联系 ,也 就 是 说 ,对 每 个 double 的 使 用 都 用 不 同 的 变量 X。 幸 
好 这 一 点 很 容易 做 到 。 第 一 步 改变 let 的 通常 类 型 规则 ,不 是 计算 右 端的 6 类 型 并 在 计算 已 
的 类 型 时 用 得 出 的 类 型 来 作为 图 变量 x 的 类 型 : 

THFtl :Ti T, x:Ti FF-t2z:T2 


TH let x=tl in tz : T2 (T-Leb) 
而 是 用 代 换 x, 然 后 对 该 扩充 的 表达 式 进行 类 型 检查 ， 
THFtxmtljtz :T2 
TF jet x=tl int2 : T> (TLetPoly) 
用 同样 的 方法 为 let 写 一 个 约束 类 型 规则 ， 
THF [xm~tijtz:Tz |xC 
(CT-LetPoly) 


TF let x=tl jn tz :Tz |x C 
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总 之 ,我们 所 做 的 就 是 修改 了 let 类 型 规则 使 它们 能 实现 一 步 求 值 : 
1et x=vi int2 一 [x 一 vi]jt2 (上 -LetV) 
第 二 步 是 用 22.6 节 的 隐 含 注释 过 的 lambda 抽象 来 重新 定义 double。 


et double = AMf，Aa. fCf(a)) in 
let a = double (CAx:Nat。. SuUcC (Succ xX)) 1 in 
1et b = double (CAxX:Boo1. x) false in ... 


将 let 的 约束 类 型 规则 (CT-LetPoly) 与 隐 含 注释 的 lambda 抽象 (CT-AbsInf) 结 合 起 来 的 确 满足 了 
我 们 的 要 求 ;CT-LetPoly 产生 了 double 定义 的 两 个 副本 ,CT-AbsInf 给 每 个 抽象 分 配 了 不 同 的 类 
型 变量 。 其 余 的 部 分 仍 按照 通常 的 约束 类 型 求解 方法 来 做 。 

然而 ,在 实际 使 用 该 方法 之 前 仍 需 说 明 它 存在 的 一 些 缺 点 。 一 个 明显 的 缺点 就 是 ,如 果 我 
们 不 是 碰巧 在 let 式 子 中 使 用 let 男 变量, 那么 该 定义 将 永远 不 会 受到 类 型 检查 。 例 如 ,有 
程序 : 

1et x = <utfter garbage> in 5 
将 能 通过 类 型 检查 器 。 可 以 给 下 面 类 型 规则 增加 一 个 前 提 : 
THFfxmtijtz :T2 工 H-tl :TI 
TF let x=tli int2 :Tz 

并 给 CT-LetPoly 增加 一 个 对 应 的 前 提 ( 保 证 h 是 良 类 型 的 ) 来 解决 这 个 问题 。 

还 有 一 个 有 关 的 问题 是 ,如 果 let 式 子 出 现 很 多 次 let 癌变 量 ,那么 jet 定义 的 整个 右 端 在 
每 次 发 生 时 将 受到 检查 ,无 论 它 是 否 包 含 隐 含 注释 的 lambda 抽象 。 因 为 右 端的 本 身 会 包含 let 
而 ,所 以 该 类 型 规则 会 造成 类 型 检查 器 所 需 的 工作 量 是 原 项 的 指数 倍 。 

为 了 避免 重复 类 型 检查 , 含 let 多 态 的 语言 在 实际 运行 时 使 用 了 更 好 (尽管 形式 上 是 等 价 
的 ) 的 类 型 规则 的 重新 公式 化 方式 。 总 而 言 之 ,在 上 下 文 卫 中 对 项 let x=th in bp 进行 类 型 检查 
应 按照 以 下 步骤 进行 ; 

1. 使 用 约束 类 型 规则 为 右 端的 6 计算 相关 的 类 型 S 和 集合 Ci。 

2. 用 合 一 规则 为 约束 集 C, 找到 最 一 般 化 解 c, 并 将 c 用 于 S( 和 了) 来 获得 H 的 主 类 型 T 。 

3. 对 们 中 的 其 余 变 量 进 行 一 般 化 推广 。 如 果 Xi …X, 是 剩余 的 变量 ,写成 VX …X, .T 为 

6 的 主 类 型 方案 。 


警告 :要 注意 不 要 将 中 提 到 的 T 也 进行 一 般 化 推广 ,因为 这 些 对 应 着 t 与 其 语 境 之 
间 实 际 的 约束 。 例 如 ,在 : 

A 千 :X 一 X，AX:X。1et g=f in 9g(CxX) ; 

中 ,我 们 不 能 对 g 中 的 类 型 X->X 的 变量 X 进行 一 般 化 ,否则 将 会 得 到 如 下 错误 的 
程序 ， 


(Af:X 一 X，Ax:X。 1let g=f in g(0)) 
(AX:Boo1. 计 xX then true el1se fal1se) 
true; 


4. 我 们 对 上 下 文 进行 扩充 ,为 团 变 量 x 记录 类 型 为 VX …X, .了 ,并 开始 对 进行 类 型 检 
查 。 总 之 ,现在 上 下 文 会 给 每 个 自由 变量 一 个 类 型 方案 ,而 不 是 一 个 类 型 。 


(T LetPoly) 
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5. 每 次 在 b 中 遇 到 变量 x 发 生 时 ,我 们 可 以 查找 它 的 类 型 方案 VX …X'. .Ti。 现 在 产生 新 类 
型 变量 序列 Y …Y, ,并 用 它们 来 实例 化 类 型 方案 , 即 产 生 [X 一 立 ,…,X， FT]T， 
以 此 作为 x 的 类 型 "。 


该 算法 比 起 在 类 型 检查 之 前 简单 的 采取 代 换 let 表达 式 的 方法 要 高 效 得 多 。 的 确 , 数 十 年 
的 实践 表明 该 算法 对 输入 程序 的 长 度 上 呈现 “基本 线性 关系 "。 所 以 当 Kfoury ,Tiurn 和 Urzyc- 
zyn(1990) 三 人 及 Mairson(1990) 都 提出 了 该 算法 的 最 坏 复 杂 度 仍 带 指 数 时 ,引起 了 很 大 的 震 
惊 。 他 们 所 举 的 例子 包括 了 在 其 他 let 的 右 端 层 和 套 let 语句 ,而 不 是 在 let 语句 中 ,在 let 语句 
中 很 容易 造成 建立 的 表达 式 中 ,类 型 按 指数 增长 而 远 远 超过 表达 式 本 身 。 例 如 ,下 面 的 OCaml 
程序 ,按照 Mairson(1990) 所 述 ,该 程序 是 良 类 型 的 ,但 类 型 检查 过 程 需要 大 量 的 时 间 ， 

let fo = fun x 一 (x,x) in 

et fl = fun y 一 foCfo y) in 
let fz = fun yy 一 fiCf y) in 
1et fa = fun y ~ fzCfz y) in 
let fd = fun yy 一 f(fa y) in 
let fj = fun y ~ ff y)] in 

fs Cfun zZ 一 ZI) 
如 果 想 知道 为 什么 ,可 试 着 一 次 输入 一 个 天 ,6 到 OCaml 最 高 层 中 。 还 可 见 Kfoury ,Tiurm 

和 Urzyezyn(1994) 对 此 的 深入 讨论 。 

最 后 值得 一 提 的 是 ,用 let 多 态 来 设计 成 熟 的 程序 设计 语言 ,还 要 注意 多 态 与 某 些 副 作用 ， 
如 易 变 存储 单元 之 间 的 相互 影响 。 一 个 简单 的 例子 可 说 明 其 中 的 危害 : 


]et mr = ref (AMX，x)] in 
(Cr:=(Ax:Nat， succC xX); (IIr7true) ; 


用 上 面 所 述 的 算法 ,计算 Ref(X->X) 为 let 右 端 的 主 类 型 ,因为 X 不 会 出 现在 其 他 的 地 方 , 所 以 
该 类 型 可 被 一 般 化 为 YX.Ref(X->X) ,将 r 加 入 到 上 下 文 时 可 以 将 该 类 型 方案 分 配给 它 。 对 第 
二 行 的 分 派 进 行 类 型 检查 时 ,我 们 又 将 该 类 型 实例 化 为 Ref(Nat->Nat) ,对 第 三 行 可 实例 化 为 
Ref( Bool-~Bool) 。 但 这 不 太 合 理 ， 因为 当 项 在 求 值 时 将 suce 应 用 于 tme 时 就 会 结束 。 

这 里 的 问题 在 于 类 型 规则 已 经 与 求 值 规则 不 一 致 了 。 本 节 介 绍 的 类 型 规则 告诉 我 们 , 当 
看 到 let 表达 时 ,应当 立 即将 右 端 代 换 到 表达 体 中 。 但 求 值 规则 表明 应 当 在 右 端 简化 为 一 个 值 
之 后 才能 进行 代 换 。 类 型 规则 对 ref 构件 有 两 种 使 用 方式 ,并 在 不 同 的 假设 条 件 下 分 析 它 们 ， 
但 在 运行 时 只 有 一 个 ref 是 真正 被 分 配 使 用 的 。 

出 现 这 种 搭配 不 当时 ,有 两 种 方法 来 纠正 :或 者 调整 求 值 规则 ;或 者 调整 类 型 规则 。 前 一 
种 方法 可 将 求 值 规则 中 的 let 变 成 @， 


1et x=tl in t2 一 [x 一 tljt2 (下 -Let) 


用 这 种 方法 ,在 对 上 面 的 例子 进行 求 值 的 第 一 步 是 用 它 的 定义 来 代替 r, 产 生 : 


外 ”一 且 提 到 一 般 化 和 实例 化 时 ,一 个 明确 类 型 变量 注释 的 lamhda 抽象 与 一 个 需要 约 东 产生 算法 来 产生 变量 的 未 注释 
抽象 之 间 的 区 别 就 会 变 得 不 再 重要 。 任 一 种 方法 都 会 使 let 的 右 端 被 分 配 一 个 带 变量 的 类 型 ,该 变量 在 加 入 上 下 
文 之 前 都 是 一 般 化 的 , 且 在 每 次 实例 化 时 都 要 被 新 变量 代替 。 

@@ 严格 地 说 ,应 该 用 一 个 存储 器 来 注释 该 规则 ,与 在 第 13 章 的 做 法 一 样 ,因为 我 们 正在 讨论 带 引用 的 语言 : 

四 let xmetl in t2 | 由 一 [x 一 tiltz11 (E-Let) 
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Cref (MX，x)) := (AMX:Nat。Ssucc xX] in 
CILCref (CAX.、Xx)7))7 true; 


该 式 是 十 分 安全 的 ! 第 一 行 产 生 了 一 个 初始 含 相 同 函数 的 引用 单元 ,将 (AMx:Nat.suce x) 存 放 
在 里 面 ; 第 二 行 产 生 了 另 一 个 包含 相同 函数 的 引用 单元 ,提取 出 里 面 的 内 容 并 作用 到 tmue。 然 
而 ,这 种 计算 也 表明 改变 求 值 规则 使 之 适合 类 型 规则 的 做 法 ,会 产生 不 寻常 的 语义 , 即 不 再 是 
按照 标准 的 值 调用 求 值 顺序 [ 带 非 CBV 求 值 方法 的 命令 式 语言 并 不 是 前 所 未 闻 的 (Augustsson， 
1984) ,但 它们 从 未 流行 过 ,就 因为 在 运行 时 对 副作用 的 顺序 的 理解 和 控制 存在 困难 ] 。 

相 比 之 下 ,改变 类 型 规则 ,使 之 配合 求 值 规则 的 方法 更 好 些 。 因 为 十 分 容易 ,只 要 强加 一 
个 限制 (通常 称 为 值 限制 ) 就 可 使 let 团 可 多 态 处 理 ,也 就 是 说 ,只 要 它 的 右 端 是 一 个 语法 值 , 它 
的 自由 类 型 变量 可 以 一 般 化 。 比 如 ,在 有 错误 的 例子 中 , 当 我 们 将 > 加 入 到 上 下 文 时 , 赋 给 它 
的 类 型 是 X>X, 而 不 是 YX.X->X。 第 二 行 所 加 的 约 东 将 会 使 X 强行 转换 为 Nat, 因为 Nat 不 
可 能 和 Bool 合 一 ,这 样 就 会 造成 第 三 行 的 类 型 检查 失败 。 

用 值 限 制 的 方法 可 以 使 类 型 更 安全 ,只 是 在 表述 上 会 繁琐 一 些 ; 我 们 再 不 能 写 这 样 一 种 程 
序 一 一 程序 中 let 表达 式 的 右 端 弃 能 实现 有 趣 的 计算 ,又 能 被 赋予 一 个 多 态 类 型 。 令 人 惊讶 的 
是 ,这 种 限制 不 会 在 实际 使 用 时 产生 任何 不 同 之 处 。Wright(1995) 通 过 分 析 大 量 用 ML 术语 
(ML 标准 定义 ,由 Milner,Tofte 和 Harmper 1990 年 提出 ) 写 的 文献 代码 (提供 了 基于 弱 类 型 变量 的 
更 灵活 的 let 类 型 规则 ) 而 得 出 了 这 个 结论 ,并 发 现 无 论 如 何 几 乎 具有 一 小 部 分 的 右 端 是 语法 
值 。 该 结论 或 多 或 少 结束 了 争论 ,现在 所 有 的 ML 型 的 let 多 态 都 采纳 值 限制 。 


22.7.1 练习 [xxxw 大 ] :请 实现 本 节 的 算法 。 
22.8 注释 


,关于 lambda 演算 中 的 主 类 型 概念 至 少 要 追溯 到 20 世纪 50 年 代 的 Curry 的 论著 (Cuny 和 
Feys,1958)。 基 于 Curry 思想 的 计算 主 类 型 算法 是 由 Hindley(1969) 提 出 的 ;类 似 的 算法 是 由 
Moris(1968) 和 Milner(1978) 独 立 提 出 的 。 在 命题 逻辑 世界 中 ,该 思想 提出 得 更 早 , 大 概 是 20 世 
纪 20 年 代 的 Tarski 和 20 世纪 50 年 代 的 Meredith 兄弟 (Lemmon,Meredith, Meredith, Prior 和 Tho- 
mas, 1957) ;算法 第 一 次 是 由 David Meredith 于 1957 年 在 计算 机 上 运行 的 。 另 外 历史 上 对 主 类 
型 的 评论 还 有 Hindley(1997) 。 

合 一 (Robinson,1971) 是 计算 机 科学 的 许多 领域 的 基础 。 可 找到 关于 它 的 大 量 介绍 ,例如 ， 
在 Baader 和 Nipkow(1998) , Baader 和 Siekmann(1994) , Lassez 和 Plotkin(1991) 都 提 到 过 。 

ML 型 的 let 多 态 首先 是 由 Miliner(1978) 提 出 的 , 那 时 大 量 的 类 型 重 构 算 法 已 经 提出 了 , 著 
名 的 为 Damas 和 Milner(1982; 还 有 Lee 和 Ti,1998) 提 出 的 经 典 的 允 (Damas 和 Milner) 算 法 。 叉 

-算法 与 本 章 提出 的 算法 ,其 主要 区 别 是 前 者 提出 的 是 “ 纯 类 型 重 构 " 一 -将 主 类 型 指派 给 完全 
无 类 型 的 lambda 项 ,而 本 章 是 将 类 型 检查 和 类 型 重 构 混 在 一 起 , 允许 项 包含 明确 的 类 型 注释 ， 
注释 中 可 以 (但 不 是 一 定 ) 包 含 变量 。 这 一 点 使 得 我 们 在 技术 表述 上 存在 多 一 些 的 困难 [尤其 
是 定理 (22.3.7) 完 备 性 的 证 明 , 因 为 在 这 里 必须 要 谨慎 地 保持 程序 人 员 的 类 型 变量 与 约束 产 
生 规 则 中 提 到 的 变量 区 别 开 来 ] ,但 它 与 其 他 章节 的 风格 紧密 配合 。 

一 篇 由 Cardeli (1987) 写 的 经 典 论文 列 出 了 许多 实现 上 的 观点 。Appel(1998), Ahe 等 ， 
《1986) 和 Reade(1989) 等 人 对 其 他 类 型 重 构 算法 进行 了 一 些 探 讨 。 一 篇 十 分 精彩 的 ,关于 核心 
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系统 ( 称 为 mini-ML) 的 文章 (由 Clement, Despeyroux, Despeyroux 和 Kahn, 1986 年 撰写 ) 形 成 了 理 
论 讨 论 的 基础 。Tiurn(1990) 对 类 型 重 构 一 系列 问题 进行 了 研究 。 

主 类 型 不 应 该 与 相似 概念 主 类 型 化 混淆 在 一 起 。 其 区 别 是 , 当 我 们 计算 主 类 型 时 ,上 下 文 
PP 和 项 t 均 看 成 是 算法 的 输入 ,而 主 类 型 T 是 输出 。 计 算 主 类 型 化 方式 的 算法 是 只 将 t 作为 输 
人 ,将 下 和 T 视 为 输出 ,也 就 是 说 , 它 计 算 的 是 + 中 关于 自由 变量 类 型 的 最 小 假设 。 主 类 型 化 
对 支持 独自 汇编 和 “灵敏 重 汇编 ”实现 递增 类 型 推论 和 指出 类 型 错误 方面 都 有 作用 。 但 遗憾 
的 是 ,许多 语言 ,尤其 是 ML 语言 ,只 有 主 类 型 而 没有 主 类 型 化 ,参见 Jim(1996) 。 

ML 多 态 , 由 于 其 功能 强大 但 又 简易 而 令 人 瞩目 ,在 程序 设计 领域 占据 一 块 * 风 水 宝地 ”, 如 
果 将 其 与 其 他 复杂 的 类 型 特征 结合 ,将 变 得 更 加 的 精妙 。 在 这 块 领 域 中 最 大 的 成 功 就 是 为 记 
录 型 进行 类 型 重 构 的 一 个 精彩 陈述 ,是 由 Wand(1987) 提 出 的 ,以 后 Wand(1988,1989b) 又 对 其 
进行 了 进一步 的 探讨 ,还 有 Remy(1989,1990; 1992a,1992b,1998) 和 其 他 许多 学 者 都 深入 研究 
过 。 其 中 的 思想 是 引入 了 一 个 新 的 变量 , 称 为 行 变量 , 它 不 是 类 型 的 变化 ,而 完全 是 字段 标签 和 
相关 类 型 的 “ 行 ”。 相 等 合 一 的 简单 形式 可 用 来 解决 含 行 变 量 的 约束 集 问题 ,参见 练习 22.5.6。 
Garigue(1994) 和 其 他 一 些 人 研究 过 动态 类 型 的 相关 方法 。 这 些 技术 已 经 拓展 到 一 般 性 的 概 
念 , 如 类 型 类 (Kaes ,1988; Wadler 和 Blott , 1989) 、 约 束 类 型 (Odersky， Sulzmann 和 Wehr, 1999 ) , 以 
及 合格 类 型 (Jones, 1994b, a) , 这 些 概念 形成 了 Haskell 的 类 型 类 系统 的 基础 (Hall 等 , 1996; 
Hudak 等 , 1992; Thompson, 1999); 类 似 的 思想 , Mereury (Somogyi, Henderson 和 Conway, 1996 ) 和 
Clean( Plasmeijer, 1998) 都 提出 过 。 

Wells(1994) 提 出 对 功能 更 大 的 ,不 可 预言 多 态 形式 的 类 型 重 构 是 不 可 决定 的 ,关于 不 可 预 


言 多 态 将 在 第 23 章 讨 论 。 的 确 ,该 系统 的 一 些 部 分 类 型 重 构 的 形式 也 证 实 是 不 可 决定 的 。 


23.6 节 和 23.8 节 将 对 此 结论 提供 更 多 的 说 明 ,还 要 就 如 何 将 ML 型 类 型 重 构 与 多 态 更 强 的 形 
式 , 如 2 秩 多 态 结合 起 来 的 方法 问题 进行 仔细 说 明 。 

对 于 子 类 型 化 与 ML 型 类 型 重 构 的 组 合 ,一 些 有 效 的 初始 成 果 已 经 由 众多 学 者 得 出 (Aiken 
和 Wimmers ,1993; Eifrig, Smith 和 Trifonov,1995; jagannathan 和 Wright, 1995;， Trifonov 和 Smith， 
1996; 0Odersky,Sulzmann 和 Wehr, 1999; Flanagan 和 Felleisen , 1997; Pottier, 1997) ,但 实用 的 检查 
器 还 期 待 着 推广 使 用 。 

扩充 ML 型 的 类 型 重 构 , 使 之 能 处 理 递 归 类 型 (参见 第 20 章 ), 并 不 是 件 十 分 困难 的 事 
(Huet,1975,1976)。 对 本 章 提 出 的 算法 惟一 最 困难 的 是 对 合 一 的 定义 ,因为 这 里 我 们 忽略 了 发 
生 检 查 (这 样 做 ,通常 是 为 保证 合 一 算法 返回 的 代 换 是 无 循环 的 ) 。 这 样 做 了 以 后 ,为 确保 能 在 
有 限时 间 内 结束 ,还 要 修改 合 一 算法 中 使 用 的 表示 方式 ,以 使 它 能 继续 保持 共享 ,也 就 是 说 ,要 
使 用 破坏 ( 隐 含 循环 的 ) 指 针 结构 的 操作 。 

另 一 方面 ,将 类 型 重 构 与 递归 定义 的 项 混淆 了 ,会 带 来 一 个 环 手 的 问题 , 称 为 多 态 递 归 。 
ML 中 一 个 简单 ( 且 不 存在 问题 ) 用 来 定义 递归 函数 的 类 型 规则 能 说 明 一 个 递归 函数 只 能 在 自 
己 的 定义 体内 单 态 运 行 ( 即 所 有 的 递归 调用 必须 是 相同 的 类 型 参数 和 结果 ) ,而 在 程序 的 其 余 
部 分 的 发 生 可 以 是 多 态 的 (用 不 同类 型 的 参数 和 结果 )。Mycroft(1984) 和 Meertens(1983) 为 递 
归 定 义 提 出 一 个 多 态 类 型 规则 , 允许 递归 调用 一 个 自身 定义 体 中 递归 函数 时 可 用 不 同 的 类 型 
实例 化 。 这 种 扩充 ,常常 称 为 MilnerMycroft 演算 , 却 被 Henglein(1993) 以 及 Kfoury , Tiurn 和 
Urzyczyn(1993a) 等 人 提出 过 (存在 着 不 可 决定 的 重 构 问 题 ); 这 两 方面 提出 的 证 明 都 是 依据 于 
Ktfoury, Tiurn 和 Urzyczyn(1993b) 提 出 的 (无 限制 ) 半 合 一 问题 的 不 可 决定 性 。 
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在 前 一 章 中 ,我 们 学 习 了 简单 ML 中 的 let 多 态 。 从 本 章 开 始 ,将 要 考虑 在 一 个 功能 更 强 
大 的 演算 ( 称 为 系统 玉 中 设置 多 态 的 更 一 般 形 式 。 


23.1 动机 


如 在 22.7 节 中 所 述 ,我 们 可 在 简单 类 型 的 lambda 演算 中 写 一 个 无 限 多 的 “加 倍 "(doubling) 
函数 : 
doubTieNat = Af:Nat 一 Nat。AX:Nat. 后 (f xy); 
doub1leRcd = Af:{f1:Boo1} 一 人 上 1:Boo1}y. Ax:f1:8oo1}. ff x); 
doubleFun = AMf: (Nat-~Nat)- (Nat 一 Nat) ， AX:Nat 一 Nat. 千 〈f x); 


每 个 函数 都 用 不 同 的 参数 类 型 ,但 所 有 的 都 实现 相同 的 行为 (的 确 , 若 不 考虑 类 型 注释 ,它们 共 
用 相同 的 程序 语句 )。 如 果 我 们 想 在 相同 的 程序 中 运行 不 同 参数 类 型 说 明 的 doubling 函数 ,就 
应 该 为 每 个 下 写 出 各 自 的 doubleT 定义 。 这 种 剪 切 -~ 粘贴 的 编程 方式 违反 了 软件 工程 的 一 个 
基本 的 规则 : 

规则 提要 ;程序 中 的 每 个 有 意义 的 功能 决 都 应 该 在 源 代 码 的 同一 个 位 置 运行 。 对 不 

同 代码 段 实现 类 似 功 能 的 ,可 以 将 它们 放 在 相同 代码 中 仅 提 取出 不 同 的 部 分 。 

这 里 提 到 的 不 同 部 分 是 指 类 型 ! 我 们 所 需要 的 是 能 够 从 项 中 提取 出 类 型 ,并 能 在 后 面 用 
具体 类 型 注释 来 实例 化 这 些 抽象 的 项 的 工具 。 


23.2 各 种 多 态 


如 果 类 型 系统 允许 一 段 程序 能 使 用 多 种 类 型 , 则 称 这 种 系统 为 多 态 系统 (poly 意思 为 多 ， 
morph 为 形式 )。 多 态 形 的 几 种 方式 可 在 现代 语言 中 找到 (这 种 分 类 是 由 Stachey, 1967 和 
Cardelli 及 Wegner,1985 提出 的 )。 

参数 化 多 态 :本 章 的 主题 ,允许 一 段 代码 能 带 一 般 化 类 型 , 即 先 用 变量 来 代替 实际 类 

型 ,在 需要 时 再 用 特殊 的 类 型 来 实例 化 。 参 数 定 义 都 用 合 一 式 : 它 们 的 所 有 实例 都 实 

现 相 同 的 操作 。 


参数 化 多 态 功能 最 强大 的 形式 是 本 章 提出 的 不 可 预言 或 一 级 多 态 。 实 际 使 用 中 最 常用 的 
形式 是 ML 型 或 称 为 let 多 态 形 , 它 可 将 多 态 形 限 制 到 最 高 层 let 圈 ,不 允许 将 多 态 值 作为 参数 
的 函数 ,但 可 以 获得 自动 类 型 重 构 一 个 方便 且 自 然 的 形式 (参见 第 22 章 )。 目前 一 级 参数 化 多 
态 形 也 开始 在 编程 语言 中 流行 起 来 ,并 成 为 了 某 些 语 言 系统 ,如 ML( 参 见 Hamper 和 Sione， 
2000) 的 强大 模块 的 技术 基础 。 


中 ”本章 中 学 习 的 系统 大 部 分 是 纯 系 统 F( 参 见 图 23.1)。23.4 节 中 例子 对 前 面 学 习 过 的 特点 做 了 扩充 。 相 关 的 0Caml 
实现 是 如 lpoly( 例 子 中 涉及 序 对 、 列 表 都 需要 fjomega 检查 器 )。 
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相 比 之 下 ,权宜 多 态 允 许 一 个 多 态 值 在 遇 到 不 同 的 类 型 时 能 产生 不 同 的 操作 。 权 宜 多 态 
最 常见 的 例子 是 重 载 ,即使 用 单一 的 函数 形式 去 实现 许多 操作 ,编译 器 (或 运行 系统 ,取决 于 重 
载 归 结 是 静态 的 还 是 动态 的 ) 根 据 参 数 的 类 型 ,为 函数 的 每 个 应 用 选择 合适 的 实现 方式 。 

函数 重 载 概念 的 出 现形 成 了 语言 的 多 方式 处 理 的 基础 ,比如 语言 CLOS (Bobrow 等 ,1988; 
Kiczales 等 ,1991 ) 和 Cecil ( Chambers，1992; Chambers 和 Leavens, 1994)。 这 一 原理 已 经 在 
Castagna, Ghelli 和 Longo(1995; Castagna,1997) 提 出 的 X-& 演 算 中 形式 化 了 。 

权宜 多 态 的 一 个 更 强 形 式 称 为 加 强 多 态 (Hamper 和 Morrisett, 1995; Crary，Weirich 和 
Morrisett, 1998) , 允许 在 运行 时 对 类 型 进行 受 限 计算 。 对 于 许多 多 态 语 言 的 高 级 实现 而 言 , 加 强 
多 态 是 一 种 有 效 的 技术 ,包括 无 标记 垃 攻 收 集 .提取 函数 参数 、 多 态 排列 和 空间 有 效 的 “平整 ” 
数据 结构 。 

然而 ,权宜 多 态 可 通过 typecase 原 语 构造 一 个 强 形式 , 它 支 持 运行 时 根据 类 型 信息 进行 任 
意 模式 匹配 (Abadi，Cardelli ，Pierce 和 Rekmy, 1995; Abadi，Cardelli, Pierce 和 Pilotkin, 1991b; 
Henglein, 1994; Leroy 和 Mauny,1991; Thatte,1990) 。 语 言 特性 如 Java 中 的 instanceof 测试 就 可 看 
成 是 ypecase 的 受 限 形 式 。 

第 15 章 的 子 类 型 多 态 通过 假定 的 规则 给 一 个 项 更 多 的 类 型 ,这 样 我 们 可 以 有 选择 地 去 
“忘记 ”项 的 具体 操作 。 

以 上 这 些 分 类 并 不 是 彼此 孤立 的 ,不 同形 式 的 多 态 可 以 在 同一 个 语言 中 出 现 。 如 标准 ML 
既 提 供 参 数 化 多 态 又 提供 简单 的 戏 人 式 算 术 操 作 重 载 ,但 不 包括 子 类 型 , 而 java 语言 包含 子 
类 型 . 重 载 和 简单 的 权宜 多 态 (如 instanceof) ,但 不 包含 参数 化 多 态 ( 至 少 到 写 稿 为 止 还 没有 )。 
有 许多 想 把 参数 化 多 态 加 到 java 语言 中 的 提议 ,其 中 最 著名 的 是 GJ( Bracha, Odersky, Stoutamire 
和 Wadler, 1998 ) 。 

光 说 “多 态 "是 不 负责 的 行为 ,因为 这 样 会 造成 编程 语言 领域 之 间 很 大 的 混乱 。 在 功能 性 
编程 人 员 ( 即 那些 使 用 或 设计 如 ML, Haskell 等 语言 的 人 员 ) 中 ,多 态 指 的 通常 都 是 参数 化 多 
态 。 而 另 一 方面 ,对 面向 对 象 的 编程 人 员 来 说 , 它 指 的 是 子 类 型 多 态 , 将 术语 genericity (或 
generic) 用 于 参数 化 多 态 。 


23.3 系统 F 


本 章 将 要 学 习 的 系统 通常 称 为 系统 下 , 它 首 次 由 Jean-YvesGirard(1972) 在 逻辑 证 明理 论 的 
上 下 文中 发 现 。 过 后 不 久 ,一 个 基本 功能 相同 的 类 型 系统 由 一 位 叫做 John Reynolds(1974) 的 计 
算 机 科学 家 独立 开发 出 来 ,他 还 把 该 系统 称 为 多 态 jambda 演算 。 该 系统 已 经 作为 多 态 基础 研 
究 的 一 个 工具 和 作为 许多 编程 语言 设计 基础 而 广泛 采纳 。 有 时 该 系统 还 被 称 为 二 阶 lambda 
演算 ,因为 它 通过 Cury-Howard 对 应 ,与 二 阶 直觉 逻辑 相对 应 ,这 种 逻辑 不 仅 对 个 体 ( 项 ) 进 行 
量化 ,还 对 谓词 (类 型 ) 进 行 量化 。 

系统 了 的 定义 是 对 简单 类 型 的 lambda 演算 一 .的 推广 。 在 入 -中 ,lambda 抽象 是 从 项 中 
提取 项 ,应 用 是 为 抽象 部 分 赋值 。 因 为 我 们 需要 先 从 项 中 抽象 出 类 型 , 稍 后 再 将 类 型 添加 进 
去 ,所 以 引 和 人 了 一 个 新 的 抽象 形式 , 写 为 必 .b 它 的 参数 是 一 个 类 型 和 一 个 新 的 应 用 形式 t[T]， 
在 芒 妇 中 的 参数 是 一 个 类 型 表达 式 。 我 们 把 新 的 抽象 称 为 类 型 抽象 ,新 的 应 用 构造 为 类 型 应 
用 或 实例 化 。 
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在 求 值 过 程 中 , 当 一 个 类 型 抽象 遇 到 一 个 类 型 应 用 时 ,它们 形成 了 一 个 约 式 (redex) ,如 在 
入 -中 一 样 。 添 加 一 个 归 约 规则 : 


(CAX.tl2) [T2] 一 [X 一 Tz]jtlz (E-TappTabs) 
它 类 似 于 一 般 的 抽象 和 应 用 妇 约 规则 |; 
CAx:Til.tl2) v2 一 [x 一 v2]tlz (下 -AppAbs) 


例如 , 当 多 态 恒 等 函 数 : 

1d = AX.AX:X，X， 
应 用 于 类 型 Nat 时 , 记 成 id[Nat] 时 ,结果 为 [X F- Nat] ()x:X.x) ,也 就 是 ix;Nat.x, 为 自然 数 上 
的 恒 等 函 数 。 

最 后 ,还 要 说 明 一 个 多 态 抽象 的 类 型 。 用 类 型 ,如 Nat->Nat 来 分 类 一 般 函 数 xx: Nat,xi; 现 
在 还 需要 一 个 定义 为 某 类 型 的 “箭头 类 型 "的 不 同形 式 , 用 米 分 类 多 态 函 数 ,如 jd。 注意 ,对 其 
使 用 的 每 个 参数 T,id 会 产生 一 个 类 型 为 T->T 的 函数 ;也 就 是 说 ,id 结果 的 类 型 是 依赖 于 作为 
参数 传递 的 实际 类 型 。 为 说 明 这 种 依赖 性 ,将 id 的 类 型 写成 VX.X->X。 多 态 抽象 和 应 用 的 
类 型 化 规则 类 似 于 项 抽象 和 应 用 规则 。 

T,XFtz:T2 


TH AX.tz : VX,T> (T-TAbs) 
[FFt:VX.Tiz 
(TTApp) 


THFtITz]:[X 一 Tz]Ti> 


注意 ,在 对 + 的 子 推导 上 下 文中 加 入 了 类 型 变量 X。 我 们 仍 要 按照 定义 (5.3.4) 的 约定 , 即 (项 
或 类 型 ) 变 量 的 名 称 的 选择 应 该 与 了 中 已 出 现 过 的 不 同 ,为 满足 这 一 条 件 ,lambda 轿 的 类 型 变 
量 也 可 相应 重 命名 (在 关于 系统 下 的 某 些 陈述 中 ,这 个 新 条 件 是 作为 陪 TAbs 规则 的 外 在 附加 
条 件 ,而 不 是 把 它 加 入 到 构造 上 下 文 的 规则 当中 ,这 一 点 与 我 们 这 里 的 做 法 不 同 )。 此 时 ,上 下 
文中 类 型 变量 的 惟一 作用 就 是 记录 演算 的 中 间 过 程 ,确保 相同 的 类 型 变量 不 会 两 次 加 和 到 同 
一 上 下 文中 。 在 后 面 的 章节 中 ,我 们 将 用 多 种 信息 来 注释 类 型 变量 ,如 罗 ( 参 见 第 26 章 ) 和 分 
类 (参见 第 29 章 )。 

图 23.1 是 多 态 入 演算 的 完整 定义 ,突出 了 与 .的 区 别 。 通 常 ,该 图 只 定义 了 纯 演 算 , 忽 
略 了 其 他 类 型 结构 ,如 记录 型 . 基 类 型 (Nat 和 Bool) ,以 及 项 语言 扩展 (如 let 和 纪 )。 但 这 些 特 
殊 的 结构 可 以 直接 加 到 纯 系统 中 ,我 们 在 接 下 来 的 例子 中 会 随时 使 用 它们 。 


23.4 实例 


现在 我 们 研究 几 个 带 多 态 的 程序 实例 。 为 激发 大 家 的 兴趣 ,这 里 先 举 几 个 小 的 但 越 来 越 
难 解决 的 例子 ,以 此 来 说 明 系 统 下 表达 上 的 某 些 优 势 。 然后 要 重 温 一 下 带 列表 、 树 等 “普通 ”多 
态 程序 的 基本 思想 。 最 后 两 小 节 将 介绍 简单 的 代数 数据 类 型 ,如 布尔 型 数字 型 和 列表 型 的 
Church 编码 的 类 型 形式 ,其 中 Church 编码 在 第 5 章 的 无 类 型 lambda 演算 中 出 现 过 。 尽管 这 些 
编码 在 实际 中 起 不 到 大 作用 ,但 如 果 将 它们 作为 原 语 植 人 高 级 编程 语言 中 ,会 使 编译 好 的 代码 
更 加 容易 ,因为 它们 对 理解 系统 了 的 复杂 性 和 功能 有 很 大 的 帮助 。 在 第 24 章 中 ,我 们 还 能 看 
到 多 态 在 模块 式 程序 设计 和 抽象 数据 类 型 等 领域 的 应 用 。 
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这 0 
图 23.1 多 态 lambda 演算 (系统 了 ) 
热身 例子 


我 们 已 经 知道 类 型 抽象 和 应 用 是 怎样 用 来 定义 单一 的 多 态 恒 等 函数 : 
id = AX。AX:X。X; 


本 人 
并 将 其 实例 化 ,产生 任何 满足 要 求 的 具体 恒 等 本 数 : 
id [Nat]; 
* <fun> : Nat 一 Nat 


id [Nat] 0; 


* 0. : Nat 
一 个 更 有 用 的 例子 是 多 态 加 倍 函 数 : 
double = AX， 和 Af:X 一 X. 和 XAa:X. 下 (f a); 


* doubTe : YX (X-X) 一 X 一 X 
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类 型 X 的 抽象 使 我 们 用 不 同类 型 参数 实例 化 double, 从 而 获得 有 具体 类 型 的 doubling( 加 售 ) 
函数 ; 
doub1eNat = double [Nat]; 


> doub1eNat : (Nat--Nat)] 一 Nat 一 Nat 
doub1eNatArrowNat = doub1le [Nat-Nat]; 


> doubleNatArrowNat : 〔(Nat 一 Nat) 一 Nat--Nat) 一 
(Nat 一 Nat) - Nat 一 Nat 


一 旦 用 类 型 参数 实例 化 了 ,double 能 进一步 被 用 在 实际 的 函数 和 合适 的 类 型 参数 上 ， 
doub1e [Nat] (CAx:Nat. succCsuccCx)7) 3; 
* 7 : Nat 
这 里 有 一 个 稍 难 的 例子 一 一 多 态 形 的 自 应 用 。 可 回忆 ,在 前 面 介绍 的 简单 类 型 lambda 演 
算 中 ,没有 办 法 给 无 类 型 项 xx.xx 加 上 类 型 (参见 练习 9.3.2)。 另 一 方面 ,在 系统 F 中 ,只 要 我 
们 给 x 一 个 多 态 类 型 并 将 该 项 合理 地 实例 化 , 则 该 项 就 成 为 可 类 型 化 的 ， 
se]fApp = AX:VX.X 一 X。 X [YX.X 一 X] x; 
*” Se1fApp : (VX，X-X) 一 (YX. X - X) 
作为 一 个 更 有 用 的 自 应 用 例子 ,我 们 还 能 将 多 态 的 double 函数 应 用 于 自身 ,可 产生 一 个 多 态 四 
伴 函 数 : 
quadruple = AX.， doub1le [X-X] (double [X]); 
”quadruple : YX，(X--X) 一 X 一 X 
23.4.1 练习 [* 大] :使 用 图 23.1 中 的 类 型 规则 ,证明 一 下 上 面 的 项 给 出 的 类 型 。 


多 态 列表 


在 大 多 数 现实 世界 中 带 多 态 的 编程 比 上 面 举 的 例子 要 简单 得 多 。 这 里 举 一 个 直接 多 态 编 
程 的 例子 ,假设 编程 语言 带 类 型 构造 子 List, 以 及 通常 列表 操作 原 语 的 项 构造 子 , 类 型 如 下 ; 


” nil : VX，List X 
Cons : VX. X 一 ListX 一 List X 
isni1 : VX. List X -bool1 
head : YX. List X 一 X 
tail : YX. List X 一 List X 


当 第 一 次 在 11 .12 节 中 引入 列表 时 ,采用 "习惯 "的 推论 规则 ,允许 对 带 任意 类 型 元 素 的 列表 进 
行 操 作 。 这 里 ,我们 给 操作 加 上 多 态 类 型 ,用 来 表达 完全 相同 的 约束 , 即 列表 不 再 需要 植 人 到 
程序 的 核心 中 , 可 以 简单 地 认为 是 提供 几 种 带 特殊 多 态 类 型 的 常量 库 。 我 们 还 可 对 第 13 章 中 
介绍 的 Ref 类 型 和 引用 单元 的 原 语 操作 ,以 及 许多 其 他 的 通用 数据 和 控制 结构 ,按照 对 列表 相 
同 的 方法 来 处 理 。 

可 以 用 这 些 原 语 来 对 List 定义 自己 的 多 态 操作 。 例 如 ,这 里 有 个 多 态 map 函数 :使 用 将 X 
且 射 到 Y 的 函数 和 X 的 列表 ,返回 站 列表 : 
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map = AX。AY. 
个 : X 一 Y. 
Cfix (CAMm: (List X) 一 《List Y) ， 
Al1: List X. 
if isni1 [X] 1 
then ni]l [Y] 
else cons [Y] (Cf (Chead [X] 17) 
Cm (tail [X] 17777; 
* map : VX，VY. (X-Y) -List X 一 List Y 


1 = cons [Nat] 4 (cons [Nat] 3 (cons [Nat]j 2 (Cnil [Nat]77); 
” 1 : List Nat 

head [Nat] (map [Nat] [Nat] (AXx:Nat， succ x) 1); 
*” 9 : Nat 


23.4.2 ”练习 [* 户 ] :请 证 明 一 下 上 面 的 map 确实 具有 上 所 示 的 类 型 。 
23.4.3 练习 [推荐 ,*x] :请 模仿 map, 写 出 一 个 多 态 列 表 倒序 的 函数 : 


reverse : VX. LiSstX 一 ListX. 
这 道 题 最 好 上 机 完成 。 用 fiollomega 检查 器 ,并 从 fullomega 目录 中 拷贝 test.f 的 内 容 到 自己 
的 输入 文件 的 顶端 [该 文件 含有 List 构造 子 的 定义 及 一 些 相关 要 求 使 用 F., 系统 (第 29 章 
中 有 介绍 ) 功 能 强大 的 抽象 工具 的 操作 。 不 需要 去 理解 它们 是 怎样 具体 完成 本 练习 的 ]。 


23.4.4 练习 [xx 户 ] : 写 出 一 个 简单 的 多 态 排 序 函 数 
sort : YX. (X 一 X 一 Boo1) 一 (ListX) 一 List X 


其 中 第 一 个 参数 是 类 型 X 的 元 素 的 比较 函数 。 
Church 编码 


在 5.2 节 中 ,我 们 知道 许多 原始 类 型 ,如 布尔 型 .数字 型 和 列表 型 都 能 在 纯 无 类 型 lambda 
演算 中 作为 函数 进行 编码 。 在 本 节 中 ,还 要 说 明 这 些 Church 编码 是 怎样 在 系统 了 中 运行 的 。 
读者 可 以 参考 5.2 节 的 内 容 , 更 新 对 Church 编码 的 印象 。 

该 编码 有 两 点 是 很 有 趣 的 。 其 一 ,它们 能 使 我 们 很 好 地 理解 类 型 抽象 和 应 用 ;其 二 ,它们 
说 明 系统 下 与 纯 雹 类 型 lambda 演算 一 样 ,是 一 种 用 于 计算 的 非常 丰富 的 语言 ,因为 纯 系统 能 
表达 大 量 的 数据 和 控制 结构 。 其 意思 是 说 ,如 果 我 们 后 来 设计 一 个 全 面 的 编程 语言 ,将 系统 下 
作为 其 核心 ,就 可 将 这 些 特点 作为 原 语 (这 样 是 为 了 提高 效率 ,使 我 们 能 引入 更 方便 具体 的 语 
法 ) 而 不 需要 改动 核心 语言 的 任何 基本 属性 。 当 然 ,不 需要 改动 任何 基本 属性 这 种 说 法 只 对 部 
分 高 级 语言 来 说 是 正确 的 。 例 如 ,增加 一 个 引用 到 系统 下 中 ,做 法 和 第 13 章 的 入 .一 样 ,就 是 
对 系统 中 基本 计算 特性 的 一 个 实际 改动 。 

让 我 们 从 Chureh 布尔 型 开始 。 回 忆 一 下 无 类 型 的 lambda 演算 ,用 lambda 项 tu 和 fs 来 表 
示 布 尔 常量 tue 和 false, 如 下 所 示 ; 

tru = At，Af， 七 ; 
fls = At，Af. 下 ; 

这 里 的 每 一 项 都 使 用 两 个 参数 并 返回 其 中 一 个 。 如 果 想 给 tm 和 和 分 配 一 个 通用 的 类 
型 ,最 好 假设 这 两 个 参数 具有 相同 的 类 型 (调用 者 并 不 知道 是 哪 一 个 与 tm 或 保 关 联 ) ,但 这 种 
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类 型 可 以 是 任意 的 (因为 tu 和 人 不 需要 对 它们 的 参数 做 任何 事情 ,只 是 要 返回 其 中 一 个 )。 
这 样 ,就 得 到 了 tm 和 剑 的 如 下 类 型 : 
CBoo]1 = YX.X 一 X 一 X; 
这 样 , 只 要 加 进 了 合适 的 类 型 注释 给 上 面 的 无 类 型 形式 ,就 得 到 了 系统 上 的 项 tr 和 全 : 
tru = AX，At:X，Af:X， 七 ; 
”tru : CBool1 
fls = AX，At:X，Af:X。 下 ， 
* 于 1sS : C8oo1 
可 以 通过 构造 一 个 新 的 布尔 型 , 即 用 一 个 存在 的 布尔 类 型 来 决定 该 返回 哪 一 个 参数 ,以 写 
一 个 通用 的 布尔 型 操作 ,如 not， 
not = Ab:CBoo1，AX，At:X，Af:X，b [X] 于 七 
* not : CBoo1 -~ CBool 
23.4.5 练习 [推荐 ,*j : 写 一 个 项 and, 使 用 两 个 CBool 类 型 的 参数 并 计算 它们 的 合 取 式 。 
我 们 也 能 给 数字 写 一 个 类 似 的 程序 。5.2 节 中 介绍 的 Chureh 数 子 对 每 个 自然 数 ” 编 一 段 
函数 代码 ,使 用 两 个 参数 s 和 z, 并 将 s 用 于 z, 如 此 重复 n 次 


co = AS。 AZ，Z; 

cl = AS。AZ。. S Z; 

cz = AS AZ. 5S(〈S Z) | 

c3 = AS. AZ. 5S (SS (s z)); 


显然 ,z 应 该 与 s 的 定义 域 类 型 相同 , 且 s 返 回 的 结果 也 应 该 有 相同 的 类 型 。 由 此 ,我 们 得 出 系 
统 了 中 Chureh 数 子 的 类 型 为 : 
CNat = VX，(X 一 X)] 一 X 一 Xi; 
知 给 无 类 型 的 Church 数字 加 上 合适 的 注释 ,就 能 得 到 该 类 型 的 元 素 : 
CO = AX、AS:X 一 X，AZ:X，Z; 
* Co : CNat 


Cl 一 AX AS:X 一 X。AZ:X， 5S 2Z; 


* Cl : CNat 
cz = AX、ASIX 一 X，AzZ:X.， 5S (5 Zz); 
”C2 : CNat 


关于 Churceh 数 子 的 有 类 型 后 继 (successor) 本 数 可 以 定义 成 为 ; 


CSstucc = AnICNat，AX，AS:X-X。、AzZ:X. 5s (n [X] S Z); 


* CSUCC : CNat 一 CNat 


即 对 给 定 的 s 和 z,csuce 返回 一 个 CNat 的 元 素 ， 将 s 用 到 z 上 次 (即将 王 应 用 于 s 和 z), 然 
后 再 重复 一 次 。 其 他 的 算术 操作 也 可 以 类 似 地 定义 。 的 如 加 捧 作 也 能 人 后 坟 下 中 必 、 
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cplus = Am:CNat. Mn:CNat， m [CNat] CSucC ni; 
* cplus : CNat 一 CNat 一 CNat 
或 更 直接 地 : 
cplus = Am:CNat. An:CNat. AX. AS:X 一 X. AZz:X。 mn [Xj s (Cn [LIX]j s 
* Cplus ; CNat 一 CNat 一 CNat 
如 果 语言 也 包括 原始 数字 (参见 图 8.2) ,那么 也 用 下 列 的 函数 将 Chureh 数 子 转化 为 一 般 的 
数字 : 
cnat2nat = Am:CNat .站 [Nat] CAXx:Nat .succCxJ)]) 0; 
* Cnat2nat : CNat 一 Nat 
这 样 就 可 以 相信 我 们 对 Church 数字 的 操作 确实 是 计算 了 期 望 的 算术 函数 : 


cnat2nat (cp1uSs (csuCC co0) (CSUCC (CSUCC co)7] ; 


P 3 : Nat 
23.4.6 练习 [推荐 ,**]: 请 写 一 个 iszero 琢 数 ,使 其 用 于 Churech 数字 和 fs 等 时 ,能 返 
回 tmuo 


23.4.7 练习 [xx 户 ] :请 证 实 下 列 的 项 ; 
ctimes = Am:CNat，An:CNat，， AX。AS:X-X,. n [X] (Cm [X] s); 


* ctimes : CNat 一 CNat 一 CNat 
Cexp = Am:CNat。. AniCNat. AX，nm [X-X] (m [X]y7; 
”CexD : CNat 一 CNat 一 《Nat 
为 有 指示 的 类 型 。 请 给 出 一 个 正式 的 论述 ,说明 它们 能 实现 算术 的 乘法 和 求 萌 操作 。 
23.4.8 练习 [推荐 ,**j] :请 说 明 类 型 ，; 
PairNat = YX. (CNat 一 CNat 一 X)] 一 X; 


能 表示 多 个 数 定 序 对 ,其 中 要 写 出 下 列 函 数 ; 


pajrNat : CNat 一 CNat 一 PairNat:; 
fstNat : PairNat 一 CNat ; 
sndNat :; PairNat 一 CNat; 


用 来 构造 来 自 二 元 数字 对 的 类 型 元 素 ,并 能 存 取 它 们 的 第 一 组 成 部 分 和 第 二 组 成 部 分 。 


23.4.9 练习 [推荐 ,*x*xj: 用 练习 23.4.8 中 定义 的 函数 写 一 个 计算 Church 数 子 前 驱 的 函 
数 pred( 若 输入 为 0 则 返回 0)。 提 示 : 有 关 思 想 在 5.2 节 有 所 提 到 。 定 义 一 个 画 数 f; 
PairNat>PairNat ,将 序 对 (人 , 门 映 射 为 (i + 1, 让 ,也 就 是 说 ,将 序 对 中 的 第 二 个 部 分 去 掉 , 将 
第 一 部 分 复制 给 第 二 部 分 ,然后 给 第 一 部 分 加 1。 这 样 从 (0,0) 开 始 实现 m 次 ,能 产生 (nm， 
!_ ~- 1) ,并 从 中 提取 出 第 二 部 分 就 得 出 了 nm 的 前 驱 。 


23.4,10 练习 [xx*x*]: 还 有 另 一 种 计算 Churech 数 子 的 前 驱 函 数 ,以 上 表示 无 类 型 lambda 
项 必 .Xy.x 和 以 1 表示 和 x.x. 以 下 无 类 型 lambda 项 : 
vpred = An, AS. AZz, n (Ap. AMq.q(ps)) (kz)i 
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(该 式 来 自 于 Barendregt, 1992 ,他 认为 该 式 是 引用 J.Velmans 的 ) 可 以 计算 无 类 型 Church 数 
子 的 前 驱 。 请 说 明 ,在 系统 了 中 ,如果 给 该 项 增加 类 型 抽象 和 应 用 ,并 用 合适 的 类 型 给 无 
类 型 项 注释 闸 变 量 , 则 该 项 能 类 型 化 。 为 了 更 有 说 服 力 ,请 解释 一 下 它 是 怎样 得 出 来 的 。 


编码 列表 


作为 最 后 的 例子 ,我 们 要 将 Chureh 编码 从 数字 扩充 到 列表 。 对 表达 有 力 的 纯 系 统 下 而 
言 ,这 是 精彩 的 示范 ,因为 它 能 说 明 所 有 以 上 介绍 过 的 关于 多 态 列 表 操 作 的 编程 实例 都 能 实际 
地 在 纯 语 言 中 表达 出 来 (为 了 方便 ,我 们 确实 用 饶 结构 来 定义 一 般 的 递归 函数 ,但 本 质 上 说 ， 
不 用 它 ,同样 的 结构 也 能 被 实现 ,参见 练习 23.4,.11 和 练习 23.4.12.)。 
在 练习 5$.2.8 中 见 到 列表 也 能 用 类 似 于 自然 数字 编码 的 方式 在 无 类 型 lambda 演算 中 编 
码 。 有 效 地 ,在 一 元 符号 中 ,一 个 数字 像 一 个 虚 元 素 的 列表 。 若 将 这 种 思想 推广 到 任意 类 型 的 
元 素 中 ,就 能 得 到 列表 的 Chureh 编码 形式 , 它 将 一 个 有 元 素 x,y 和 z 的 列表 表示 成 一 个 函数 ， 
只 要 给 定 任 意 函 数 人 和 始 值 ,就 能 计算 fx (fy (fszv))。 在 0Caml 术语 中 ,列表 是 用 它 的 函数 
fold__right 来 表示 的 。 
带 类 型 X 元 素 的 列表 类 型 List X 的 定义 如 下 : 
List X = VR.(X 一 R 一 R)7 一 R 一 不 |; 
在 该 列表 表示 下 ,nil 值 很 容易 写 出 中 : 
nil = AX。 CAR， ，AC:X 一 R 一 R。An:R. n) as List Xi; 
>” nil : VX， bist X 
cons 和 isnil 操作 也 容易 表示 : 
Cons = AX，Ahd:X， At]1:List X. 
(AR。ACIX 一 R 一 R，An:R c hd (tl [R] c n7) as List X; 
* Cons ; VX. X 一 List X 一 List X 
isSnil = MX，、AT:List X，] [Boo1] (Ahd:X，AMt1:8001，false) truei 
” isnil1 : VX， List X 一 Boo1 
至 于 head 操作 ,有 些 麻烦 。 第 一 个 难点 是 该 怎样 处 理 空 列表 的 头 节 点 。 可 以 回想 一 下 ,如果 
在 语言 中 有 不 动 点 运算 符 , 就 可 以 用 它 来 构建 任意 类 型 的 表达 式 。 事 实 上 ,利用 类 型 抽象 ,就 
能 更 深入, 写 一 个 单独 的 合 一 函数 ,对 给 出 的 类 型 X 将 其 应 用 于 unit 时 ,会 产生 一 个 从 Unit 到 
X 的 发 散 函 数 ; 
diverge = AX。A_:Unit， fix (AX:X，X); 
* diverge : YX，bUnit 一 X 
这 样 ,我 们 就 能 将 diverge[X]unit 作为 head[X]nil 的 结果 。 
head = AX。A1:List X. 1 [X] CAMhd:X.， At1:X. hd) (diverge [X] unit) ; 
* head : VX， List X 一 X 


糟糕 的 是 ,该 定义 还 不 是 我 们 真正 需要 的 : 它 总 是 会 发 散 , 即 使 是 用 在 一 个 非 空 列 表 中 。 


@ 这 里 的 as 注释 可 帮助 类 型 检查 器 以 可 读 的 方式 打印 出 ' 喔 的 类 型 。 如 在 11.4 节 中 所 见 , 本 书 中 所 有 的 类 型 检查 器 
在 打印 类 型 之 前 要 实现 简单 的 缩写 压缩 ,但 压缩 函数 不 能 灵活 到 能 自动 处 理 “ 参 数 缩写 ,如 His 的 地 步 。 





238 类 型 和 程序 设计 语言 


为 得 到 邻 人 满意 的 定义 ,需要 将 其 稍微 修改 一 下 ,将 diverge[X] 作 为 参数 赋 给 1 时 ,不 必 传 递 它 
的 Unit 参数 。 为 做 到 这 一 点 ,只 要 删 掉 unit 参数 ,并 相应 地 将 第 一 个 参数 的 类 型 改 为 1: 
head = 
AX。A1:List X. 


(1 [Unit 一 X] (Ahd:X， At1:Unit-X， 和 :Unit. hd) (diverge [X]7) 
unit; 


* head : YX. List X 一 X 
即 ,] 用 于 类 型 X 一 (Unit 一 X)->(Unit 一 X) 的 函数 和 类 型 Unit 一 X 的 基础 值 , 它 创建 了 类 型 为 
UnitX 的 函数 。 如 果 1 表示 的 是 空 列表 ,该 结果 将 变 成 diverge[X]; 但 如 果 工 表示 的 是 非 空 列 
表 , 结 果 将 是 一 个 利用 unit 返回 1 头 元 素 的 函数 。 最 后 ] 的 结果 可 用 于 unit 去 获得 实际 的 头 元 
素 ( 或 没 那么 走运 ,是 发 散 的 ) ,这 样 就 得 到 了 期 望 的 head。 

对 tail 函数 ,我们 对 Chureh 编码 的 序 对 (第 一 部 分 为 类 型 X, 第 二 部 分 为 类 型 了) 采用 缩写 

形式 Pair X Y( 根 据 练习 23.4.8, 将 PairNat 型 进行 一 般 化 ): 

Pair XY = VR.(X-Y-R) 一 R; 


对 它 的 操作 也 只 是 简单 地 对 类 型 PairNat 一 般 化 过 程 : 


” pair : YX VY.X 一 Y- Pair XY 
fst : VX，VY. Pair XY 一 X 
snd : YX，VY. Pair XY 一 Y 


现在 tail 函数 可 写成 


tail = 
AX，A1: List X， 
(fst [List X] [List X] 〈 
1 [Pair 《List X) (List X)] 
(Ahd: X， At1: Pair (List X) (LT1St XI) . 
pair FList X] [List X] 
(snd [List X] [List X] t1) 
《cons [X] hd (snd [List X] [List X] t1))) 
(pair [List X] [List X] (Cni1 [X]) Cnil1 [XI777); 


* tail : YX. List X 一 List X 
23.4.11 练习 [推荐 ,**] :严格 地 说 ,本 小 节 中 的 例子 并 不 是 在 纯 系统 F 中 表达 的 ,因为 
当 head 用 于 空 列表 时 ,我们 使 用 了 一 个 各 算 子 来 构建 一 个 返回 值 。 请 将 head 修改 一 下 ， 
使 其 在 列表 为 空 时 能 返回 一 个 特别 的 参数 (而 不 是 发 散 的 )。 
23.4.12 练习 [推荐 ,*x*] :在 纯 系 统 了 中 (无 fx) , 写 出 一 个 如 下 类 型 的 inser 函数 
VX. (X 一 X 一 Boo17 一 ListX 一 X 一 ListX 
调用 一 个 比较 函数 ,一 个 排序 列表 和 一 个 新 元 素 , 并 将 该 元 素 揪 人 到 列表 的 适当 位 置 ( 即 放 在 
所 有 比 它 小 的 元 素 的 后 面 )。 接 着 ,再 用 insert 建立 一 个 纯 系 统 卫 中 的 列表 排序 函数 。 


23.5 基本 性 质 


系统 了 的 基本 特性 与 简单 类 型 lambda 演算 的 特性 十 分 相似 。 尤 其 是 ,类 型 保持 与 进展 证 
明 都 是 对 第 9 章 中 介绍 的 直接 扩充 。 
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23.5.1 定理 [保留 ] :如 果 了 FF tT 且 tb, 则 了 工 上 FL:T。 
证 明 :作为 练习 [推荐 ,*wxy]。 
23.5.2 定理 [进展 ] : 若 t 是 一 个 封闭 的 良 类 型 的 项 , 则 t+ 是 一 个 值 ,否则 存在 某 t 使 F>t'。 


证 明 : 作 为 练习 [推荐 ,**x]。 

系统 了 与 和 .一样 有 规范 化 特性 一 一 作为 每 个 良 类 型 程序 求 值 可 终止 2。 与 上 面 的 类 型 安 
全 定理 不 同 ,规范 化 是 非常 难 证 明 的 (的 确 ,如 在 练习 23.4,12 中 所 做 的 ,我 们 能 在 纯 语言 中 编 
写 如 排序 函数 等 这 样 的 代码 ,而 不 必用 到 人 x, 这 确实 是 十 分 惊人 的 )。 该 证 明 ,以 第 12 章 中 ~-- 
般 化 方法 为 基础 ,也 是 Cirard 的 博士 论文 的 主要 部 分 (1972; 还 可 参见 Girard,Lafont 和 Taylor， 
1989)。 从 那 时候 起 ,他 的 证 明 方 法 被 许多 人 分 析 并 改进 ;参见 Gallier(1990)。 


23.5.3 ”定理 [规范 化 ] ;: 良 类 型 的 系统 上 了 项 是 规范 化 的 。 


23.6 抹 除 ,可 类 型 化 ,类 型 重 构 


如 我 们 在 9.5 节 所 做 的 ,可 定义 一 个 类 型 抹 除 函数 ,该 函数 通过 抹 掉 所 有 系统 了 项 和 无 类 
型 lambda 项 中 的 类 型 注释 (包括 所 有 的 类 型 抽象 和 应 用 ) ,来 建立 起 系统 了 上 项 到 无 类 型 lambda 
项 之 间 的 映射 : 
eraSse(X) 
erasSe(AX:IT1 .t2) 
erase 人 (tl t2) 
eraSe(AX. 七 2) 
erase(tl [T2]) 
如 果 存 在 某 良 类 型 的 项 满足 erase(t) = m, 则 无 类 型 lambda 演算 中 的 项 M 在 系统 下 中 是 可 类 
型 化 的 。 对 给 定 的 无 类 型 项 ， 类 型 重 构 留 给 我 们 的 问题 是 ,能 否 找到 某 良 类 型 能 抹 除 类 型 为 m 
的 项 。 
系统 F 的 类 型 重 构 是 编程 语言 中 时 间 最 长 的 ,难以 解决 的 问题 之 一 ,该 难题 从 20 世纪 70 
年 代 的 早期 一 直 遗 留 ,直至 20 世纪 90 年 代 初 被 Wells( 否 定 地 ) 解 决 。 


23.6.1 ”定理 [WELLS,1994] :已 知 无 类 型 lambda 演算 的 封闭 项 m, 系 统 下 中 是 否 存在 良 
类 型 的 项 t 使 erase(t) = 是 无 法 确定 的 。 


不 但 是 全 类 型 重 构 ,而 且 部 分 类 型 重 构 的 多 种 形式 在 系统 了 中 也 是 不 可 确定 的 。 例 如 ,以 
下 “部 分 抹 除 "函数 ,除了 参数 进行 了 类 型 应 用 , 它 都 会 保持 所 有 类 型 注释 的 完整 性 : 


X 
AX。erase(t2) 
erase(tl) erase(t2) 
eraselt2) 

erase(t1) 


AX。erasep(t2) 
erasep (tl) [] 


erasSep (AX. ft2) 
eraSsenp(tl [T2]) 


eraSsep(X) 一 X 
erasep(Ax:TI. t2) = AX:TI。 erasep (t2) 
erasep(tl t2) = erasep(tl) erasep(t2) 


@ 的确, 基于 全 昌 归 约 且 可 带 更 多 可 操作 性 语义 的 系统 了 形式 具有 强 规范 化 特性 :每 个 从 良 类 型 项 开始 的 归 约 路 径 
能 保证 有 终点 。 


-一 
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注意 ,在 抹 除 项 中 仍然 保持 类 型 应 用 的 记号 ( 空 括号 ) ,所 以 我 们 知道 它们 必须 在 哪里 出 现 , 只 
是 用 的 是 什么 样 的 类 型 还 不 知道 。 


23.6.2 ”定理 [Boehm 198S,1989] :对 一 个 有 类 型 应 用 标志 但 忽略 了 参数 的 封闭 项 s, 是 否 
存在 某 良 类 型 系统 了 中 的 项 + 满足 erase, (D = s 是 无 法 确定 的 。 


Boehm 说 明了 这 种 类 型 重 构 的 形式 与 高 阶 合 一 化 同样 困难 ,因此 也 是 无 法 确定 的 。 有 趣 
地 很 ,这 种 否定 的 结果 竟然 能 直接 得 出 一 个 有 用 的 部 分 类 型 重 构 技 术 ( Ptenning, 1988 , 1993a) ， 
这 一 点 是 基于 Huet 的 早期 对 高 阶 合 一 化 的 有 效 准 算法 (Huet,1975) 的 研究 成 果 。 以 后 对 该 成 
果 的 改进 包括 对 高 阶 约束 求解 的 更 精确 算法 (Dowek, Hardin ,Kirchner 和 Pfenning, 1996 ) ,该 算 
法 减少 了 无 终止 和 产生 非 惟一 解 可 能 性 的 发 生 。 其 他 一 些 相关 算法 如 LEAP(Pftenning 和 Lee， 
1991) ,EIf(Pfenning,1989) 和 FX(O"Toole 和 Gifford,1989) 在 实践 中 都 效果 不 错 。 

Perry 的 著作 中 就 部 分 类 型 重 构 提 出 了 不 同 的 方法 ,提出 一 阶 存在 类 型 (参见 第 24 章 ) 可 
以 深入 到 ML 的 数据 类 型 (datatype) 机 制 中 (Peny,1990) ;该 思想 又 被 Liufer 和 0Odersky (Liufer， 
1992; Liufer 和 0dersky,1994) 深 入 研究 。 本 质 上 ,数据 类 型 的 构造 器 和 析 构 器 可 以 认为 是 明确 
的 类 型 注释 , 它 会 说 明 哪 里 需要 播 人 值 ,哪里 的 值 是 从 拆 开 的 联合 类 型 投影 过 来 的 ,哪里 的 递 
归 类 型 必须 降 藏 或 显露 ,以 及 (如 果 加 入 了 存在 类 型 ) 哪 里 应 该 打包 或 哪里 应 该 解 包 ,等 等 。 该 
思想 被 扩充 ,将 Remy(1994) 提 出 的 一 级 (不 可 预言 的 ) 全 称 量词 包含 进来 。 更 近 的 提议 是 由 
Odersky 和 Liufer(1996) 提 出 的 ,又 由 Garigue 和 Rekmy (1997) 进 行 了 深入 研究 ,他 们 适当 地 扩充 
了 ML 型 的 类 型 重 构 ,允许 编程 人 员 明 确 地 用 类 型 注释 函数 的 参数 ,因为 该 参数 (不 同 于 那些 
可 以 自动 推断 的 注释 ) 能 包含 嵌入 的 全 称 量词 ,从 而 部 分 地 造成 ML 与 更 强大 的 不 可 预言 系统 
之 间 的 差距 。 关 于 类 型 重 构 的 方法 族 的 优点 是 它 相 对 简单 且 简 洁 地 与 ML 的 多 态 成 为 一 体 。 

Pierce 和 Tumer(1998) 提 出 了 解决 系统 部 分 类 型 重 构 的 一 个 实用 的 方法 , 称 为 局 部 类 型 推 
论 (或 局 部 类 型 重 构 ) ,该 方法 包括 了 子 类 型 和 不 可 预言 多 态 (还 可 参见 Pierce 和 Tumer, 1997; 
Hosoya 和 Pieree,1999) 。 局 部 类 型 推论 已 经 在 几 种 近期 的 语言 设计 中 出 现 , 包 括 GJ(Bracha， 
Odersky, Stoutamire 和 Wadler,1998) 和 Funnel(Odersky 和 Zenger,2001) ,后 者 介绍 了 一 个 更 强大 
的 形式 有 色 局 部 类 型 推论 (0Odersky ,Zenger 和 Zenger,2001)。 

一 个 更 简单 但 可 预言 性 小 的 贪 禁 类 型 推论 算法 由 Cardelli(1993) 提 出 了 ;还 有 些 类 似 的 算 
法 已 经 用 于 独立 类 型 理论 的 证 明 检 查 器 中 ,如 NuPr( Howe,1988) 和 Lego (Pollack,1990)。 这 里 
的 思想 是 任何 类 型 的 类 型 注释 都 有 可 能 被 程序 员 忽 略 : 分 析 器 会 为 每 种 类 型 注释 产生 一 个 新 
的 合 一 变量 X。 在 类 型 检查 过 程 中 , 子 类 型 检查 算法 会 用 来 检查 是 否 某 些 类 型 $ 是 子 类 型 T， 
这 里 S 和 了 T 都 包含 了 合 一 变量 。 子 类 型 检查 过 程 通常 是 达到 满足 X <:T 或 工 <:X 这 个 子 目标 
为 止 ,这 时 点 愉 被 实例 化 为 T, 这 样 以 一 种 最 简单 可 行 的 方式 满足 直接 约束 。 然 而 ,将 X 设 置 
为 了 并 不 是 最 好 的 选择 ,这样 还 会 造成 后 来 对 含 X 类 型 的 子 类 型 检查 失败 , 若 换 一 个 选择 还 
有 可 能 使 子 类 型 检查 成 功 ;但 Cardelli 的 实现 和 早期 的 Piet 语言 (Pierce 和 Tumer,2000) 的 实践 
都 表明 该 算法 的 贪 禁 选 择 在 几乎 所 有 的 情形 之 下 都 是 正确 的 。 不 过 ,一 旦 贪 林 算 法 运行 出 错 ， 
它 的 行为 会 使 程序 员 十 分 迷惑 ,因为 会 产生 一 些 难 理解 的 错误 , 远 远 达 不 到 产生 次 优 实例 的 
结果 。 


23.6.3 练习 [xxxxj] :规范 化 特性 表明 无 类 型 项 omega = ()x.x x)(Xy.y y) 不 能 在 系统 了 中 
类 型 化 ,因为 omega 的 归 约 不 能 达到 一 个 标准 的 形式 。 然 而 ,对 这 个 情况 可 以 用 一 个 更 直 
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接 的 “组 合 * 证 明 方 式 , 只 要 利用 定义 类 型 关系 的 规则 即 可 。 


1. 让 我 们 调用 一 个 系统 下 的 项 exposed ,如 果 它 是 一 个 变量 ,一 个 抽象 型 jx:T.tb, 或 一 个 应 
用 ts( 也 就 是 说 如 果 它 不 是 一 个 类 型 抽象 MX.t 或 类 型 应 用 tLS])。 

请 说 明 如 果 ( 在 某 些 上 下 文中 )t 是 良 类 型 的 且 erase(tb) =m, 则 存在 某 exposed 项 s, 满足 
erase(s) = 血 且 s 是 让 类 型 的 (可 能 在 不 同 的 上 下 文中 )。 

. 将 类 型 抽象 赃 套 序列 XX …)X,t 简写 为 入 X。t. 类 似 地 ,将 类 型 应 用 委 套 序列 
CG[LA)…[A_])[A.] 简 写 为 tLA] ,将 多 态 类 型 序列 VX …VX.T 简 写 为 VX.T。 注 
意 , 这 种 的 序列 允许 为 空 。 例 如 ,如 果 是 一 个 类 型 变量 的 空 序列 , 则 VX.T 就 只 含 T。 
请 说 明 如 果 erase( 让 = 血 及 了 FF tbT, 存 在 形 为 XX.(u [A]) 的 某 项 s, 其 中 驻 为 某 类 型 
变量 序列 ,A 为 某 类 型 序列 ,u 为 egposed 项 ,使 下 式 成 立 :erase(s) = 下 上 且 下 FF s:T。 

3. 请 说 明 ,如 果 t 是 一 个 类 型 T 的 (上 下 文 为 P)exposed 项 上 且 eruse(t) =mm 则 上 有 形式 s U， 
其 中 s 和 nu 均 为 项 ,满足 erase(s) =m 且 erose(uo) =n 且 TH s: U-T 和 THFua'U。 

. 设 x:TeT。 请 说 明 如 果 下 Hu: U 且 erase(u)y =x x, 那 么 : 

(al T= YX.X 其 中 XeX 成 立 ， 
或 者 : 
(bD) T= VX 3 Ti 成 立 , 其 中 对 类 型 序列 A 和 8B 有 IAL= 1IX 筷 1 和 1Bi = | 区 |, 满足 
[X FAIT =[X rr-B]CVZT- 开 ) 
5. 请 说 明 如 果 erase(s) = jxz.m 和 了 下 F s:S, 那 么 对 某 广 ,S 和 S , 则 S$ 有 形式 YX.S 一 S。 
6. 定义 类 型 了 的 形式 jgjrost jear 如 下 : 
JeAhrmazost-ieaFX) = X 
einost-leahS-T) = IJefonostieaAs) 
1efhtrmost-ieafvVX.S) = lefonostiea 所 S). 
请 说 明 ,如果 [Xi 一 A](VYT) = [8 BCVYZ(CVYTD) 一 卫 ), 则 对 某 些 
X EX 3 , 必 有 limosiearT ) = X 成 立 。 
7. 请 说 明 omega 在 系统 了 中 是 不 可 类 型 化 的 。 


23.7 ” 抹 除 和 求 值 顺序 


图 23.1 中 赋 耶 系统 了 的 操作 语义 是 一 个 类 型 传递 语义 : 当 一 个 多 态 函 数 遇 到 一 个 类 型 参 
数 时 ,类 型 被 代 换 人 函数 体内 。 在 第 25 章 中 系统 下 的 ML 实现 过 程 就 是 这 样 。 

在 一 个 基于 系统 下 的 一 个 更 现实 的 编程 语言 的 翻译 器 或 编译 器 中 , 运行 时 对 类 型 的 处 理 
损耗 巨大 。 更 有 甚 者 ,类 型 注释 在 运行 时 起 不 到 重要 作用 ,因为 在 运行 时 程序 做 的 决定 并 不 是 
基于 类 型 的 :我 们 可 以 试 着 拿 一 个 良 类 型 程序 ,用 任意 的 方式 重 写 它 的 类 型 注释 ,然后 得 到 同 
样 处 理 方式 的 程序 。 因 此 ,许多 多 态 语言 改 为 采用 类 型 抹 除 语义 ,检查 完了 词语 后 ,所 有 的 类 
型 都 被 抹 除 且 产生 的 无 类 型 项 会 被 解释 或 编译 成 机 器 代码 下。 


t> 


上 


中” 在 一 些 语言 中 ,有 些 特性 ,如 cast( 参 见 15.5 节 ) 会 强制 类 型 传递 的 实现 。 这 种 语言 的 高 性 能 的 实现 主要 是 为 了 保 
持 运 行 时 类 型 信息 的 初始 形式 , 即 只 在 实际 需要 使 用 时 才 将 类 型 传 给 多 态 函数 。 
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然而 ,即使 是 在 一 个 成 熟 的 语言 中 ,也 免不了 一 些 副 作用 的 特点 ,如 易 变 的 引用 单元 或 异 
常 , 类 型 抹 除 函数 还 需要 比 23.6 节 中 提 到 的 全 抹 除 函数 更 细致 的 定义 。 例 如 , 如果 我 们 用 一 
个 异常 提升 原 语 emor( 人 参见 14.1 节 ) 来 扩充 系统 下 , 则 项 ， 
let f = (AX.error) in 0; 
求 值 为 0, 因 为 必 ,eror 是 一 个 语法 值 , 其 中 error 从 来 没有 求 值 过 ,而 它 的 抹 除 ; 
et f = error in 0; 
当 求 值 时 会 出 现 一 个 异常 由。 这 表明 了 类 型 抽象 确实 起 到 一 个 重要 的 语义 作用 ,因为 它们 在 
值 调用 求 值 方式 下 会 停止 求 值 ,这 样 就 能 拖延 或 防止 副作用 求 值 的 发 生 。 
我 们 能 通过 引进 一 个 新 的 适合 值 调 用 求 值 的 抹 除 形式 来 修补 这 个 差距 , 这 里 将 类 型 抽象 
抹 除 为 项 抽象 : 


erasev(X) 
erasSev(AX:TI. t2) 
eaSsev (tl t2 ) 
erasev(AX， t2) 
eraSsev(t1l [T2]) 


这 里 dummyv 是 一 个 和 unit 一 样 的 任意 的 无 类 型 值 @。 该 新 抹 除 函数 的 合理 之 处 是 它 能 与 无 
类 型 求 值 交换 ,也 就 是 说 抹 除 和 求 值 可 调换 顺序 进行 。 
23.7.2 定理 :如 果 erase,(t) =u, 则 (1) 根 据 t 和 au 的 各 自 的 求 值 关系 ,它们 都 是 范式 ; 
(2)t>f 和 ur>u 有 erase,(f) = 人 成立。 


X 
AX。eraseyv (t2 ) 
erasev(t1) erasev(t2>) 
A_. erasev(t2z) 
erasev(tl1) dummyv 


23.8 系统 F 片 断 


精确 且 功 能 强大 的 系统 了 已 经 在 多 态 理论 研究 领域 占据 了 一 个 中 心地 位 。 但 是 ,对 语言 
设计 来 说 ,类 型 重 构 带 来 的 损耗 有 时 太 大 而 不 能 作为 一 个 特性 ,因为 它 的 全 部 功能 很 少 用 到 。 
于 是 出 现 了 许多 带 更 多 易 处 理 类 型 重 构 问 题 的 系统 下 受 限 片断 的 提议 。 

其 中 最 受 欢 迎 的 是 ML 的 let 多 态 (参见 22.7 节 ), 有 时 它 也 可 称 为 前 束 多 态 , 因 为 它 可 被 
视 为 类 型 变量 范围 只 限于 无 量词 类 型 (单一 类 型 ) 的 系统 了 片断 ,而 且 该 系统 中 量化 类 型 (多 态 
类 型 或 类 型 方案 ) 不 允许 出 现在 箭头 的 左 端 。ML 中 let 的 特殊 作用 使 得 对 应 难以 精确 描述 ; 详 
见 Jim(1995)。 

另 一 种 研究 得 较 好 的 系统 了 的 限制 是 2 秩 多 态 , 先 由 Leivant(1983) 提 出 并 由 许多 其 他 的 
学 者 进一步 研究 (参见 Jim,1995,1996)。 当 一 个 类 型 以 树 的 形式 画 出 时 ,如 果 没 有 一 条 从 类 型 
的 根部 到 任意 一 个 量词 的 路 径 经 过 2 或 更 多 箭头 的 左 端 , 则 称 该 类 型 为 2 秩 。 例 如 ,(VX.X 
一 X) 一 Nat 是 2 秩 的 ,Nat>~Nat 和 Nat->(VX.X->X)->Nat>Nat 也 是 2 秩 的 ,但 ((VX.X->X)-> 


@ 这 与 我 们 在 22.7 节 中 见 到 的 不 合理 的 参照 与 ML 型 let 多 态 的 组 合 的 问题 有 关系 。 其 中 在 该 例子 中 的 let 体 的 一 般 
化 与 这 里 的 明确 的 类 型 抽象 对 应 。 

@ ” 相 比 之 下 ,为 恢复 在 22.7 节 中 出 现 了 副作用 的 ML 型 类 型 重 构 的 可 舍 性 而 加 和 人 的 值 限制 的 确 起 到 了 抹 除 类 型 抽象 
的 作用 (一 般 化 一 个 类 型 变量 是 与 抹 除 一 个 类 型 抽象 相反 的 过 程 ) ,但 确保 了 可 车 性 , 它 允 许 这 种 一 般 化 只 在 推断 
的 类 型 抽象 的 发 生 即将 接近 一 个 项 抽象 或 其 他 的 语法 值 构造 子 时 进行 一 般 化 ,而 且 这 样 还 能 停止 求 值 。 
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Nat) 一 Nat 不 是 。 在 2 秩 系 统 中 ,所 有 的 类 型 都 必须 是 2 秩 的 。 这 种 系统 比 前 束 (ML) 片 断 功能 
更 强大 ,因为 它 能 将 类 型 指派 给 更 多 的 无 类 型 lambda 项 。 


23.7.1 练习 [推荐 ,*x]: 用 图 13.1 的 引用 将 22.7 节 中 的 不 合理 例子 ( 即 练习 22.7.1 前 
面 举 的 那个 例子 ) 扩 充 为 系统 F。 


Kfoury 和 Tiuryn(1990) 曾 证 明 系 统 了 的 2 秩 片 断 类 型 重 构 的 复杂 度 与 ML 系统 相同 ( 即 
Dexptime 完全 的 ) 。Kfoury 和 Wells(1999) 给 2 秩 系 统 第 一 个 正确 的 类 型 重 构 算 法 ,并 说 明 系 统 
F 的 3 秩 或 更 高 秩 的 类 型 重 构 是 不 可 确定 的 。 

除了 量词 外 ,2 秩 限 制 还 可 用 在 其 他 功能 强大 的 类 型 重 构 中 。 例 如 ,除了 出 现在 2 或 更 多 
箭头 左 端的 交叉 类 型 外 ,交叉 类 型 (参见 15.7 节 ) 都 是 2 秩 的 (Kfoury, Mairson, Tumak 和 Wells， 
1999)。 系 统 下 的 2 秩 片断 和 一 阶 交 叉 类 型 系统 的 2 秩 片 断 是 紧密 联系 在 一 一 起 的 。 的 确 ,Jim 
(1995) 曾 说 明 过 它们 能 给 同一 个 无 类 型 项 准确 类 型 化 。 


23.9 参数 性 


回想 一 下 23.4 节 我 们 是 怎样 定义 Chureh 布尔 类 型 CBool 的 ， 
CBoo] = VYX.X 一 X 一 X; 


以 及 常量 tu 和 fs， 
tru = AX，At:X.Af:X。、 七 ; 
> ftru : CBoo1 


fls = AX， At:X，Af:X， 和 下; 
”fls ; CBoo1 


只 要 有 了 类 型 CBool, 我 们 简单 地 根据 类 型 的 结构 就 可 机 械 地 写 出 tm 和 名 的 定义 。 因 为 
CBool 是 从 符号 Y 开始 的 , 则 类 型 CBool 的 任何 值 都 将 是 个 类 型 抽象 ,所 以 bu 和 和 必须 以 和 
开始 。 因 为 CBool 体 中 是 一 个 箭头 类 型 X~>X->X, 该 类 型 的 每 个 值 必须 取 用 类 型 X 的 两 个 参 
数 , 即 bu 和 fs 体 都 必须 以 Mt:X.M:;X 开始。 最 后 ,因为 CBool 的 结果 类 型 是 X, 所 以 类 型 CBool 
的 任何 值 都 应 为 类 型 X 的 元 素 。 但 X 是 一 个 参数 ,可 能 返回 的 该 类 型 的 惟一 值 是 团 变 量 t 和 ff 
一 一 我 们 没有 别 的 获得 或 构建 该 类 型 值 的 方法 。 换 个 方式 说 ,tm 和 和 基本 上 是 类 型 CBool 的 
惟一 宿主 。 严 格 地 说 ,CBool 包含 了 一 些 其 他 的 项 ,如 (xb:CBool.b) tm, 但 很 显然 ,它们 中 的 任 
何 一 项 的 实现 都 与 tm 或 fs 相同 。 

上 面 的 现象 是 一 个 称 为 参数 性 规则 的 结果 ,该 规则 形式 化 了 多 态 程序 的 合 一 行为 。 参 数 
性 是 由 Reynolds(1974,1983) 提 出 的 ,随同 相关 的 一 些 概 念 , 它 又 由 一 些 学 者 进一步 研究 ,这 些 
人 是 Reynolds (1984,Reynolds 和 Plotkin, 1993 ) , Bainbridge 等 (1990), Ma( 1992) , Mitchell( 1986 ) ， 
Mithochell 和 Meyer ( 1985 ) ，Hasegawa ( 1991 ) ,Pitts ( 1987,， 1989, 2000 ) , Abadi，Cardelli，Curien 和 
Pilotkin (Abadi, Cardeli 和 Curien, 1993; Plotkin 和 Abadi, 1993; Plotkin, Abadi 和 Cardelli, 1994 )， 
Wadler (1989,2001) ,等 等 。 参 见 Wadler (1989) 的 说 明 性 介绍 。 








244 类 型 和 程序 设计 语言 


23.10 不 可 预言 性 


系统 了 的 多 态 经 常 被 称 为 不 可 预言 的 。 通 常 , 集 合 、 类 型 等 的 定义 如 果 包 括 了 一 个 量词 
( 它 的 定义 域 包 括 了 正在 定义 的 事物 ) 都 被 称 为 不 可 预言 的 。 例 如 ,在 系统 了 中 ,类 型 T= 
VX.X-X 中 的 类 型 变量 X 的 范围 是 所 有 的 类 型 ,包括 T 本 身 ( 所 以 我 们 也 能 用 类 型 T 来 实例 
化 了 的 项 ,产生 一 个 从 了 T 到 了 的 函数 )。 另 一 方面 ,ML 中 的 多 态 常 被 称 为 可 预言 的 (或 分 层 
的 ) ,因为 类 型 变量 的 范围 是 单一 类 型 ,该 类 型 不 含量 词 。 

术语 “可 预言 的 "和 "不 可 预言 的 "都 出 自 逻 辑 学 。Quine(1987) 用 简短 而 清晰 的 话说 明了 
一 下 它们 的 历史 : 

在 与 Henri Poincar 的 交流 中 ……Russell 暂时 将 他 的 矛盾 归功 于 他 称 为 恶性 循环 的 衣 误 。 
该 " 廖 误 "是 用 一 个 成 员 条 件 来 指定 一 个 类 , 且 这 个 成 员 条 件 是 直接 或 间接 引用 大 量 的 类 , 而 这 
些 类 中 有 一 个 就 是 正在 被 指定 的 类 。 比 如 Russell 矛盾 中 的 成 员 条 件 就 是 非 自 我 成 员 :x 不 是 x 
的 成 员 ,该 矛盾 使 得 成 员 条 件 下 的 x, 在 其 他 的 情况 下 ,就 是 正 由 成 员 条 件 定义 的 那个 类 。 
Russell 和 Poincar 称 这 种 成 员 条 件 为 不 可 预言 性 ,意思 是 不 能 指定 一 个 类 。 于 是 ,Russell 和 其 
他 人 的 集合 理论 中 的 矛盾 就 消去 了 …… 

术语 “可 预言 "和 “不 可 预言 ”又 是 从 何 而 来 的 ? 在 Russell 的 术语 中 ,有 关 类 和 成 员 条 件 
的 老 掉 牙 的 说 法 是 每 个 谓词 决定 了 一 个 类 ;于 是 他 从 那些 从 来 不 会 用 于 决定 类 的 成 员 条 件 中 
提取 出 谓词 的 标题 拼凑 了 这 个 老 词 。“ 可 预言 "不 是 指 特别 的 分 层 方法 ,也 不 是 暗 指 什么 构建 
的 过 程 ; 它 只 是 Russell 和 Poincars 特别 提 到 该 接受 什么 样 的 成 员 条 件 作 为 类 的 产物 或 “可 预 
言 ”。 但 很 快 ,事情 走向 了 反面 ,现在 可 预言 集合 理论 已 称 为 构造 集合 理论 ,不 可 预言 的 定义 已 
在 前 面 解释 过 了 , 而 不 管 该 选 什么 样 的 成 员 条 件 来 决定 类 。 


23.11 注释 


若 想 深 和 人 了解 系统 F, 可 参阅 Reynold 的 介绍 性 文章 (1990) 和 他 的 《编程 语言 理论 》 
[Theories of Programming Languages( 1998b) ] 一 书 。 
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在 类 型 系统 中 检查 了 全 称 量词 的 作用 后 (参见 第 23 章 ), 很 自然 会 想到 是 否 存在 量词 在 编 
程 中 也 是 十 分 有 用 的 。 的 确 如 此 ,它们 为 数据 抽象 和 信息 隐藏 提供 了 很 好 的 基础 。 


了 


24.1 引 


存在 类 型 基本 上 与 全 称 类 型 一 样 复杂 (事实 上 ,将 在 24.3 节 中 看 到 存在 类 型 可 根据 全 称 
直接 编码 )。 然 而 ,存在 类 型 的 产生 和 消去 形式 ,在 语法 上 比 与 全 称 有 关 的 简单 类 型 抽象 和 运 
用 都 要 更 难 , 有 些 人 从 一 开始 就 会 感到 困惑 。 下 面 提出 的 一 些 概念 可 能 会 对 理解 此 概念 有 所 
帮助 。 

第 23 章 的 全 称 类 型 可 从 两 种 方式 来 看 待 。 一 个 逻辑 直觉 就 是 类 型 VX.T 的 一 个 元 素 一 
个 具有 对 所 有 S 都 有 类 型 [X r~ SjT 的 值 。 这 种 直觉 对 应 于 一 个 类 型 抹 除 的 观点 ;例如 , 客 态 
恒 等 函 数 久 . 和 ix:X.x 抹 除 为 无 类 型 便 等 函数 入.x, 可 以 将 任意 类 型 $ 的 参数 映射 到 相同 的 类 
型 结果 。 相 比 之 下 ,一 个 操作 的 直 党 是 VX.T 的 元 素 为 一 个 函数 , 它 将 类 型 $ 肌 射 到 一 个 特殊 
类 型 为 [X mr~ S]T 的 项 。 该 直觉 对 应 的 是 第 23 章 中 系统 下 的 定义 ,其 中 类 型 应 用 的 归 约 被 认 
为 是 实际 的 计算 步 又。 

类 似 地 ,也 有 两 种 不 同 的 方式 来 看 待 存在 类 型 ,写成 | 3X,T|。 逻 辑 直 觉 是 | 3X,T} 的 一 
个 元 素 对 某 类 型 $ 来 说 ,是 类 型 [X 一 S]T 的 值 。 另 一 方面 ,操作 直觉 是 | 3X,T| 的 元 素 是 序 
对 , 记 为 | * S,th ,其 中 项 t 的 类 型 为 [X FF- S]T。 

在 本 章 中 ,我 们 要 强调 存在 类 型 的 操作 观点 ,因为 它 使 得 存在 类 型 与 编程 语言 中 出 现 的 模 
块 与 数据 类 型 更 加 类 似 。 具 体 的 语法 反映 了 这 种 类 比 : 写 为 | 3X,T}, 花 括号 强调 了 存在 值 是 
二 元 组 形式 ,而 不 是 标准 的 符号 习 X.T。 

为 理解 存在 类 型 ,还 需要 先知 道 两 点 :怎样 建立 或 “引入 ”( 是 9.4 节 中 的 行 话 ) 能 填 满 它们 
的 元 素 ,怎样 在 计算 中 使 用 (或 消去 ) 这 些 值 。 

存在 类 型 值 是 用 一 个 类 型 对 组 成 的 项 表示 的 , 记 1* S$, 革 @。 一 个 实用 的 具体 直觉 是 认为 
类 型 1 3X,TI 的 值 | * S, 革 带 一 个 (隐藏 的 ) 类 型 分 量 和 一 个 项 分 量 的 包 或 模块 @。 类 型 $ 常 
被 称 为 隐藏 表示 类 型 ,或 有 时 (为 强调 与 逮 辑 的 联系 ,参见 9.4 节 ) 是 包 的 可 见 类 型 。 例 如 ,所 


中 本 章 学 的 系统 大 部 分 还 是 带 存在 类 型 的 系统 F( 参 见 图 23.1)。 例 子 也 是 使 用 记录 (参见 图 11.7) 和 数字 (参见 
8.2)。 相 关 的 OCmal 实现 是 falpoly。 

四 ”我 们 用 * 来 标注 序 对 中 的 类 型 分 量 是 为 了 避免 与 通常 的 项 二 元 组 (参见 11.7 节 ) 相 混 清 。 另 一 种 写法 是 pack X = 
S with to 

@ 显然 ,可 以 想像 将 这 些 模 块 一 般 化 为 许多 类 型 和 /或 项 分 量 , 但 为 保持 概念 的 可 读 性 还 是 对 每 个 当中 的 一 个 进行 一 
般 化 。 对 多 类 型 分 量 , 可 以 套 人 单个 类 型 的 存在 量词 ,而 对 多 项 的 分 量 可 使 用 一 个 二 元 组 或 记录 作为 右 端的 分 量 ; 


fx*Sl, *Sz, tl tz] 咎 fwSl, twsa, ft tj} 








246 类 型 和 程序 设计 语言 


p=|*Nat,ia=5,f=XX:Nat,succ(x) 上 有 存在 类 型 1 3X, ja:X,f:X->XIi。p 的 类 型 分 量 是 Nat， 
值 分 量 是 一 个 记录 ,对 某 些 X( 称 为 Nat) 该 记录 含 类 型 X 的 字段 a 和 类 型 为 X*X 的 字段 f。 
相同 的 包 p 也 有 类 型 f 3X, |a:X,fX~>Nat|| ,因为 它 的 右 端 的 分 量 是 一 个 记录 , 其 中 对 某 
X( 称 为 Nat) ,字段 a 和 了 的 类 型 分 别 为 X 和 X>Nat。 该 例子 说 明 ,通常 ,类 型 检查 器 不 能 自动 
决定 一 个 给 定 的 包 是 属于 哪 一 个 存在 的 类 型 :所 以 程序 员 必 须 指 名 是 哪 一 个 。 最 简单 的 方法 
就 是 给 每 个 包 增 加 一 个 注释 ,明确 说 明 它 需要 的 类 型 。 因 此 , 对 存在 类 型 的 完整 形式 是 如 下 
方式 : 
p = {fs*Nat，{fa=5，f=Ax:Nat， succ(Cx)]j} as {f3X，{fa:X，f:X 一 X1; 
>” p : {3X，{a:X, 咎 :X 一 X} 了 
或 者 是 (相同 的 包 但 不 同 的 类 型 ): 
pPL = {wNat，{fa=5，f=AXx:Nat. SuccCx)}} as {f3X，{a:X， 下 :X 一 Natj] ; 
*” pl : {3X，{fa:X, 咎 :X 一 Natj]1 
用 as 引信 的 类 型 注释 与 11.4 节 介绍 的 归属 构造 相似 , 因为 该 构造 允许 任何 项 都 注释 上 它 可 
以 使 用 的 类 型 。 我 们 将 归属 说 明 作为 包 语法 结构 的 一 部 分 。 存 在 性 的 类 型 规则 如 下 所 示 : 
[FFtz :ifX=uUTz 
THF {t*uU,t2y as {3X,T2} : 【3X,T2} 
要 注意 的 一 点 是 , 带 不 同 隆 藏 表示 类 型 的 包 可 以 采纳 相同 的 存在 类 型 。 例 如 : 
p2 = {*Nat，0} as {3X,Xi 
* p2 : {3X，Xj} 


(T-Pack) 


pb3 = {f*Boo1，truej as {3X,X}; 
* p3 : {3X，X} 
或 更 有 用 的 : 
p4 = {f*Nat，{fa=0，f=Ax:Nat。 sucCcCx)} as {3X，{fa:X， 下 :X 一 Nat} ; 
> p4 : {3X，{a:X, 下 :X 一 Nat] 
p5 = {f*Boo1，{fa=true，feAx:Boo1， 0}j} as ft3X，{a:X， 和 于 :X 一 Nat}j; 
” p5 : {3X， fa:X,f:X_-Natj}1} 
24.1.1 练习 [*] :以 上 是 相同 主题 的 三 种 变化 形式 : 
p6 = {fwNat，{fa=0，f=AX:Nat、5uUCC(X)}}》 3a5 {3X，{fa:X，f 下 :X 一 X}}; 
>” p6 : 《3X，{a:X, 下 :X 一 Xj} 
p7 =- {f*Nat，{fa<0，f=-XxX:Nat、 succCOoO]] as {3X，{fa:;X，f:Nat 一 X]1; 
> p7 : {3X，{a:X, 下 :Nat 一 X}} 
p8 = {*Nat，{fa=0，fe=Ax:Nat。SsuccCxJ} as {3X，fa:Nat，f:NatNat]}]， 
>” p8 : {3x，{fa:Nat,f:Nat 一 Nat}} 
在 什么 情况 下 它们 比 p4 和 ps 的 作用 要 小 些 ? 
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与 模块 的 类 比 ,还 有 助 于 直觉 地 理解 存在 量词 消去 结构 。 如 果 一 个 存在 包 对 应 一 个 模块 ， 
则 包 消去 就 像 open 或 import 指示 : 它 允 许 模块 中 的 成 分 在 程序 中 的 其 他 地 方 使 用 ,但 保持 模 
块 类 型 分 量 的 相同 抽象 形式 。 这 一 点 可 以 通过 下 面 的 模式 匹配 规则 来 做 到 : 

THFtili{3x,Tizj 了 TX,x:TIzFtz :IT2 
TH let {X,x}=tli int :T2 

也 就 是 说 ,如 果 t 是 产生 存在 包 的 表达 式 , 则 我 们 可 以 将 其 类 型 和 项 分 量 强加 于 模式 变 
量 X 和 x, 并 用 它们 来 计算 b( 另 一 个 关于 存在 消去 的 具体 语法 是 open h as |X;xl inb)。 

例如 ,类 型 | 了 X, ja:X,f:X->Nati} 的 包 p4( 定 义 见 前 面 所 述 )。 消 去 表达 为 


1et {X,xyasp4 in (X.f X.a)， 


(T-Unpek ) 


”* 工 : Nat 
解 开 包 敢 , 用 它 的 字段 (x.f 和 x.a) 来 计算 一 个 数值 。 消 去 公式 也 能 包含 类 型 变量 X: 
et {X,xj=p4 in (Ay:X. x.f y) x.ai; 
>” 了 : Nat 
在 包 的 类 型 检查 过 程 中 包 的 类 型 表示 始终 是 抽象 的 ,这 一 点 说 明 对 x 的 操作 只 能 由 它 的 
“抽象 类 型 "ja:X,fX 一 Natl 来 保证 。 尤 其 是 ,我 们 不 能 将 x.a 具体 看 成 是 一 个 数字 ， 
]et {X,Xx}=p4 in SuUccCx.a) ; 
* Error: succ 的 参数 不 是 一 个 数字 
这 种 限制 比较 合理 ,因为 从 上 面 看 到 有 相间 存在 类 型 的 包 , 如 p4 可 能 使 用 Nat 或 使 用 Bool( 或 
其 他 类 型 ) 作 为 替代 类 型 。 
还 有 一 种 更 巧妙 的 使 存在 消去 结构 的 类 型 检查 失败 的 方法 。 在 规则 TUnpack 中 ,类 型 变 
量 X 会 出 现在 计算 5 类 型 的 上 下 文中 ,但 不 会 出 现在 规则 结论 的 上 下 文中 。 意 思 是 说 ,结果 
类 型 卫 不 会 随便 包含 X, 因 为 X 的 任何 自由 发 生 都 将 超出 结论 的 辖 域 ; 
1et {X,Xj=p in X.ai 
* Error: Scopbing error! 
关于 这 一 点 将 在 25.5 节 中 更 详细 地 讨论 。 
存在 性 的 计算 规则 也 直接 表示 为 ; 
1et {X,xj=(Cf*Til,vi2y asTI) int2 
一 区 ”TIx= viz]tz 
如 果 let 的 第 一 个 子 表 达 式 已 经 归 约 为 一 个 具体 的 包 , 那 么 将 把 该 包 的 分 量 用 b 中 的 变量 X 
和 x 来 代替 。 与 模块 比较 起 来 ,该 规则 可 看 成 是 一 个 链接 步骤 ,在 该 步 中 , 指向 一 个 独立 的 编 
译 过 的 模块 ,象征 名 字 (X 和 x) 会 被 模块 的 实际 内 容 所 取代 。 
因为 类 型 变量 X 被 该 规则 替换 了 ,结果 程序 实际 上 取得 了 进 和 人 包 内 部 的 路 径 。 这 就 是 另 
一 种 我 们 见 过 多 次 的 现象 : 随 着 计算 的 推进 ,表达 式 会 变 得 “更 可 类 型 化 "一 一 尤其 是 一 个 不 良 
类 型 的 表达 将 妇 约 为 一 个 良 类 型 的 表达 。 
带 存在 类 型 的 系统 了 扩展 定义 总 结 在 图 24.1 中 。 


(上 E-UnpackPack) 
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扩充 系统 F(23-1) 










(E-PACK) 


(E-UNPACK) 








(T-PACK) 
新 求 值 规则 





图 24.1 存在 类 型 


24.2 融 存 在 量词 的 数据 抽象 


在 引言 中 (参见 1.2 节 ) 说 到 过 ,类 型 系统 在 检测 小 范围 的 程序 错误 ,如 2 + tue 上 超出 了 
它 的 作用 范围 :但 它们 极 大 地 为 程序 提供 关键 的 支持 。 尤 其 是 类 型 不 仅 可 用 来 将 类 型 抽象 村 
入 程序 中 ,而 且 还 可 以 用 于 程序 员 定义 的 抽象 上 , 即 不 但 防止 程序 影响 机 器 ,还 保护 程序 的 每 
个 部 分 彼此 不 互相 影响 "。 该 部 分 考虑 抽象 的 两 种 不 同形 式 一 “典型 的 抽象 数据 类 型 和 对 
象 ,将 存在 类 型 作为 一 般 的 结构 来 讨论 。 

不 像 第 18 章 中 遇 到 的 对 象 编码 ,本 节 中 的 所 有 例子 都 是 纯 函 数 程序 。 这 是 一 个 纯 说 明 
性 的 选择 :模块 性 和 抽象 的 机 制 几乎 与 定义 抽象 状态 的 有 无 完全 无 关 ( 练 习 24.2.2 和 
练习 24.2.4 通过 文中 的 某 些 纯 函 数 的 实例 有 状态 形式 来 说 明 这 一 点 )。 这 里 提 到 纯 函 数 实例 
的 原因 是 :(1) 该 选择 提示 了 我 们 的 例子 是 处 在 一 个 更 简单 且 花 销 更 小 的 形式 结构 中 ; (2? 有 时 
运行 纯 函 数 的 程序 会 使 类 型 化 问题 更 有 趣 ( 它 们 的 解 相应 地 也 会 变 得 更 有 启发 性 )。 因 为 在 命 
令 性 编程 中 , 易 变 的 变量 提供 了 一 个 “ 旁 路 ", 使 程序 中 相距 较 远 的 部 分 能 直接 通信 。 在 纯 函 数 
程序 中 ,程序 不 同 部 分 之 间 交 换 的 信息 必须 通过 传递 函数 的 参数 和 结果 ,在 这 里 它 对 类 型 系统 
是 "可见 的 "。 在 对 象 里 尤其 是 这 样 的 ,但 这 会 使 我 们 推迟 对 一 些 重要 特性 (如 子 类 型 和 继承 ) 
的 处 理 ,直到 第 32 章 中 会 提 到 可 任意 使 用 更 强大 的 类 型 理论 机 制 来 解决 这 个 问题 。 


抽象 数据 类 型 


传统 的 抽象 数据 类 型 (或 ADT) 包 括 :(1) 类 型 名 称 A;(2) 具体 表示 类 型 T; (3) 类 型 T 值 的 
创建 ` 查 询 和 操作 等 有 关 的 实现 ; (4) 能 封装 类 型 表示 和 操作 的 抽象 边界 。 在 此 边界 范围 中 ,类 





@ 为 了 公平 ,我 们 要 说 明 的 是 类 型 并 不 是 惟一 地 保护 程序 员 定 义 的 抽象 方式 。 在 无 类 型 语言 中 ,可 通过 函数 闭 包 、 对 
象 或 特殊 目的 的 结构 ,如 MzScheme 的 unit(Flatt 和 Felleisen , 1998) 来 达到 类 似 的 效果 。 
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型 的 元 素 可 看 到 具体 形式 ( 带 类 型 T)。 但 在 边界 之 外 ,只 看 得 到 抽象 的 形式 , 带 类 型 A。 类 型 
A 的 值 可 在 数据 结构 的 周围 使 用 或 在 数据 结构 中 存储 等 ,但 不 能 直接 被 检查 或 改变 一 一 对 A 
的 任何 操作 只 能 由 ADT 提供 。 

例如 ,这 里 有 一 个 纯 函 数 计 数 器 counter 的 抽象 数据 类 型 的 声明 ,用 类 似 于 Ada( 美 国 国防 
部 ,1980) 或 Clu(Liskov 等 ,1981) 语 言 写成 的 伪 代 码 形式 ， 


ADT Counter = 

type Counter 
representation Nat 
signature 

new : Counter， 

get : Counter 一 Nat， 

inc : Counter 一 COunter ; 
Operations 

new = 工 ， 

get = Ai:Nat。1， 

inc = Ai;INat。 SuccCTD ; 





Counter .get (Counter .inc counter new] ; 


该 抽象 类 型 名 为 Counter, 它 的 具体 形式 是 Nat。 操 作 的 实现 是 具体 地 处 理 Counter 的 对 象 , 如 
Nat:new 是 常量 1;ine 操作 是 后 续 函 数 ;get 是 恒等式 。 该 signature 部 分 说 明了 该 操作 应 怎样 外 
部 使 用 ,在 它们 的 具体 类 型 中 ,用 Counter 来 替换 Nat 的 某 些 实例 。 抽 象 边界 范围 从 ADT 关键 
词 到 终止 分 号 ;在 程序 的 剩余 部 分 ( 即 最 后 一 行 ), Counter 和 Nat 之 间 的 联系 被 中 断 ,所 以 惟一 
对 常量 counter.new 处 理 的 方式 是 把 它 当 成 一 个 counter. get 或 counter. ine 的 参数 。 

我 们 还 能 将 该 伪 代 码 符号 一 个 接 一 个 改 成 存在 演算 符号 。 首 先 ,要 产生 一 个 含 ADT 内 部 


内 容 的 存在 包 : 
CounterADT = 
{*Nat ， 
fnew = 一 工 ， 


get = Ai:Nat. 1， 
inc = 和 Ai:Nat. SuccCi)1 
as {f3Counter， 
{tnew: Counter， 
get: Counter 一 Nat， 
inc: Counter 一 Counter]]; 


* CoOunterADT : {3Counter， 
{fnew:Counter ,get:Counter 一 Nat,inc:Counter 一 Counterj}} 


然后 ,我 们 解 包 , 引 和 人 类 型 变量 Counter 作为 包 的 隐藏 表示 类 型 的 占 位 符 , 并 引入 了 可 进行 下 列 
操作 的 项 变量 counter: 


1et {fCounter ,counterl = counterADT in 
counter.get (counter.inc counter new) ; 


2 :Nat . 
这 种 存在 类 型 的 表示 方式 比 起 语法 上 易 复 的 伪 代 码 要 难看 懂 些 , 但 它们 在 结构 上 是 相同 的 。 
通常 ,打开 存在 包 的 let 内 包含 了 程序 的 整个 剩余 部 分 ， 


or 一 一 一 一 一 一 一 -一 一 一 一 一 一 一 一 一 一 一 -一 
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1et {fCounter,counterj = <Counter package> in 
<rest of program> 


在 剩余 部 分 ,类 型 名 Counter 可 被 当成 是 基 类 型 而 植 人 程序 中 。 我 们 能 定义 对 计数 器 操作 的 
函数 : 


Tet {fCounter ,coOounterj=counterADT in 
1et add3 = Ac:Counter .counter .jnc (counter .inc (counter.inc c)) in 
Counter.get (add3 Counter .new) ; 
> 4 : Nat . 
我 们 还 能 定义 新 的 包含 计数 器 的 抽象 数据 类 型 。 例 如 ,下 面 的 程序 定义 了 触发 器 的 ADT, 其 中 
用 计数 器 (不 是 特别 有 效 ) 来 作为 它 的 表示 类 型 ; 
1et {fCounter,counter} = CounterADT in 
Tet {F1ipF1op,flipf1lop】j = 
{xCounter ， 
{new = Counter .new， 
read “= AC:Counter. iseven (Counter ,get c) ， 
toggle = AC:Counter. counter .inc C， 
reset ww 和 AC:Counter .counter .new}} 
as {f3F1ipF1op，. 
{fnew: Fl1ipFlop，read: Fl1ipF1op 一 Boo1， 
togg1le: Fi1ipFlop 一 Fl1ipFl1op，reset: Fl1ipF1op 一 F1ipF1op}j in 
flipflop.read (flipflop.toggle (flipflop.toggle flipflop.new)); 


* false ; Bool1 


这 样 ,一 个 大 的 程序 可 以 分 解 为 一 个 长 的 ADT 声明 序列 ,每 一 个 都 使 用 它 的 前 驱 提 供给 它 的 
类 型 和 操作 来 实现 自己 ,并 将 自己 打包 作为 一 个 整洁 的 ,定义 正确 的 抽象 给 它 的 后 继 。 

这 里 说 的 信息 隐藏 的 一 个 关键 是 表示 独立 性 。 我 们 可 以 代 换 掉 Counter ADT 中 可 供 选 择 
的 一 个 操作 。 例 如 ,下 面 是 一 个 含 Nat 记录 型 的 内 部 表示 , 而 不 是 单一 的 Nat， 


CounterADT = 
{*{fXx:Nat]， 
{fnew = {Xx=1]}， 
get = Ai:{tfxiNat}，1.X， 
Tinc = Ai:{fx:Natl，{xssuccCi.x)]}} 
as {3cCounter， 
{fnew: Counter ，get: Counter 一 Nat，inc: Counter 一 Counterj]; 


* CounterADT : {f3Counter ， 
{fnew:Counter,get:Counter 一 Nat,inc:Counter 一 Counterj] 


可 以 完全 放心 的 是 ,整个 程序 都 能 保持 类 型 安全 , 因为 程序 的 剩余 部 分 除了 使 用 get 和 inc, 其 
他 情况 是 不 能 存 取 Counter 的 实例 的 。 

实践 表明 ,基于 抽象 数据 类 型 的 程序 风格 能 对 大 系统 的 健壮 性 和 可 维护 人 性 产生 巨大 改善 。 
关于 这 点 有 几 点 理由 。 首 先 ,这 种 风格 限制 了 程序 改动 的 范围 。 正 如 我 们 上 面 见 到 的 ,可 以 用 
另 一 个 ADT 的 实现 来 代 换 其 中 一 个 ADT 的 实现 , 主要 是 通过 改变 它 的 具体 表示 类 型 和 操作 的 
实现 过 程 ,而 这 样 做 不 会 影响 程序 的 其 他 部 分 ,因为 存在 包 的 类 型 规则 已 经 保证 了 程序 的 剩余 
部 分 不 会 依赖 于 ADT 的 内 部 状态 。 其 次 , 它 提 倡 程序 员 尽 量 使 ADT 的 型 构 (signature) 越 小 越 
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好 ,以 限制 程序 不 同 部 分 之 间 的 依赖 性 。 最 后 ,也 可 能 是 最 重要 的 一 点 ,为 使 操作 的 型 构 清 楚 ， 
它 还 要 求 程 序 员 考虑 设计 抽象 问题 。 


24.2.1 练习 [推荐 ,*xx]: 请 按照 上 面 例子 的 模式 来 定义 一 个 数字 的 抽象 数据 类 型 栈 
(stack) ,其 中 带 操作 new, push,top( 返 回 当前 顶端 的 元 素 ) ,pop( 返 回 一 个 去 掉 顶 端 元 素 的 
新 栈 ) ,以 及 isempty。 使 用 练习 23.4.3 介绍 的 List 类 型 为 暗含 的 表示 方式 。 写 一 个 简单 
的 产生 栈 的 主 函数 ,实现 的 功能 是 将 几 个 数字 推 人 栈 中 ,取出 栈 的 顶 元 素 。 该 练习 最 好 是 
上 机 完成 。 使 用 fllomega 检查 器 并 拷贝 文件 test.f 的 内 容 ( 该 文件 中 含 List 构造 器 和 它 的 
相关 操作 ) 到 自己 的 输入 文件 中 。 


24.2.2 练习 [推荐 ,xx] :建立 一 个 可 变 计 数 器 的 ADT, 使 用 第 13 章 定义 的 引用 单元 。 将 
new 从 一 个 常量 变 成 一 个 函数 ,要 求 使 用 Unit 参数 ,返回 一 个 Counter, 并 将 ine 操作 的 结果 
类 型 改 成 Unit 而 不 是 Counter( 除 了 存在 类 型 外 ， fllomega 检查 器 也 提供 引用 )。 


存在 量词 对 象 


在 上 面 小 节 中 看 到 的 几 个 字 “ 打 包 , 然 后 解 包 " 其 实 就 是 使 用 存在 包 的 ADT 风格 程序 所 具 
的 特点 。 一 个 包 定义 了 一 个 抽象 类 型 及 其 相关 的 操作 , 它 一 旦 建立 好 后 ,马上 就 解 开 每 个 包 ， 
给 抽象 类 型 绑 定 一 个 类 型 变量 并 抽象 地 显露 ADT 的 操作 。 在 本 节 中 ,我们 要 说 明 一 个 对 象形 
式 的 数据 抽象 的 简单 形式 怎样 能 被 视 为 基于 存在 的 不 同 编程 语言 的 惯用 法 。 该 对 象 模 型 会 在 
第 32 章 进一步 说 明 。 

这 里 再 次 使 用 简单 的 计数 器 作为 执行 的 例子 ,如 在 上 面 的 存在 性 ADT 中 及 第 18 章 和 
第 19 章 介 绍 对 象 时 用 到 它 一 样 。 而 且 还 是 用 纯 函 数 风格 ,使 发 送 消息 ine 给 计数 器 后 不 会 改 
变 该 位 置 上 的 内 部 状态 ,而 是 会 返回 一 个 增加 了 内 部 状态 后 的 新 的 计数 器 对 象 。 

一 个 计数 器 对 象 包含 了 两 个 基本 成 分 :一 个 数字 ( 它 的 内 部 状态 ) ,一 对 方法 :get 和 inc, 它 
们 是 用 来 操纵 状态 的 。 我 们 还 需要 确保 状态 能 被 查询 或 更 新 的 惟一 方式 是 使 用 这 两 个 操作 中 
的 一 个 。 为 做 到 这 一 点 ,可 以 将 状态 和 操作 都 包装 在 存在 包 中 (抽象 状态 的 类 型 )。 例 如 ,一 个 
带 值 $ 的 计数 器 对 可 写成 ， 


C m {xNat， 
{fstate = 5， 
methods = {get = AX:Nat。 X， 
inc = AX:Nat。SuccCxJ]}}} 
as Counter; 


其 中 ， 
Counter = {3X，{fstate:X，methods: {get:X 一 Nat，inc:X 一 X}]]}; 
为 使 用 一 个 计数 器 对 象 的 方法 ,我 们 打开 存在 包 并 将 它 的 methods 中 的 合适 元 素 用 于 它 的 state 
字段 上 。 例 如 ,为 得 到 e 的 当前 值 ,可 以 写 : 
et {fX,bodyl = c in body .methods .getCbody .state) ; 
*” 5 : Nat 


更 一 般 地 ,还 可 定义 一 个 简短 的 函数 来 “传送 get 消息 ”给 计数 器 ; 


| 一 
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sendget = AC:COounter . 
Tet {X,bodyy = c in 
body .methods .get(body .state)] i 


> Sendget : Countenr 一 Nat 


要 唤醒 一 个 计数 器 对 象 的 ine 方法 有 点 难度 。 如 果 仅 是 用 和 get 一 样 的 方法 , 则 类 型 检查 器 会 
显示 ; 六 
let {X,bodyl = c in body.methods.inc(body.state) ; 


* Error: SCcoping errorl 


因为 类 型 变量 X 在 let 的 类 型 中 是 一 个 自由 变量 。 的 确 , 我 们 所 写 的 也 产生 不 了 直接 感受 , 因 
为 ine 方法 的 结果 完全 是 一 个 内 部 状态 ,而 不 是 一 个 对 象 。 为 了 满足 类 型 检查 器 及 我 们 对 inc 
应 该 做 的 事 的 理解 ,必须 取出 未 使 用 过 的 内 部 状态 ,把 它 当 成 一 个 计数 器 的 对 象 重 新 打包 ,使 
用 相同 的 方法 记录 和 相同 的 内 部 状态 类 型 放 进 原始 对 象 中 : 
cL = ]et {X,bodylj = c in 
{*X， 
{fstate = body.methods .imckbody .stata) ， 


methods = body .methods}} 
as Counter ; 


更 一 般 地 ， “传送 inc 消息 ”给 一 个 计数 器 ,可 写 为 : 


Sendinc = AC:Counter . 
1et {X,body}y = c in 
{wX， 
{tstate = body .methods .inc(body .state) ， 
methods = body .methods}} 
as Counter; 


”> Sendinc : Counter 一 Counter 


根据 下 面 两 个 基本 的 操作 ,可 以 得 到 更 复杂 的 计数 器 操作 : 


add3 = Ac:Counter. Sendinc 《sendinc (sendinc c)); 
* add3 : Counter 一 Counter 


24.2.3 练习 [推荐 ,*xx]: 将 Counter 对 象 作 为 FlipFlop 对 象 内 部 的 表示 类 型 来 实现 
FilipFlop 对 象 ,用 上 面 介绍 的 FlipFlop ADT 为 模型 。 


24.2.4 练习 [推荐 ,**]: 接 着 练习 24.2.2, 用 fullomega 检查 器 来 实现 Counter 对 象 的 状态 
变化 。 


对 象 与 ADT 的 比较 


前 一 节 介 绍 的 例子 并 不 是 面向 对 象 程序 的 一 个 成 熟 模型 。 在 第 18 章 和 第 19 章 看 到 的 许 
多 特性 包括 子 类 型 .类 、 继 承 和 通过 self 与 saper 的 递归 ,在 这 里 都 没有 了 。 我 们 将 在 第 32 章 
中 再 来 补充 这 些 特 性 ,到 那 时 ,我们 已 经 对 类 型 系统 增加 了 一 些 必 要 的 改进 。 但 在 这 些 简 单 的 
对 象 与 前 面 介绍 的 ADT 之 间 , 有 必要 做 一 些 有 趣 的 对 比 。 
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粗 看 一 下 ,这 两 个 程序 段 得 出 的 是 相反 的 结论 :对 有 ADT 的 程序 ,在 ADT 建立 后 , 包 立 即 
被 打开 ; 另 一 方面 , 若 包 是 用 来 定义 对 象 时 , 包 与 对 象 之 间 是 紧密 联系 在 一 起 的 ,直到 需要 将 其 
中 的 一 个 方法 用 于 访问 内 部 状态 时 它们 才 必 须 被 打开 。 

这 种 差异 带 来 的 后 果 是 在 两 种 风格 下 “计数 器 的 抽象 类 型 "指向 不 同 的 事物 。 在 ADT 风 
格 的 程序 中 ,由 客户 代码 (如 add3 函数 ) 操 纵 的 计数 器 值 是 暗含 的 表示 类 型 (比如 简单 数字 ) 元 
素 。 在 对 象 风 格 的 程序 中 ,每 个 计数 器 就 是 一 个 包 一 一 不 仅 包含 了 数字 ,还 包括 了 get 和 ine 
方法 的 实现 代码 。 风 格 上 的 不 同 可 反映 出 ,在 ADT 风格 中 ,类 型 Counter 是 由 let 结构 引 人 的 转 
类 型 变量 , 而 在 对 象 风 格 中 ,Counter 代表 整个 存在 类 型 ， 

{3Xx，{fstate:X,，methods: {get:X 一 Nat ,inc:X 一 X}]}. 


这 样 ,在 运行 时 ,由 计数 器 ADT 产生 的 所 有 计数 器 的 值 只 是 相同 的 内 部 表示 类 型 元 素 , 而 且 只 
有 一 种 计数 器 操作 作用 于 该 内 部 表示 。 比 较 之 下 ,每 个 计数 器 对 象 带 有 自己 的 表示 类 型 及 在 
此 类 型 上 的 方法 集合 。 

对 象 与 ADT 之 间 的 区 别 产生 了 许多 有 用 的 好 处 。 其 中 明显 的 一 个 就 是 ,因为 每 个 对 象 都 
选择 自己 的 表示 并 带 有 自己 的 操作 ,一 个 程序 可 自由 地 将 相同 对 象 类 型 的 许多 不 同 实现 混在 
一 起 进行 。 这 一 点 对 出 现 的 子 类 型 和 继承 尤为 方便 :我 们 只 要 定义 一 个 代表 对 象 的 一 般 化 的 
类 ,在 此 基础 上 可 以 进行 不 同 的 修改 ,使 每 个 应 用 都 有 自己 稍微 不 同 或 完全 不 同 的 表示 方式 。 
因为 这 些 改进 了 的 类 的 实例 ,用 的 是 大 部 分 相同 的 类 型 ,它们 可 以 用 大 致 相同 的 代码 来 运行 ， 
并 可 存放 在 一 个 列表 中 ,等 等 。 

例如 ,用 户 界面 库 中 会 定义 一 个 总 的 Window 类 ,其 中 有 子 类 TextWindow, ContainerWindow， 
SerollableWindow, TitledWindow,DialogBox, 等 等 。 每 个 子 类 都 包含 了 自己 的 特殊 实例 变量 ( 例 
如 ,TextWindow 可 以 使 用 String 实例 变量 来 表示 自己 的 当前 内 容 , 而 ContainerWindow 使 用 的 是 
一 系列 Window 对 象 ) ,并 提供 一 些 特 殊 的 操作 ,如 repaint 和 handleMouseFvent。 另 外 , 若 定义 
Window 为 一 个 抽象 数据 类 型 (ADT) , 则 得 到 的 结构 缺乏 灵活 性 。Window 的 具体 表示 类 型 还 需 
要 包括 一 个 表示 每 种 特殊 窗口 实例 的 变 式 类 型 (参见 11.10 节 ) ,该 类 型 记载 的 是 与 该 窗口 类 
型 相关 的 具体 数据 。 有 些 操作 ,如 repaint 运行 的 是 变 式 的 一 个 case 语句 ,实现 的 是 合适 的 代 
码 。 如 果 窗 口 有 许多 具体 的 形式 , 则 Window 抽象 数据 类 型 的 单一 声明 会 变 得 越 来 越 多 而 难以 
处 理 。 

对 象 与 ADT 之 间 的 另 一 主要 的 实用 区 别 , 还 涉及 了 二 进 制 操作 的 状态 一 这 种 操作 是 接 
纳 相 同 抽象 类 型 的 两 个 或 更 多 参量 。 为 继续 讨论 区 别 的 问题 ,我 们 要 先 明白 两 种 二 进 制 操作 
的 区 别 : 


e 一 些 二 进 制 操作 可 以 完全 根据 公认 的 两 种 抽象 值 上 的 操作 来 实现 。 例 如 , 对 计数 器 实 
现 一 个 相等 操作 ,我 们 只 需要 检查 每 个 计数 器 的 当前 值 (用 get 访问 ) ,比较 取 回 的 两 个 
数字 ,也 就 是 说 ,相等 (equal) 操 作 也 能 处 于 抽象 边界 之 外 , 以 保护 计数 器 的 具体 表示 。 
我 们 称 这 样 的 操作 为 弱 二 进 制 操作 。 

e 其 他 的 二 进 制 操作 若 没有 对 两 种 抽象 值 的 表示 方式 具体 的 访问 特权 就 不 能 实现 。 例 
如 ,我 们 正在 实现 一 个 表示 数字 集合 的 抽象 。 寻 遍 了 一 些 算 法 书后 ,我们 选择 了 一 个 具 
体 的 集合 表示 作为 标签 树 , 它 服从 一 些 特殊 而 复杂 的 不 变 式 。 对 两 个 集合 的 有 效 
union 操作 是 需要 能 具体 地 看 到 它们 ,如 树 结构 。 然 而 ,我 们 不 愿 在 任何 公共 接口 处 将 
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具体 表示 显露 给 集合 抽象 。 因 此 要 重新 修改 一 下 union 以 使 之 能 有 权 访 问 这 两 个 参量 ， 
而 尊 通 的 客户 代码 是 无 法 访问 它们 的 ,也 就 是 说 union 操作 必须 在 抽象 边界 之 内 。 我 们 
称 这 样 的 操作 为 强 二 进 制 操作 。 


对 我 们 考虑 的 两 种 抽象 风格 来 说 , 弱 二 进 制 是 一 种 容易 处 理 的 情况 ,因为 我 们 是 将 它们 放 
在 抽象 边界 的 里 面 还 是 外 面 都 没有 多 大 的 区 别 。 如 果 选 择 将 其 放 在 外 面 ,它们 简单 地 被 定义 
为 自立 函数 (取出 合适 的 ADT 对 象 或 值 )。 若 将 它们 放 在 ADT 内 部 ,实际 上 是 一 样 的 (它们 会 
有 一 个 具体 的 访问 参量 表示 的 方式 ,即使 它们 还 用 不 上 )。 将 二 进 制 操作 放 在 对 象 里 只 是 稍微 
有 点 难度 ,因为 对 象 的 类 型 变 成 了 递归 的 中 ， 


EqCounter = {3X，{state:X, methods: {get:X 一 Nat，inc:X 一 X， 
eq:X 一 EqCounter 一 Boo11]} 


另 一 方面 , 强 二 进 制 操作 不 能 在 我 们 的 模式 中 表示 为 对 象 的 方法 。 我 们 只 能 用 上 面 处 理 弱 二 
进 制 的 方式 来 表示 它们 的 类 型 : 
Nat9et = {t3X，{state:X, methods: {fempty:X，singleton:Nat--X， 


member :X 一 Nat 一 Boo1 ， 
union:X 一 NatSet 一 X}}} 


但 没有 令 人 满意 的 方法 来 实现 这 种 类 型 的 对 象 : 对 union 操作 的 第 二 个 参数 ,我 们 只 知道 它 提 
供 了 NatSet 操作 ,但 这 些 并 没有 告诉 我 们 该 怎样 找 出 它 的 元 素 以 便于 计算 union。 


24.2.5 练习 [*] :为 什么 不 能 使 用 下 面 的 类 型 ? 


NatsSet = {3X，{state:X,， methods: {fempty:X，singleton:Nat- 一 X， 
member :X 一 Nat 一 Boo1 ， 
union:X 一 X 一 X}]} 


总 的 说 来 ,单独 的 ADT 表示 直接 支持 二 进 制 操作 ,而 对 象 的 多 种 表示 为 了 获得 灵活 性 ,不 
会 使 用 二 进 制 的 方法 。 这 些 优点 是 互补 的 ,任何 一 种 风格 都 不 能 取代 另 一 个 。 

关于 本 节 的 讨论 还 要 注意 一 点 ,这 些 比 较 是 针对 本 章 中 早先 提出 的 简化 对 象 “ 纯 化 论 者 ” 
模式 。 现 在 主流 面向 对 象 的 语言 ,如 C++ 和 Java 中 ,类 的 设计 允许 一 些 强 二 进 制 方法 的 形式 ， 
而 且 实 际 上 是 被 描述 为 本 章 介绍 的 纯 对 象 和 纯 ADT 之 间 的 折 中 。 在 这 些 语言 中 ,对 象 的 类 型 
就 是 被 实例 化 的 类 的 名 称 ,而 且 和 名 字 要 与 其 他 类 的 和 名字 区 别 开 , 即 使 它们 实现 的 操作 是 一 样 的 
(参见 19.3 节 )。 也 就 是 说 ,这 些 语言 中 给 定 的 对 象 类 型 是 由 相应 的 类 声明 给 定 的 惟一 实现 。 
而 且 ,语言 中 的 子 类 只 能 将 实例 变 元 加 入 到 那些 从 超 类 继承 来 的 类 型 中 。 这 些 约 曙 意 味 着 ,每 
个 属于 类 型 C 的 对 象 都 拥有 类 C( 惟 一 ) 声 明 中 定义 的 所 有 实例 变 元 (也 可 能 有 更 多 )。 如 果 对 
象 方法 是 将 另 一 个 C 作为 参数 并 访问 它 的 实例 变 元 也 是 合理 的 ,只 要 它 使 用 的 是 C 所 定义 的 
实例 变量 就 可 以 了 。 这 就 允许 强 二 元 运算 ,例如 被 定义 为 方法 的 集合 的 并 运算 。 这 种 混合 对 
象 模式 已 由 Ferce 和 Tumer(1993) 和 Katiyar 等 (1994) 形 式 化 了 ,并 由 Fisher 和 Miteell (Fisher 和 
Mithchell ,1996 ,1998; Fisher, 1996b,a) 更 详细 地 加 以 了 说 明 。 


中 ”难度 在 于 这 种 对 象 类 型 中 的 递归 与 继承 有 关 。 参 见 Bmce 等 (1996) 。 
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24.3 存在 量词 编码 


考虑 到 全 称 类 型 ,23.4 节 中 的 多 态 类 型 的 序 对 编码 方式 使 我 们 想到 给 存在 量词 类 型 进行 
类 似 地 编码 ,尤其 是 存在 类 型 的 元 素 就 是 一 个 类 型 和 一 个 值 的 序 对 ; 
{3Xx,T] 墅 YY.CYX.T-Y) 一 YY. 
即 ,给 定 一 个 结果 类 型 及 其 延续 ,一 个 存在 包 可 看 成 是 一 个 数据 值 , 该 值 用 来 调用 延续 部 分 以 
产生 一 个 结果 值 。 延 续 部 分 取 用 两 个 参数 (类 型 X 和 类 型 了 的 值 ) ,并 将 它们 用 于 计算 最 终 的 
结果 。 
有 了 存在 类 型 的 编码 形式 ,打包 和 解 包 的 代码 就 能 得 出 了 。 为 编码 包 : 
{f*S,tl as {3X,T} 
必须 使 用 $ 和 + 来 建立 类 型 YY.(YX.T>Y)->Y 的 值 。 该 类 型 是 以 全 称 量词 开头 的 ,类 型 体 
是 一 个 箭头 类 型 。 这 种 类 型 的 一 个 元 素 应 以 下 面 的 两 个 抽象 开始 : 
f*S,tj as {f3X,T} 蛤 AY.Af:CVX.T-Y).... 
为 完成 这 个 任务 ,应 该 返回 类 型 为 了 的 结果 ;显然 ,惟一 的 办 法 就 是 将 f 用 到 合适 的 参数 上 。 
首先 ,我 们 提供 类 型 S( 很 自然 ， 这 是 此 时 惟一 能 使 用 的 类 型 ): 
fasitjasf3axT MY.Af:CVX.T-Y.f[S] ... 
现在 ,类 型 应 用 {L$] 具 有 类 型 [X Fr~ S](T->Y) ,也 就 是 说 ,([X Fr-SjT) 一 Y。 这 样 ,我 们 可 以 将 
长 根据 规则 T-Pack ,t 的 类 型 为 [X Fr~ S]T) 作 为 下 一 个 参数 ， 
{*Ss,tj as {3X,T} 业 AY.Af:CVX.T-Y).f[IsJt 
按 要 求 ,此 时 整个 应 用 盾 St 的 类 型 为 Y。 
为 给 解 包 结 构 let 1X,xl = in 已 编 码 , 过 程 类 似 。 首 先 ,类 型 规则 开 Unpaek 告诉 我 们 ， 
4 应 有 类 型 | 3X,Tul,b 应 有 类 型 站 (在 限定 X 和 x:T 的 扩展 上 下 文 条 件 下 ) ,而 下 是 我 们 所 
希望 的 整个 let…in… 的 表达 式 中 。 如 在 23.4 节 中 的 Chureh 编码 ,这 里 的 想法 是 将 引 人 形 式 
(| < St 编码 成 一 个 “能 自我 销 去 ”的 活 值 。 所 以 这 里 消去 形式 的 编码 应 使 用 存在 包 t 并 将 
其 应 用 为 参数 ,足以 产生 期 望 得 到 类 型 为 卫 的 结果 ; 


Tet {X,xj=tiintz 和 星 tl . 


6 的 第 一 个 参数 应 该 为 整个 表达 式 期 待 的 结果 类 型 , 即 开 : 
Tet {X,xj=tiintz 性 ti[T] ... 
好 了 ,应 用 hl[ 王 1] 有 类 型 (YX.TN 一 了 ) 一 一 。 即 ,如 果 能 现在 提供 另 一 个 类 型 (VX.T~>) 的 
参数 ,我们 就 能 结束 了 。 这 种 的 参数 可 通过 抽象 关于 变量 X 和 x 的 语句 体 虽 来 获得 ， 
ef 


]et {X,xj=ti in ty 虹 tl [T?] CAX,Ax:Til， t2)， 
到 此 时 ,编码 完成 。 


@ 严格 地 说 ,翻译 要 求实 现 类 型 信息 的 额外 位 数 不 出 现在 项 语法 中 ,所 以 我 们 所 翻译 的 确实 是 类 型 推导 ,而 不 是 项 。 
类 做 的 情况 可 参见 15.6 节 中 子 类 型 的 约 柬 语义。 
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24.3.1 练习 [推荐 ,** 户 ] :请 拿 一 张 空白 的 纸 , 不 看 上 面 的 编码 ,自己 打 章 稿 写 出 来 。 
24.3.2 练习 [xxvj]: 该 怎样 证 明 存在 量词 的 编码 是 正确 的 ? 
24.3.3 ”练习 [xxx*] :我 们 能 从 另 一 个 方向 ,根据 存在 类 型 来 编码 全 称 类 型 吗 ? 


24.4 注释 


ADT 与 存在 类 型 之 间 的 对 应 首先 是 由 Mitehell 和 Plotkin(1988) 开 始 研究 的 ,他 们 还 留意 了 
与 对 象 之 间 的 联系 。Pierce 和 Tumer(1994) 详 细 盖 述 了 该 联系 ,有 关 细 节 和 进一步 的 引用 请 参 
见 第 32 章 。 对 象 与 ADT 之 间 的 权衡 关系 也 由 Reynolds(1975) , Cook (1991), Bruce 等 (1996) 及 
其 他 许多 学 者 研究 过 。 尤 其 Bruce 等 (1996) 对 使 用 二 进 制 方法 进行 了 深入 的 讨论 。 

我 们 已 纤 肥 知 道 存 在 类 型 是 怎样 给 自然 类 型 理论 提供 一 个 简单 的 抽象 数据 类 型 模式 。 为 更 

应 语言 ,如 ML 中 出 现 的 (功能 更 强大 的 ) 模 式 系 统 , 大 量 的 更 复杂 的 机 制 已 经 在 研究 。 关 于 
该 信 吉 ， 最 好 先 从 以 下 学 者 的 著作 开始 ; Cardelli 和 Leroy (1990), Leroy (1994), Harper 和 
Lillibrdge(1994) ,Lillibridge(1997) , Harper 和 Stone(2000) ,及 Crary 等 (2002)。 


类 型 结构 是 一 个 用 来 限制 抽象 程度 的 语法 规则 。 
Jobn Reynolds(1983 ) 
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现在 我 们 来 扩充 第 10 章 的 入 -实现 ,将 第 23 章 和 第 24 章 的 全 称 和 存在 类 型 包括 进来 。 因 
为 定义 该 系统 的 规则 是 语法 制导 的 ( 像 和 .本 身 , 但 不 像 带 子 类 型 或 相等 递归 类 型 的 演算 ) , 它 
的 OCaml 实现 非常 直接 。 实 现 和 .最 有 趣 的 扩展 是 包含 变量 绑 定 (在 量词 中 ) 的 类 型 表示 。 为 
此 ,我 们 用 到 了 第 6 章 的 de Brmuijn 索引 。 


25.1 类 型 的 无 名 表示 


刚 开 始 ,我 们 用 类 型 变量 及 全 称 和 存在 量词 来 扩充 类 型 的 语法 : 
type ty = 
TyVvar of int * 1Tnt 
| TyArr of ty * ty 
| TyA11 of string * ty 
| TySome of string * ty 
这 里 的 表示 习惯 与 7.1 节 中 项 的 表示 是 一 样 的 。 类 型 变量 包括 两 个 整 型 ,第 一 个 说 明了 到 变 
量 边界 的 距 离 ,而 第 二 个 , 像 一 致 性 检查 样 ,说 明了 期 望 的 上 下 文 的 总 长 度 。 量 词 是 用 轩 变 量 
的 字符 串 名 字 来 注释 的 ,比如 暗示 是 一 个 打印 函数 。 
下 一 步 是 扩充 上 下 文 , 让 它 带 除了 项 变量 外 还 带 约束 的 类 型 变量 ,为 做 到 这 一 点 ,要 增加 
一 个 新 的 绑 定 (binding) 类 型 结构 ; 


type binding = 
NameBind 

| VarBind of ty 

| TyVvarBind 
在 早期 的 实现 中 ,NameBind 绑 定 器 只 是 被 解析 函数 和 打印 函数 所 使 用 。VarBind 构造 器 和 以 前 一 
样 带 一 个 类 型 。 新 TVarBind 构造 器 不 带 额 外 的 数据 值 ,因为 (不 同 手 项 变量 ) 类 型 变量 在 该 
系统 中 不 是 用 任何 附加 的 假设 来 注释 的 。 在 含 圈 量词 (参见 第 2 章 ) 或 高 级 分 类 (参见 第 29 章 ) 
的 系统 中 ,我 们 将 为 每 个 TyVarBind 添上 合适 的 注释 。 


25.2 ”类 型 移 位 和 代 换 


因为 类 型 含有 变量 ,我 们 需要 定义 函数 来 进行 类 型 的 移 位 和 代 换 。 

25.2.1 练习 [*]:; 参 考 定义 (6,2.1) 中 的 项 移 位 函数 , 写 一 个 移 位 类 型 变量 的 类 似 函 数 的 

数学 定义 。 

在 7.2 节 中 ,将 项 的 移 位 和 代 换 看 成 是 两 个 独立 的 函数 ,还 说 明了 从 本 书 的 网 站 上 确实 用 
一 个 可 行 的 “映射 函数 就 能 完成 这 两 个 任务 的 情况 。 同 样 类 似 的 映射 画 数 也 能 用 来 解决 定义 
类 型 移 位 和 代 换 。 让 我 们 现在 就 来 看 看 这 个 映射 函数 。 





258 类 型 和 程序 设计 语言 


基本 的 一 点 是 移 位 和 代 换 对 所 有 的 结构 (除了 变量 ) 都 有 相同 的 处 理 方 式 。 如 果 我 们 提取 
出 它们 对 变量 的 处 理 , 则 它们 就 完全 相同 了 。 例 如 ,这 里 有 一 个 对 类 型 的 移 位 函数 ,我 们 将 
练习 25.2.1 的 解 转 为 OCaml 形式 : 
1et typeSshiftAbove d C tyT = 
et rec walk c tyT = match tyT with 
TyVar(Cx:n) 一 if x>=c then TyVar(Cx+d,n+d] else TyVar(x,n+d) 
| TyArrCtyT1,tyT2) ~ TyArrCwalk c tyT1,walk c tyT2) 
| TyA11(CtyX,tyT2) 一 TyA11(tyX,wa1lk (〈(c+1) tyT2) 
| TySome(CtyX,tyT2)] 一 TySomeKCtyX,walk (〔(c+1) tyT2) 
in walk c tyT 
该 函数 的 参数 包含 一 个 量 值 d, 通 过 它 ,自由 变量 可 被 移 位 ,一 个 截 参 数 c, 所 有 低 于 它 的 值 都 
不 能 移 位 (这 样 是 为 避免 变量 围 同 时 被 类 型 内 的 量词 移 位 ) ,还 有 一 个 待 移 位 的 类 型 tyT。 
现在 , 如 果 我 们 从 typeShiftAbove 中 抽象 出 Tyvar 语句 到 新 的 参数 onvar 下 ,并 删除 在 
TyVar 中 惟一 提 到 的 参数 d, 就 获得 了 一 个 一 般 的 映射 函数 : 
1et tymap onvar cC tyT = 
et rec walk c tyT = match tyT with 
TyArrCtyT1,tyT2) 一 TyArrCwalk cC tyT1,walk cC tyT2) 
| TyVar(Cx,n) 一 onvar cC X_n 
| TyAT1CtYX,tyT2)] 一 TyA11CtYyX,walk (CCc+l1) tyT2) 
| TySome (tyX,tyT2) 一 TySome (tyX,walk (cC+1) tyT2) 
in walk c tyT 
从 这 里 可 以 通过 以 参数 的 形式 代 人 Tyvar 语句 (作为 具有 抽象 的 c,x 和 n 的 函数 ) 来 恢复 移 位 
函数 : 
let typeshiftAbove d c tyT = 
tymap 
(fun c xn 一 j 计 x>=c then TyVarCx+d,n+d) el1se TyVvar(x,n+d)) 
C_ tyT 
当 内 部 的 截 参数 为 0 时 ,也 很 容易 定义 typeShiftAbove 的 特殊 形式 : 


Tet typeShift d tyT = typeSshjftAbove d 0 tyT 


我 们 还 能 实例 化 bmap, 实 现在 类 型 fr 中 用 类 型 fs 代 换 类 型 变量 值 j 的 操作 
et type9Subst tyS j tyT = 
tymap 
(fun j x n ~ 计 x=j then (typeShift j tyS) else 〈TyVvar(Cx,n7)) 
j tyT 
在 类 型 检查 和 求 值 过 程 中 使 用 类 型 代 换 时 ,我 们 一 直 要 代 换 0 序 (最 外 面 的 ) 变 量 ,然后 还 要 移 
位 结果 ,以 使 变量 最 终 消失 。 帮 助 冰 数 为 我 们 做 到 了 这 点 : 


]et typeSubstTfop tyS tyT = 
typeshift (-1) (typeSubst (typeShift 1 tyS) 0 tyT) 


25.3 项 


与 项 的 处 理 方法 类 似 。 我 们 为 扩充 第 10 章 的 term 数据 类 型 , 先 得 出 消去 全 称 类 型 和 存在 
类 型 形式 : 
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type 证 erm = 

Tmvar of info * int ”int 

TmAbs of info * string ”ty * 七 erm 

TmApp of info * term * term 

TmTAbs of info * String *” term 

TmTApp of info * term * 七 y 

TmPack of info * ty ” 丰 erm * 上 ty 

TmuUnpack of info * String * String > term * term 


对 项 的 移 位 和 代 换 的 定义 与 在 第 10 章 出 现 的 类 似 。 但 考虑 到 要 写 出 一 个 通用 的 映射 函 
数 ,这 里 还 是 要 先 提 一 下 ,与 我 们 在 前 面 对 类 型 的 处 理 方 法 相同 。 上 映射 函数 形式 如 下 : 


1]et tmmap onvar ontype C tt = 

1et rec walk c 丰 = match t with 
TnmvarCfi,x,n) 一 onvar fi c xn 
TmAbs(Cfi,x,tyTl,t2) 一 TmAbsKfi,x,ontype c tyT1,walk (c+L) t2) 
TmApp(Cfi,tl,t2) 一 TmApp(Cfi,walk c tl,walk c t2) 
TmTAbsdKfi ,tyXx,t2] 一 TmTAbs(Cfi ,tyX,walk (cC+l) t2) 
TmTApp(Cfi ,tl,tyT2) ~ TmTApp(Cfi,walk c tl,ontype cC tyT2) 
TmPack(Kfi,tyT1,t2,tyT3) 一 

TmpPack(Cfi,ontype c tyT1,walk c t2,ontype c tyT3) 
TmUnpack(fi ,tyX,x,tL,t2) 一 

Tmunpack(Cfi ,tyX,X,wWalk C tl,walk (〔c+2) 上 t2) 
in walk ct 


注意 ,tmmap 带 四 个 参数 , 比 tymap 多 一 个 。 要 找 出 原因 ,注意 到 项 可 能 包含 两 个 不 同 的 变量 类 
型 ;项 变量 及 项 中 存在 于 注释 里 的 类 型 变量 。 所 以 在 移 位 过 程 中 ,例如 ,有 两 种 层次 工作 需要 
做 :项 变量 和 类 型 变量 。 当 处 理 一 个 含 类 型 注释 的 项 结构 时 ,ontype 参数 会 告诉 项 映射 器 该 做 
些 什么 ,如 TmAbs 情况 所 示 。 如 果 处 理 的 是 更 大 的 程序 ,将 会 遇 到 更 多 这 样 的 情况 。 
只 要 给 tmmap 合适 的 参数 ,就 可 定义 项 的 移 位 
1et termShiftAbove d CC 七 = 
tmmap 
(fun fi cxn 一 ifx>=cthen TmvarCfi,x+d,n+d) 
else TmvarCfi,x,n+d)) 


(typeShiftAbove d) 
c 七 


Tet termShift d 七 = termShiftAbove d 0 


对 项 变量 ,要 检查 截 参 值 ,并 构建 一 个 新 的 变量 ,和 在 typeShiftAbove 做 法 一 样 。 对 类 型 来 说 ， 
我 们 将 调用 前 面 定义 过 的 类 型 移 位 函数 来 处 理 。 
项 的 代 换 函数 也 是 类 似 的 : 
let termSubst j s tt = 


tnmmap 


(fun fi j xn 一 i 计 x=j then termShift j s else TmvarCfi,x,n7 
(fun j tyT 一 tyT)》 
了 芋 


注意 termSubst 没有 改变 类 型 注释 (类 型 不 能 包含 项 变量 ,所 以 项 代 换 不 会 影响 它们 )。 
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我 们 还 需要 一 个 困 数 将 一 个 类 型 代 换 为 一 个 项 ,比如 在 类 型 应 用 的 求 值 规则 中 : 
(AX.ti2) [Tz] 一 [X 一 T2]tl2 (E-TappTabs ) 
还 可 以 用 项 映射 来 定义 它 : 


Tet rec tytermSubst tyS 了 谦 = 
tmmap (fun fi C xn 一 Tmyar(fi,x,n)) 
(fun j tyT 一 typeSubst tyS j tyT) 


这 时 , 传 给 tmmap 用 来 处 理 项 变量 的 函数 是 相同 的 ( 它 只 是 重 构建 了 以 前 的 项 变量 ); 当 遇 到 了 
类 型 注释 时 ,我 们 要 对 它 实 现 类 型 代 换 。 
最 后 ,在 处 理 类 型 时 ,我 们 用 eval 和 typeof 定义 一 个 包含 基本 代 换 函数 的 更 方便 的 函数 : 


Tet term9ubstTop st = 
termshift (-1) 《termSubst 0 (termShift 1 s) t) 
Tet tytermSubstTop tyS 臣 = 
termshift (-1) (〈tytermSubst (typeShift 1 tySJ 0 t) 


25.4 求 值 


下 面 对 eval 函数 的 扩展 是 对 图 23.1 和 图 24.1 中 介绍 的 求 值 规则 的 直接 转述 。 该 工作 是 
由 前 面 定义 的 代 换 函数 来 完成 的 。 


Tet rec evalt ctx t = match t with 


| TmTApp(fi ,TmTAbs(_,x,tlli) ,tyT2] 一 
tytermSubstTop tyT2 tl1 
| TmwTApPp(Cfi tl,tyT2) 一 
let tl = eva1l1 ctx tt in 
TmTAPp(f1T，t1' ，tyT2) 
| Tmunpack(fi ,，，_,TmPack(_ ,tyTil,v12,，_),t2) when 1Sval ctx v12 一 
tytermSubstTop tyT11 (termSubstTop (termShjft 1 v1l2) t2) 
| TmUnpack(fi ,tyX,x,tl,t2) ~ 
et tl” = evall ctx tl in 
TmuUnpackKfi ,tyX,x,tlL',t2) 
| TmPack(fi ,tyT1,t2,tyT3) -- 
Tet t2' = evall ctx t2 in 
TmPack(fi ,tyT1,t2' ,tyT3) 


25.4.1 练习 [*] :为 什么 在 第 一 个 TmaUnpack 情况 中 需要 termShift? 
25.5 类 型 化 
typeof 画 数 的 新 语句 也 是 直接 从 类 型 抽象 和 应 用 ,以 及 存在 量词 的 打包 和 和 解 包 类 型 规则 变 


化 而 来 的 。 下 面 我 们 将 typeof 的 完整 定义 写 出 来 ,让 新 的 TaTAbs 和 TmTApp 语句 能 与 通常 的 
抽象 和 应 用 的 旧 语 名 比较 一 下 。 





第 25 章 系统 上 的 ML 实现 261 


1et rec typeof ctx 七 = 
match 七 with 
Tmvar(Cfi,i,， ) 一 getTypeFromContext fi CtX 1 
| TmAbs (fi ,x,tyT1,t2) 一 
let ctx"” = addbinding ctx x 《VarBind(tyT1)7) in 
Tet tyT2 = typeof ctx” t2 in 
TyArr(tyT1，typeShift 〔(-1) tyT21) 
| TmApp(Cfi,tl,t2) 一 
let tyT1 = typeof ctx tl in 
Tet tyT2 = typeof ctx t2 in 
《match tyTL wjth 
TyArr(CtyTJ11L,tyT12) 一 
if (=) tyT2 tyT1L1L then tyT12 
else error fi “parameter type misnmatch” 
| -~ 一 error fi "arrow type expected'") 
| TmTAbs(Cfi ,tyX,t2) 一 
]et ctx = addbinding ctx tyX TyVarBind in 
]et tyT2 = typeof ctx t2 in 
TyA11CtyX,tyT27) 
| TmTApp(Cfi ,tl,tyT2) 一 
]et tyTt+ = typeof ctx tl in 
Cmatch tyTL with 
TyA11(C ,tyT12) ~ typesubstTop tyT2 tyT12 
| ~ 一 error fi“"universal type expected'") 
| TmPack(Cfi,tyTE,t2,tyT) 一 
Cmatch tyT with 
TyS3ome(ktyYY ,KEYT2) 一 
1et tyU = typeof ctx t2 in 
et tyU”= typeSubstTop tyT1 tyT2 in 
放 (=) tyU tyu” then tyT 
else error fi "doesn't match declared type" 
| ~- 一 error fi “existential type expected'") 
| Tmunpack(Cfi ,tyX,x,tl,t2) 一 
1et tyTL = typeof ctx tl in 
(match tyTL with 
TySome(tyY ,tyT1L1) 一 
1et ctx' = addbinding ctx tyX TyVarBind in 
let ctx”= addbinding ctx' x (VarBind tyT11) in 
let tyT2 = typeof ctx"”t2 in 
tyYypeShift (-2] tyT2 
| _- 一 error fi "existentia] type expected'"7 


最 有 趣 的 新 语句 是 实现 TmUnpack 的 。 它 包含 了 以 下 几 步 :(1) 我 们 要 检查 子 表 达 式 1 ,要 
确保 它 有 一 个 存在 类 型 | 3X.Til;(2) 用 一 个 类 型 变量 绑 定 X 和 一 个 项 变量 绑 定 x:Ti 来 扩充 
上 下 文 下 ,并 要 检查 b 是 否 有 类 型 卫 ;(3) 将 中 的 自由 变量 的 索引 移 位 ,降低 两 个 ,使 它 更 符 
合 原来 的 T;(4) 将 结果 类 型 作为 整个 jet…in… 表 达 式 的 类 型 。 

显然 ,如 果 X 随意 发 生 在 了 中 ,第 (3) 步 的 移 位 将 产生 一 个 无 意义 的 带 负 索 引 的 自由 变 


量 ;在 此 处 的 类 型 检查 肯定 会 失败 。 我 们 可 通过 重新 定义 ypeShiftAbove 来 保证 当 它 快要 产后 
一 个 带 负 索引 的 类 型 变量 时 ,发 出 一 个 错误 的 信和 叶 而 不 是 返回 不 合理 的 结果 。 





一 
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1et typeShiftAbove d c tyT = 
tymap 
人 (fun c x n ~ 计 x>=c then 
讲 x+d<0 then err "Scoping error1l” 
el1se TyVar(Cx+d,n+d) 


e]se TyVar(x,n+d)) 
C 廿 yYT 


无 论 什么 时 候 我 们 计算 的 存在 消去 表达 式 let IX,xl =bh it 中 的 忆 的 类 型 含 园 类 型 变量 X 
时 ,这 项 检查 都 会 产生 一 个 越界 错误 : 


1et {X,xj=(Ct*Nat,O} as {3X,Xi) in xy; 
” Error: Scoping error1! 
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在 编程 语言 中 ,许多 关注 的 焦点 都 集中 在 单独 考虑 特征 之 间 相 对 简单 的 联系 上 。 本 章 开 
始 介绍 园 量 词 ,对 它 的 研究 是 在 多 态 和 子 类 型 组 合 后 有 所 升温 , 它 能 充分 提高 系统 的 表达 能 力 
和 元 理论 的 复杂 度 。 我 们 所 要 学 习 的 演算 称 为 下。 (下子 ”) ,自从 20 世纪 80 年 代 中 期 开始 研 
究 以 来 , 它 已 经 在 编程 语言 研究 中 占据 中 心地 位 ,尤其 在 面向 对 象 领域 处 于 基础 研究 的 地 位 。 


了 路 


26.1 引 


将 子 类 型 与 多 态 组 合 在 一 起 的 最 简单 方法 就 是 把 它们 当成 完全 的 正 交 特征 ,也 就 是 说 , 认 
为 一 个 新 的 系统 为 第 15 章 到 第 23 章 介绍 的 系统 合并 。 该 系统 在 理论 上 是 成 立 的 ,只 要 子 类 
型 与 多 态 彼此 独立 , 则 它 就 是 有 用 的 。 但 是 ,一旦 我 们 在 同一 个 语言 中 都 使 用 了 它们 ,就 需要 
找到 一 个 更 合适 的 方法 将 它们 组 合 在 一 起 。 为 了 陈述 , 先 让 我 们 看 一 个 十 分 简单 的 例子 (在 
26.3 节 中 还 能 看 到 别 的 例子 ,在 第 27 章 和 第 32 章 中 看 到 一 些 更 大 .更 实用 的 实例 )。 

设 上 了 是 在 具有 数值 字段 a 的 记录 上 的 恒 等 函 数 : 

ff = AX:{fa:Nat}. Xi; 
”了 千 : {fa:Natl 一 {a:Natl 
若 阳 是 带 a 字 段 的 记录 : 
ra = {a=0] ; 
然后 就 可 将 了 应 用 于 ma, 我 们 以 前 所 见 到 的 类 型 系统 会 产生 一 个 相同 类 型 的 记录 ， 
ff rai 
* {fa<0}+ : {a:Nat} 
类 似 地 ,如 果 定 义 带 两 个 字段 a 和 b 的 记录 
rab = {fas0，b=truej; 
通过 使 用 包含 规则 (T-Sub, 参 见 图 15.1) 将 f 应 用 于 rab, 使 rahb 的 类 型 变 成 fa:Natl ,以 达到 匹配 
f 所 期 望 的 类 型 : 
f rab; 
> {a=0，bstrue}y : {fa:Nat} 
然而 ,得 出 的 结果 类 型 只 含 字 段 a, 如 果 检 查 到 项 (f rab) .b 就 会 报错 。 换 名 话说 ,rab 经 过 恒 等 
函数 的 处 理 后 ,得 不 到 它 的 bp 字段 ! 


四 “本章 大 部 分 要 学 习 的 系统 是 纯 耻 。: (人 参见 图 26.1)。 所 用 的 例子 也 是 使 用 记录 和 数字 。 相 关 的 OCaml 操作 是 faltfsub 
和 fallfemsub(fullfsub 对 大 多 数 例 子 来 说 已 经 足够 了 ;而 含 带 参数 的 类 型 简写 ,如 Pair 就 需要 用 fallfomsub) 。 
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若 用 系统 了 的 多 态 ,可 得 到 上 的 另 一 种 表示 : 
fpoTy = AX- ANX:X。X; 
* fpoly : YX, X 一 X 
这 时 再 将 fpoly 应 用 于 rab( 及 一 个 合适 的 类 型 参数 ) 就 能 产生 正确 的 结果 : 
fpoly [{fa;Nat，b:;Boo1}] rab; 
” {fa=<0，b=truej :; {fa:Nat，b:BooT} 
但 将 x 的 类 型 变 为 一 个 变 基 过 程 中 ,忽略 了 本 该 要 用 到 的 信息 。 如 假设 我 们 要 写 另 一 种 形式 
的 f, 能 返回 它 的 原始 参数 和 数字 字段 的 后 继 函 数 ; 
f2 = Ax:{fa:Natl]。{forig<x，asucceSuUCcC(CX.a)1; 


” f2 ; {fa:Nat} 一 {forig:{fa:Nat}，asucc:Nat} 


然后 ,再 用 子 类 型 ,将 刀 用 于 由 和 rab, 但 后 者 会 失去 b 字段 。 
f2 rai 
* {orig={fa=01，asucc=1} : {forig:{fa:Natl，asucc:Nat} 
f2 rab | 
* {forig={a=0,b=truej，asucc=ll : {forig:{fa:Nat}，asucc:Nat} 


但 这 次 ,多 态 也 解决 不 了 问题 了 。 如 果 我 们 用 变量 X 来 代替 x 的 类 型 ,就 会 失去 约 东 , 即 x 必 
须 为 带 a 字段 的 记录 ,因为 要 用 它 来 计算 asuce 字段 结果 。 


f2poly = AX、AX:X. {forigax，asucc=succCx.a)l; 
*” Error: Expected record type 
在 纪 的 类 型 中 ,我 们 想 要 表达 的 双 的 操作 是 使 用 任何 包含 数字 a 字段 的 记录 类 型 R 的 参数 ， 
返回 含 类 型 R 和 类 型 Nat 的 字段 记录 。 我 们 可 用 子 类 型 关系 简要 地 说 明 ; 己 用 类 型 |a:Nat| 的 
子 类 型 尺 参 数 返 回 一 个 含 类 型 R 的 字段 和 类 型 Nat 字段 的 记录 。 这 种 想法 可 通过 在 Pploy 的 
转变 量 X 引 和 信子 类 型 约束 来 形式 化 : 
f2poly = AX<:{fa:Nat}，Ax:X。 {orjg=x，asuCcC=SuUCCCxX-a)}; 
” f2po1y : YX<:fta:Natl. X 一 {orig:X，asucc:Nat] 


这 就 出 现 了 所 谓 了 -系统 的 典型 特点 较量 词 。 


26.2 定义 


通常 ,要 将 第 23 章 系 统 了 的 类 型 和 项 与 第 15 章 的 子 类 型 关系 组 合 起 来 ,并 精炼 全 称 量词 
使 其 带子 类 型 约束 ,这样 就 可 得 到 了 < 系统 。 轿 量词 也 可 以 用 我 们 将 要 在 26.5 节 见 到 的 类 似 
方法 进行 定义 。 

在 定义 了 < 的 子 类 型 关系 上 有 两 种 合理 的 方式 ,它们 与 蜀 量 词 在 规则 的 形式 上 不 同 (S- 
AD) :这 两 种 方式 ,一 个 是 更 易 处 理 但 写法 不 灵活 , 称 为 核心 (kemal) 规 则 ; 另 一 个 是 表达 能 力 更 
强 但 技术 上 尚 存 问题 的 全 子 类 型 规则 。 在 下 面 的 小 节 中 ,将 详细 讨论 这 两 种 形式 ,26.2 节 的 
前 几 小 节 介 绍 核心 变量 ,后 几 小 节 再 介绍 全 变量 。 这 样 ,为 更 精确 地 说 明 变量 ,我 们 所 指 的 系 
统 分 别 分 成 核心 F- 和 全 F。 ,而 原来 的 不 精确 的 说 法 F。 指 的 是 两 种 系统 的 总 称 。 
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图 26.1 是 核心 了。 的 完全 定义 ,并 且 还 强调 了 与 前 面 系统 的 不 同 之 处 。 





一 Y <: Top 基于 系统 下 (23.7) 和 简单 子 类 型 (1.5.7) 
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下 人 3 
(CAX 沈 注 久 .ti2) [T2z] 一 [X- Tzltiz 
(E-IAPPTABS) 
(CAX:Til.tl2) va2 一 [x 一 Vvzj]tl12 (E-APPABS) 


9 


26.1 男 量 词 (核心 了 < ) 


圈 量 词 和 非 较量 词 


丛 图 中 很 明显 可 以 看 出 F。 的 语法 提供 了 惟一 的 围 量词: 一般 地 , 纯 系 统 的 未 团 量 词 已 
经 不 存在 了 。 因 为 我 们 并 不 需要 它 :一 个 团 量 词 边界 为 Top, 包 括 了 Top 的 所 有 子 类 型 ,也 就 是 
所 有 的 类 型 。 所 以 我 们 可 以 采用 如 下 的 缩写 来 恢复 非 团 量 词 ; 


VX.T 钳 VX<:Top.T 


下 面 将 经 常 使 用 该 缩写 。 
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辖 域 化 


在 图 26.1 中 存在 一 个 不 太 明显 的 技术 细节 , 即 类 型 变量 的 辖 域 。 显 然 ,无论 我 们 何 时 讨 
论 一 个 形式 PRF ET 的 类 型 声明 ,我 们 都 希望 在 t 和 T 中 的 自由 变量 也 在 工 的 定义 域内 。 但 如 
果 是 自由 变量 出 现在 了 的 内 部 又 会 怎样 呢 ? 尤其 是 ,下 面 娜 一 个 上 下 文 可 认为 是 未 越界 的 ? 

了 X<:Top, y:X 一 Nat 

I> YX 一 Nat, X<:Top 

B3 X<:{fa:Nat,b:X} 

Ia4 X<:{fa:Nat,b:Yj,Y<:[{fc:Bool1,d:X1 
T, 显然 未 越界 : 它 先 引信 了 一 个 类 型 变量 X, 然 后 是 一 个 类 型 含 X 的 项 变量 y。 在 类 型 检查 过 
程 中 会 产生 该 上 下 文 的 项 应 该 有 形式 MX <:Top.Xy:X->Nat.t, 明 显 在 y 的 类 型 中 的 X 是 被 封装 
的 入 界定 的 。 另 一 方面 ,同样 的 原因 T 看 上 去 就 是 错 的 ,因为 在 产生 它 的 项 中 , 即 My:X-~ 
Nat.XX <:Top.t 中 X 的 范围 不 太 明 确 。 

D 就 更 有 意思 了 ,我 们 说 在 有 的 项 ,如 MX <: ja:Nat,b:Xl.t 中 (其 中 第 二 个 X 是 界定 的 )， 
它 显然 成 立 。 所 要 做 的 就 是 将 对 X 的 界定 辖 域 看 成 包括 它 自己 的 上 界 ( 及 通常 还 有 出 现在 界 
定 右 端的 所 有 符号 )。 包 括 这 一 表达 方式 的 园 量 词 称 为 了 较量 词 (Canning,Cook, Hill,Olthofft 和 
Mitchell ,1989b)。 下 围 量词 经 常 出 现在 面向 对 象 语 言 的 类 型 讨论 中 ,在 GJ 语言 设计 中 ,已 经 开 
始 使 用 (Bracha,Odersky, Stoutamire 和 Wadler,1998) 。 但 是 , 它 的 理论 比 通 常 的 了 (Ghelli ,1997; 
Baldan, Chelli, 和 Raffaeta,1999) 要 复杂 些 , 只 有 当 递 归 类 型 也 包括 在 系统 中 时 , 它 才 会 真正 有 价 
值 (只 有 递归 类 型 X 才 能 满足 约束 式 , 如 X <:ia:Nat,b:XH)。 

但 更 一 般 化 的 上 下 文 忆 ,允许 类 型 变量 通过 它们 的 上 界 变换 递归 式 ,所 以 也 不 是 闻 所 未 
曾 。 在 这 种 演算 中 ,允许 每 个 新 变量 绑 定 引信 一 个 包括 新 变量 和 所 有 存在 变量 在 内 的 不 等 式 
任意 集合 。 

在 本 书 中 ,我 们 不 会 更 深入 探讨 下 而 量词 ,并 认为 卫 ,T 和 了 都 是 越界 的 。 还 有 ,我 们 还 
要 求 在 上 下 文中 只 要 提 和 到 了 类 型 T, 那 么 T 的 自由 变量 应 界定 在 了 出 现 的 左 端 上 下 文中 。 


子 类 型 


-< 中 的 类 型 变量 与 边界 有 关 ( 如 同 通常 的 项 变量 与 类 型 有 关 一 样 ) ,所 以 必须 在 子 类 型 化 
和 类 型 检查 中 弄 清楚 这 些 边 界 。 为 了 这 一 点 ,我 们 要 改变 上 下 文中 的 类 型 边界 ,使 其 对 每 个 类 
型 变量 都 包含 上 界 。 在 子 类 型 化 中 ,这 些 边界 是 用 来 判定 “类 型 变量 X 是 类 型 T 的 子 类 型 , 因 
为 我 们 假设 它 是 ”。 


X<:T ET 

ITFX<:T 
增加 该 规则 的 意思 是 , 子 类 型 化 有 了 三 处 关系 ,就 是 每 个 子 类 型 化 声明 都 有 形式 下 F S <:T, 读 
做 “假设 工 成 立 ,S$ 是 T 的 子 类 型 ”。 于 是 可 在 上 下 文 加 进 所 有 其 他 的 子 类 型 化 规则 中 来 进行 
改进 (参见 图 26.1)。 


《S-TVar) 
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除了 变量 的 新 规则 ,我 们 还 必须 增加 一 个 比较 量化 类 型 的 子 类 型 化 规则 (S-AID)。 图 26.1 
给 出 了 一 个 更 简单 , 称 为 核心 规则 的 变量 , 它 要 求 两 个 比较 的 量词 必须 相同 。 
T, X<:Ul F S> <: T> 
THF VX<:Ul .SS <: YX<:UI .T> 
术语 “核心 "(kemel) 来 自 Cardelli 和 Wegner 的 原文 (1985) ,其 中 Fe 的 变 式 被 称 为 Kemel Fun。 


26.2.1 练习 [x 大 ] : 设 上 下 文 为 = B <:Top,X<:B,Y<:X, 对 B->Y <:X>B 夯 出 子 类 型 
化 推导 树 。 


类 型 化 


我 们 还 要 对 通常 的 全 称 类 型 的 类 型 规则 进一步 改进 。 这 种 扩展 是 直接 的 :在 男 量 词 的 引 
入 规则 中 ,对 语句 体 进行 类 型 检查 时 ,把 抽象 中 取出 的 边界 放 人 上 下 文中 : 
T,X<:THFt2z :T2 
IT F AX<:T.t2z : YX<:T.T2 
而 在 消去 规则 中 ,我 们 发 现 提供 的 类 型 参数 的 确 满 足 边界 要 求 ， 
LETCOVX<STT To 


TFT2z <:. TI13 (T-TApp) 
THtli[Tz] : [X=TzlTi> 


〈S-Al1) 


(T-TAbs) 


全 E 


在 核心 F< 中 ,只 要 两 个 量化 类 型 的 上 界 相同 ,它们 就 可 以 进行 比较 。 如 果 我 们 把 一 个 量 
词 看 成 是 一 种 箭头 类 型 ( 它 的 元 素 是 从 类 型 到 项 的 函数 ) , 则 核心 规则 对 应 的 是 一 个 箭头 标准 
子 类 型 规则 的 “ 协 变 " 限 制 , 它 规定 箭头 类 型 的 定义 域 不 允许 在 子 类 型 中 变化 : 

S2 <: T2 
US2 <: U 一 T2 
该 限制 看 上 去 对 箭头 和 量词 都 不 太 合理 。 依 次 类 推 ,我 们 应 该 改进 一 下 核心 S-All 规则 , 允许 
团 量 词 的 左 端 可 以 逆 变 子 类 型 化 ,如 图 26.2 中 所 示 。 
-~ V <: Top 请 六 扩展 F<: (26.71) 


新 子 类 型 规则 
汕 二 Tx<: 盯 -ss <:T 这 
SA 


Tr vx<: 吐 .S% <: vx<: 天 .7T | 
一 一 
图 26.2 “全 "” 男 量 词 


直观 上 ,S-Al 可 以 这 样 来 理解 。 类 型 T= YX <:T .了 描述 的 是 一 类 从 类 型 变化 到 值 的 函 
数 ,每 一 个 都 是 将 Ti 的 子 类 型 映射 为 也 的 实例 。 如 果 全 是 Si 的 一 个 子 类 型 , 则 了 的 定义 域 
比 S 的 定义 域 小 ,其 中 S= YX <:Si.S ,因此 S 约束 性 更 强 , 它 描述 了 多 态 值 的 更 小 集合 。 而 
且 , 对 每 个 在 两 种 集合 中 都 是 函数 可 接受 参数 的 类 型 U( 即 可 以 满足 更 苛刻 要 求 U <:T, ) ,如 果 
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S 的 0U 实 例 是 的 1 实例 的 子 类 型 , 则 $ 是 个 “ 逐 点 变 强 " 的 约 东 ,也 描述 了 一 个 值 的 更 小 


集合 。 
只 带 对 量化 类 型 的 核心 子 类 型 化 规则 的 系统 称 为 核心 F- 。 带 全 量词 子 类 型 化 的 规则 的 
系统 就 称 为 全 F。 。 而 了 .本 身 是 笼统 地 指 这 两 种 系统 。 
26.2.2 练习 [x 户 ] :请 给 出 一 些 类 型 的 序 对 例子 ,使 它们 的 关系 满足 全 下. 的 子 类 型 关 
系 ,而 不 是 核心 F。 子 类 型 。 


26.2.3 练习 [xxxx]: 你 能 找到 一 些 关 于 此 特性 的 有 用 实例 吗 ? 


26.3 实例 


本 节 展 示 了 几 个 下 <: 的 小 的 编程 实例 。 它 们 都 是 用 来 说 明 该 系统 的 特性 ,而 不 是 说 明 它 
的 具体 应 用 ;更 大 更 复杂 的 例子 可 在 后 面 的 章节 中 (参见 第 27 章 和 第 32 章 ) 介 绍 。 本 章 的 所 
有 例子 都 能 在 核心 和 全 上 上 -: 中 运行 。 
结果 编码 


在 23.4 节 中 ,我们 曾 给 出 了 在 系统 了 中 数 序 对 的 编码 。 该 编码 可 被 一 般 化 为 任意 类 型 的 
序 对 : 即 下 面 类 型 的 元 素 ， 
Pair Ti Tz = VX.， (Ti 一 Tz 一 X)] 一 Xi; 
表示 了 T 和 吴 的 序 对 。 其 构造 器 pair 和 析 构 器 fst 及 snd 的 定义 如 下 所 示 ( 关 于 pair 定义 的 
写法 可 帮助 类 型 检查 器 以 可 读 的 方式 打印 出 它 的 类 型 ) : 


pair = AX- AY，AX:X.， Ay:Y。、(AR， Ap:X-Y-R. px y) as Pair X Y; 
> pair : YX，VY, X--Y 一 Pair XY 

fst = AX. AY. Xp: Pair X Y， pp [D] (AXIX。Ay:IY。x) 
>* fst : VX. VY. pair XY 一 X 

snd = AX，AY，Ap: Pair X Y. p [Y] (AMx:X.、Ay:Y，y); 


> Snd : YX，VY. Pair XY 一 Y 


显然 ,相同 的 编码 也 能 在 了 <: 中 使 用 ,因为 下 .. 含 系统 下 的 所 有 特性 。 然 而 ,更 有 趣 的 是 该 编码 
还 含有 一 些 子 类 型 化 的 特性 。 事 实 上 ,关于 序 对 的 子 类 型 规则 可 直接 从 该 编码 得 出 ; 
THFSi<:T TH Sz <:T2z 
TrF pair 9l Sz <: PairTiT2z 


26.3.1 练习 [x 大 ] :证 明 上 面 的 结论 。 
记录 编码 


有 趣 的 是 记录 和 记录 型 (包括 它们 的 子 类 型 化 规则 ) 能 在 纯 F. 中 编码 。 这 里 编码 是 由 
Cardelli(1992) 提 出 的 。 
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我 们 先 定义 可 变 的 元 组 。 它 们 是 “可 变 的 ”, 因 为 它 不 同 于 普通 的 元 组 ,它们 可 以 在 子 类 型 
化 过 程 中 向 右 扩 充 。 
26.3.2 定义 :对 每 个 "0 和 类 型 从 了 到 T , 设 ; 
{Ti ecoe pairTI (PairT2 ... (Pair TeTop)...)， 


特别 地 , 什 关 Top。 类 似 地 ,对 项 从 4 到 上 , 设 : 


{ti er 4 pair tl (pairt2 ... (pair tntop)...)， 


这 里 我 们 为 了 简短 些 ,省 略 了 pair 的 类 型 参数 (这 里 的 top 就 是 Top 中 的 任意 元 素 , 即 任 一 
个 封闭 的 , 良 类 型 项 )。 投 影 t.n( 也 省 略 了 它 的 类 型 参数 ) 是 ; 
fst (snd (snd. .。 (Snd t)...) 
从 该 简写 中 ,可 立即 得 到 下 面 关 于 子 类 型 化 和 可 变 元 组 类 型 化 的 规则 
T Fr finoSi <: Ti 
T FF Art 本 
TFtEI TS 
[FFt.i :IT 
现在 , 设 上 为 标签 的 可 数 集合 ,其 中 的 总 体 排序 由 双 射 (bijective) 函 数 决 定 ,该 函数 为 labeL- 
with-index:N 一 人 。 我 们 按 如 下 形式 定义 记录 。 
26.3,3 定义 : 设 工 为 上 的 有 限 集合 ,而 S, 为 每 个 1 的 类 型 。 设 mm 为 工 的 元 素 的 最 大 
索引 , 且 : _。 
sa -1S 如 果 IabeLwitirindex(i) =1eL 
(1 Top 如 果 Japelwith-index(i E 工 
如 果 记 录 型 凡 :S 2 定义 成 可 变 元 组 18 下 ,类 伏地 ,如 果 对 每 个 1 大 ,5 是 一 个 项 ， 
则 : 
、_ (ta 如 果 Uapei-with-index(D) =1eL 
” (top 如 果 Iapel-witn-incex(i) e 工 . 
记录 值 1 =t 中 是 1 全 "| 投影 5 就 是 元 组 投影 ti, 其 中 jobeLaoip indexr(i= 1 
该 编码 验证 了 类 型 化 和 子 类 型 化 规则 的 有 效 性 (这 些 规 则 是 图 15.2 和 图 1$.3 中 的 规则 
S-RedWidth,S-RedDepth,S-RedPemn,T-Rcd 和 T-Proj)。 然 而 ,这 只 是 理论 上 有 意义 ,站 在 实际 的 
角度 , 它 依赖 的 是 所 有 标签 范围 内 的 全 局 顺序 ,这 一 点 有 严重 的 缺陷 :因为 在 语言 编辑 中 ,数字 
分 配给 标签 时 不 能 一 模块 一 模块 地 进行 ,而 必须 在 链接 时 间 内 一 次 全 部 分 配 。 








全 人 人 一 一 一 一 一 -一 一 一 一 -一 一 一 一 一 
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子 类 型 化 的 Church 编码 


作为 下 .表达 的 最 后 描述 ,让 我 们 看 看 如 果 将 力量 词 增加 到 系统 F( 参 见 23.4 节 ) 的 Church 
数字 编码 中 ,将 会 发 生 什 么 事 。 那 里 的 Church 数字 编码 是 : 
CNat = VX. (X~X) 一 X 一 Xi 
用 一 个 人 性 化 的 语言 来 解释 该 类 型 为 ;告诉 我 类 型 了 的 结果 ;现在 给 一 个 T 上 的 函数 及 T 的 
基本 元 素 ” ,然后 将 给 你 另 一 个 了 元 素 ,该 元 素 是 在 你 所 给 的 基本 元 素 上 重复 实现 你 所 给 函数 
! 次 的 结果 ”。 
我 们 可 以 通过 增加 两 个 围 量词 并 加 工 一 下 s 和 = 参数 来 一 般 化 上 面 的 编码 ， 
SNat = VX<:Top. VS<:X，VZ<:X，(X-S) -- Z 一 Xi; 
直观 地 ,该 类 型 可 读 成 :给 我 一 个 一 般 化 的 类 型 X 和 两 个 子 类 型 s 和 Z。 现 在 给 我 一 个 函数 
将 整个 集合 X 映射 到 子 集 S 和 特殊 集合 Z 的 一 个 元 素 , 这 样 就 将 返回 一 个 X 的 元 素 , 它 是 在 
基础 元 素 上 实现 了 函数 ”次 后 的 结果 。? 
要 和 弄 清 其 中 的 道理 , 先 看 一 下 下 面 类 型 的 轻微 差异 : 
SZero = VX<:Top. VS<:X，VYZ<:X。(X--S) 一 Z 一 Zi 
尽管 SZero 与 SNat 在 形式 上 几乎 相同 ,但 它 透露 出 关于 它 所 含 元 素 的 更 重要 内 容 , 因 为 它 能 保 
证 最 终 的 结果 将 是 Z 的 元 素 ,而 不 光 是 X 的 元 素 。 事 实 上 ,只 有 一 种 可 能 使 它 能 发 生 , 即 它 本 
身 会 产生 一 个 参数 z。 换 句 话说 , 值 : 
Szero = AX，AS<:X，AZ<:X，AS:X 一 S。AZ:Z，Z; 
” 5Szero : 9Zero 
是 在 类 型 SZero 内 的 惟一 值 ( 也 就 是 说 SZero 的 元 素 的 所 有 其 他 的 元 素 的 行为 都 和 szero 相同 ) 。 
因为 SZero 是 SNat 的 子 类 型 ,我 们 也 可 以 写成 szero:SNat。 
另外 ,相似 的 类 型 ; 
SPos = VX<:Top. VS<:X.，、VZ<:X。(X-9)] 一 Z ~ Si 
有 更 多 的 适用 对 象 ;例如 : 
Sone ”= 一 AX，AS<:X，AZ<:X，AS:X 一 SAZ:Z，S zj; 
stwo = AX。 AS<:X. AZ<:X，AS:X 一 SAzZ:Z. S (S Z) 
sthree = AX。 AS<:X，AZ<:X. AS:X 一 S，AzZ:IZ.Ss (s (Cs Z)); 
等 等 。 的 确 ,SPos 适用 于 除 zsero 外 的 所 有 SNat 的 元 素 。 
我 们 能 类 似 地 改进 对 Chureh 数 子 定义 的 类 型 化 操作 。 例 如 ,类 型 系统 可 用 检查 出 后 继 函 
数 总 是 返回 一 个 正 数 ， 


5sSucC = An:SNat。 
AX，AS<:X，AZ<:X，AS:X 一 SS。 AZ:Z， 
s (n [X] [S] [Z] s z); 


* SSUCC : 9Nat 一 SPos 
同样 ,通过 改进 它 的 参数 类 型 ,能 写 出 函数 plus, 让 类 型 检查 器 提供 给 它 类 型 SPos > SPos_> 
SPos。 
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spluspp = AnISPos，Am;SPos . 
AX，AS<:X，AZ<:X，AS:X 一 AZ:Z. 
n [X] [S] [S] s Cm [X] [S] [Z] s z) ; 


* Spluspp :; SPos 一 Spos 一 SPos 


26.3.4 练习 [xx]: 请 写 出 另 一 个 plus 的 变 式 , 除 了 类 型 注释 外 ,该 变 式 应 与 上 面相 同 , 其 
类 型 为 SZero~>SZero->SZero。 请 写 出 一 个 类 型 为 SPos~>SNat->SPos 的 变 式 。 


前 面 的 例子 与 练习 其 实 向 我 们 提出 了 有 趣 的 问题 。 显 然 ,我 们 不 愿意 用 不 同 的 名 称 写 出 
plus 的 不 同形 式 ,然后 还 要 为 该 用 哪 种 形式 才 是 参数 所 要 求 的 类 型 而 发 悉 , 所 以 我 们 需要 使 用 
单一 规格 的 pus, 让 它 的 类 型 含有 所 有 可 能 的 类 型 ,比如 : 


plus : SZero 一 SZero 一 SZero 
A SNat 一 SPos 一 SPos 
A SPos 一 SNat 一 5Pos 
A SNat 一 SNat 一 SNat 


其 中 4S AT, 意 思 是 + 拥 有 S 和 了 两 种 类 型 ”。 和 希望 支 持 这 种 重 载 的 想法 使 得 我 们 去 研究 将 
围 量词 与 相交 类 型 的 组 合 系统 。 参 见 Pierce(1997b) 


26.3.5 练习 [推荐 ,*x*] :请 按照 SNat 及 其 友 元 的 模式 ,将 Church 布尔 型 (参见 23.4 节 ) 
中 的 CBool 一 般 化 为 类 型 SBool 和 两 个 子 类 型 Srrue 和 SFalse。 请 写 出 一 个 函数 notft, 类 型 
为 SFalse->STrue, 及 另 一 个 类 似 的 函数 nottf, 类 型 为 STrue->SFalse。 


”26.3.6 练习 [* 户 ] :在 本 章 的 介绍 中 发 现 子 类 型 化 和 多 态 能 以 比 在 F. 中 更 直接 ,更 不 互 
交 的 方式 组 合 在 一 起 。 我 们 从 系统 了 开始 (可 能 会 加 进 记录 等 ) ,并 增加 一 个 子 类 型 关系 
(如 在 简单 的 带子 类 型 化 的 lambda 演算 中 ) ,但 量词 要 是 非 略 的 。 对 子 类 型 关系 的 惟一 扩 
展 应 是 对 普通 量词 体 的 协 变 式 子 类 型 化 规则 : 

S <:T 
VX.S<: VX.T 
请 问 : 本 章 中 哪 一 个 例子 能 在 这 简单 的 系统 中 用 公式 表示 ? 


26.4 安全 


对 了 下。 核心 和 全 变量 可 直接 建立 类 型 保持 特性 。 这 里 我 们 详细 证 明 对 核心 了 .的 情况 ; 而 
对 全 了 -可 以 类 推 。 然 而 , 当 我 们 在 第 28 章 中 考虑 子 类 型 化 和 类 型 检查 算法 时 ,这 两 种 变量 要 
比 本 章 给 出 的 基本 参数 更 加 不 同 。 我 们 将 会 发 现在 全 系统 中 存在 许多 比 核心 系统 复杂 得 多 的 
难点 ,或 者 说 ,确实 在 全 系统 中 缺少 许多 有 用 的 特性 (包括 可 决定 的 类 型 检查 ) ,而 这 些 在 核心 
系统 中 都 具备 。 

我 们 将 从 类 型 和 子 类 型 关系 的 初步 技术 问题 开始 讨论 。 对 它们 的 证 明 可 按 常规 的 推导 进行 。 


26.4.1 引 理 [置换 ] ;假设 了 是 一 个 形式 正确 的 上 下 文 ,而 了 是 A 的 一 种 置换 , 即 下 有 和 
A 相 同 的 绑 定 ,了 中 的 顺序 保持 和 A 中 类 型 变量 相同 的 辖 域 ,也 就 是 说 ,如 果 在 工 中 的 一 
个 绑 定 引入 了 一 个 在 另 一 指向 右 端 绑 定 的 变量 , 则 这 些 绑 定 会 以 同样 的 顺序 出 现 
在 A 中 。 
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1. 如 果 了 下 FF tT, 那 么 AF 4T。 
2. 如 果 了 FF S <:T, 那 么 AF S<:T。 


26.4.2” 引 理 [ 弱 化]: 

1. 如 果 PF aaT 和 T,x:U 形 式 成 立 , 则 P,x:UF tT。 

2. 如 果 PrtT 且 了 T,X<:U 成 立 , 则 T,X<:UF ETo 

3. 如 果 下 FS<:T 且 PP,x:U 成 立 , 则 PP,x:UF S<:T。 

4. 如 果 TF S<:T 且 T,X<:U 成 立 , 则 T,X<:UF S<:To 


26.4.3 练习 [x]: 对 弱化 引 理 的 证 明 在 哪 点 上 要 依赖 于 置换 引 理 ? 

26.4.4 引 理 [在 子 类 型 推导 中 对 项 变量 的 强化 ] :如 果 了,x:T,AF S <T, 则 T,AF S <:T。 

证 明 : 显 然 ,类 型 假设 在 子 类 型 推导 中 没 起 到 任何 作用 。 

通常 ,类 型 保持 的 证 明 都 要 依赖 于 与 有 类 型 化 和 子 类 型 关系 的 代 换 的 引 理 。 

26.4.5 引 理 [狭窄 化 ] : 

1. 如 果 T,X<:Q,AFS<:T 且 PRFP<:Q, 则 PR,X<:P,AF S<:T。 

2. 如 果 T,X<:Q,AFeT 且 PPFP<:Q, 则 T,X<:P,AFtT。 

这 些 特 性 通常 都 称 为 狭 窗 化 , 因为 它们 包括 变量 X 的 受 限 ( 狭 率 ) 范 围 。 

证 明 : 留 做 练习 [xj]。 

接 下 来 ,我 们 要 得 出 关于 代 换 和 类 型 关系 的 引 理 。 

26.4.6 引 理 [保持 类 型 的 代 换 ]: 如 果 T,x:Q,AF tT 且 PF q:Q, 则 T,AFIx Fr-q]tT。 

证 明 :使 用 上 面 介绍 的 特性 对 推导 T,x:Q,AF tT 进 行 归纳 。 

因为 在 归 约 的 过 程 中 需要 对 类 型 变量 进行 代 换 类 型 ,我 们 还 需要 一 个 关系 到 类 型 代 换 和 
类 型 化 的 引 理 。 该 引 理 的 证 明 ( 特 别 是 T-Sub 情况 ) 要 依赖 一 个 与 代 换 和 子 类 型 化 有 关 的 新 
引 理 。 


26.4.7 定义 :在 上 下 文 卫 所 有 绑 定 的 右 端 将 S 代 换 为 X 而 得 到 的 上 下 文 的 形式 记 为 
[XFr=~S]T。 
26.4.8 引 理 [类 型 代 换 保持 子 类 型 化 ] : 如 果 了 T,X <:Q,AHF S<:T 且 PF P<:0Q, 那 么 上 
[X Fr=-P]AHFIXF-P]s<:[XF=-P]T。 
注意 ,我 们 应 该 在 X 绑 定 的 那 部 分 中 用 X 来 代 换 , 因为 辖 域 约 定 要 求 X 的 绑 定 左 端的 类 
型 不 能 包含 X。 
证 明 : 通 过 对 T,X<:Q,ArF S<:T 的 推导 归纳 可 知 ,惟一 有 趣 的 情况 是 最 后 两 个 ; 

情况 S-TVAR: S=Y Y<:Te(TX<:QA) 


有 两 种 子 情况 可 以 考虑 。 如 果 Y 关 X, 则 结果 立即 由 S-Tvar 得 出 。 如 果 了 =X, 则 我 们 有 
T=Q 且 [X Fr-P]jS=Q, 所 以 结果 可 由 S-Ref 得 出 。 
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情况 S-ALL 5S = VZ<: 山 .S。  T= VYZ<:U ,Ta 
T, X<:Q, AZ<:UI FS < T2 
通过 归纳 假设 ,F,[X+=-P]AZ<:[IXrpPUFIX 一 PS <:IX cr 一 PT。 通 过 S-ALL， 
有 :T,[Xr-PIAFVZ<IXrpUIXFrPjs < VZ<:[IX-PU.LXr-PjP, 就 是 
说 可 得 出 上 下,[X Fr P]AFLX 王 盖 P]j]( VYZ<:U .S )<:[X Fr 卫 ]( VYZ<:U 了)。 
下 面 是 一 个 类 似 的 类 型 代 换 和 类 型 化 相关 的 引 理 。 
26.4.9“ 引 理 [ 类 型 代 换 保留 类 型 ]: 如 果 T,X<:Q,AF GT 且 PFP<:Q, 那 么 ,IEX =- 
PjAFIXoerPjt:IXerPjT。 
证 明 : 通 过 对 T,X<:Q,AFtT 的 推导 的 归纳 可 知 ,这 里 我 们 只 给 出 有 意义 的 情况 。 
情况 TTAPP: t=tiffz]  T,X<:QAFti:VzZ<:Tl.Ti2 
T=[Z 一 TzjTiz 
通过 归纳 假设 ,T,[Xr-PAFIX 一 Pt:IXrrPVZ<cTiTa) ,也 就 是 说 ,PT,[X r 一 
P]AFEIXF-Plu:VzZ<T.[IXr-P]T。 通 过 下 TApp 可 得 ,T,[IX 一 PAFLXF=-Pjb 
[XpT :LIZrXrPTDXF-PTo) 即 , TIXrFPIAFIXF-P GE):IX 
Fr 了 P](LZ Fr=- 王 Tao)。 
情况 T-SUB， T, X<:Q,AFt1: SrX<:QAFS<:T 
通过 归纳 假设 ,TD,[XI=PIAFIXI=PjLXcPIT。 通 过 代 换 下 的 子 类 型 保持 引 理 [ 参 
见 引 理 (26.4,8)] ,可 得 T,[Xr-P]AFIXr-P]s<:[Xrc=P]T, 该 结果 可 由 工 Sub 得 出 。 
下 面 建立 一 些 简单 的 子 类 型 结构 特性 。 
26.4.10 引 理 [ 子 类 型 关系 从 右 到 左 逆转 ] : 
1. 如 果 了 FF S<:X, 那 么 S 是 一 个 类 型 变量 。 
2. 如 果 TF S<: Ti 一, 那么 S 或 者 是 一 个 类 型 变量 ,或 者 具有 形式 S ~&, 且 满足 
PPFT<:S 有 PRPFS <:T。 
3. 如 果 了 FS<:VX<:U ,那么 S 或 者 是 一 个 类 型 变量 ,或 者 具有 形式 VX <:U, .S, 满 
足 FP,X<:UFS <:T。 
证 明 :; 第 (1) 点 通过 子 类 型 推导 很 容易 归纳 出 。 惟 一 有 趣 的 情况 是 规则 S-Trans, 它 是 使 用 
两 个 归纳 假设 , 先 在 右 端的 前 提 上 ,然后 在 左 端的 前 担 上 。 只 要 将 第 (1) 点 放 在 传递 性 情 
况 下 ,其 他 两 点 的 判断 类 似 。 
26.4.11 练习 [推荐 ,*x] :请 说 明 一 下 以 下 “从 左 到 右 逆 转 ” 的 特性 : 
1. 如 果 了 FF- SS 一 S <:T, 那 么 或 者 T= Top ,或 者 T= 卫 一 满足 FFT <S 及 PRFS <T。 
2. 如 果 下 FFVX<:U.S <:T, 那 么 或 者 T= Top, 或 者 T= VX<:UD 满足 P,X <:UF 
y <:T。 
3. 如 果 了 FF X<:T, 那 么 或 者 T= Top, 或 者 T=X 或 者 RF S <:T 满 足 X<:SeT。 
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4. 如 果 下 F Top <:T, 那 么 T= Top。 


可 以 依次 使 用 引 理 (26.4.10) 来 建立 一 个 类 型 关系 的 直接 结构 特性 ,这 样 可 通过 该 特性 来 
证 明 类 型 保留 的 关键 情况 。 


26.4.12 引 理 : 

1. 如 果 TF AMx:s sy:T 且 DFT<:U 一 U ,那么 下 FU <:S 且 存 在 S 满足 P,x:S FF s ; 
S 且 下 FS <:U,; 

2. 如 果 下 FF AX<:S .9:T 且 PHFT<:YX<:U.U ,那么 U =S 且 存 在 S 满足 中 ,X<:S， 
Fw:9 且 了 X<:S FS <:U。 

证 明 : 对 归纳 情况 (规则 T-Sub) 用 引 理 (26.4.10) 直 接 对 类 型 推导 进行 归纳 。 

有 了 这 些 有 利 的 条 件 ,类 型 保持 的 证 明 是 显而易见 的 。 

26.4.13 ”定理 [保持 ] ;如果 下 F- tT 且 >b ,那么 下 FFb:T。 

证 明 : 通 过 对 下 F t:T 的 推导 的 归纳 假设 ,使 用 上 面 得 出 的 结论 可 直接 得 出 所 有 的 情况 。 
情况 T-VAR, T-ABS, T-TABS: tt=Xx， 熙 = 和 Ax:Ti.t2， Or 七 = AX<:U.t 

其 实 , 上 面 的 情况 都 不 会 发 生 ,因为 我 们 假设 tt , 且 不 存在 关于 变量 ,抽象 或 类 型 抽象 

的 求 值 规则 。 
情况 T-APP- 七 = tl 七 > [Hti':TiI 一 Ti2 T=Ti> THFtz :Til 

根据 求 值 关系 进行 定义 ,会 出 现 三 种 子 情况 : 
子 情 况 1，ti 一 tl  t=ttz 


则 结果 来 自 于 归纳 假设 和 TApp。 
子 情 况 2:， tlisavaue  tz 一 t? 世 =tIt9 
与 上 相同 。 


子 情 况 3 tl = AX:Ull .ul2 tt = [x 一 tjul2 
可 通过 引 理 (26.4.12),T,x:UiHF up:U 对 U 有 PPFTi<:U 及 PHF Un<:T。 经 过 代 换 
的 类 型 保持 [参见 引 理 (26.4.6)],RFIxi=bluo:Un, 由 此 我 们 能 通过 下 Sub 得 到 下 上 


[x 一 tu :Tao 


情况 T-TAPP: t 上 = tl [T2] FFt:VX<:Til.Ti2 
T=[XmTzITiz ThFT<:Til 


对 演算 关系 进行 定义 ,可 得 到 两 种 子 情 况 : 
子 情况 1， tl 一 tl 妃 =tl[Tz] 
则 结果 来 自 于 归纳 假设 和 T-TApp。 
子 情 况 2: ”tl = AX<:Ull uiz  t= 以 一 Tz]ulz 
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可 通过 引 理 (26.4.12),U = Ti 且 下 ,X<:UuF us:U， ,满足 F,X<:UiF Uno<:T。 通 过 代 

换 时 的 类 型 保持 [参见 引 理 (26.4.6)], 有 TFIX Fr juo:[XFr- 开 ju ,由 此 我 们 通过 引 

理 (26.4.8) 和 TSub 可 得 出 PHIX Fr=-]us:[XrF-TT。 

情况 T-SUB: 工 H 寸 :9 THFS9S9<:T 

通过 归纳 假设 有 TH:S, 根 据 工 Sub 结果 得 出 。 

该 了 .. 的 进展 定理 其 实 是 对 带子 类 型 化 的 简单 类 型 的 lambda 演算 的 一 个 直接 扩充 。 通 常 ， 
我 们 都 是 先 记 录 一 个 典型 形式 的 特性 ,该 特性 说 明了 关于 箭头 和 量词 类 型 封闭 值 的 可 能 形式 。 

26.4.14 引 理 [典型 形式 ] : 

1. 如 果 * 是 类 型 下 一 下 的 一 个 封闭 值 ,那么 v“ 有 形式 MAx:S .b。 

2. 如 果 v 是 类 型 VX <:T . 呈 的 封闭 值 ,那么 v 有 形式 MX <:T bs。 

证 明 :两 部 分 都 可 通过 类 型 推导 的 归纳 进行 。 我 们 只 给 第 (2) 部 分 参数 。 通 过 类 型 规则 的 

检查 , 显然 在 推导 中 最 后 一 条 规则 FF v: VX <: 了 T 应 为 工 TAbs 或 工 Sub。 如 果 是 工 TAbs， 

那么 规则 的 前 提 马 上 就 能 得 出 预期 的 结果 。 所 以 设想 最 后 的 规则 是 TSub。 从 该 规则 的 

前 提 来 看 ,我 们 有 HF v:S 及 S<:VX<:T .了 .从 首 转 引 理 (26.4.10) 来 看 ,可 知 S 有 形式 

YX <: 了 Ti 一 和 2。 结果 就 是 由 归纳 假设 得 出 。 

有 了 这 个 引 理 , 对 进展 的 证 明 就 显而易见 了 。 

26.4.15 定理 [进展 ] :如 果 + 是 一 个 封闭 类 型 正确 的 F。. 项 ,那么 或 者 t 为 一 个 值 ,或 者 存 

在 【使 tb。 

证 明 : 对 类 型 推导 进行 归纳 。 变 化 的 情况 不 会 发 生 , 因 为 t+ 是 封闭 的 。 很 快 可 以 得 出 

lambda 抽象 的 两 种 情况 ,因为 项 和 类 型 抽象 都 是 值 。 对 应 用 .类 型 应 用 和 包含 的 情况 都 更 

有 意义 ,但 我 们 这 里 只 讨论 后 两 者 (因为 项 应 用 类 似 于 类 型 应 用 )。 


情况 T-IAPP: 七 =tl [T?] FF tl : YX<:TI1.Ti2 
TI 上 Tz <: Tll T= [X > Tz]Til2 


通过 归纳 假设 ,或 者 h 是 一 个 值 , 或 者 它 能 形成 求 值 的 某 一 步 。 如 果 + 能 求 值 一 步 , 则 规 
则 E-TAppl 适用 于 t。 否 则 ,如果 是 一 个 值 ,那么 典型 形式 引 理 (26.4.14) 的 第 (2) 部 分 
说 明 还 有 形式 MX <:Tui ,tp。 所 有 规则 ETAppTAbs 适用 于 t。 

情况 TSuB: THFt:S ThrSs<:T 
该 结果 可 直接 由 归纳 假设 得 出 。 
26.4.16 ”练习 [xxx 户 ] :将 本 节 的 结论 扩充 到 全 了 .系统 。 





26.5 园 存 在 量词 类 型 


我 们 可 给 存在 类 型 (参见 第 24 章 ) 加 上 一 个 男 , 如 同 我 们 为 全 称 类 型 加 上 边界 一 样 ,这 样 
就 可 得 到 如 图 26.3 所 示 的 团 存 在 量词 。 和 较 全 称 词 一 样 , 子 类 型 化 规则 S-Some 会 带 来 两 种 
情况 ,其 一 是 比较 的 两 个 量词 的 男 必 须 相同 , 另 一 种 是 它们 可 以 不 同 。 
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26.5.1 练习 [x] :什么 是 SSome 的 全 变 式 ? 

26.5.2 ”练习 [*] :在 带 记 录 和 存在 类 型 (但 没 子 类 型 ) 的 纯 系 统 耻 中 ,为 使 : 
fx*Nat，{fa=5,b=7}} as T; 

为 良 类 型 ,该 有 多 少 种 选择 T 的 方式 ?” 如果 加 进 了 子 类 型 和 因 存 在 量词 ,我 们 是 不 是 有 更 

多 的 选择 方式 ? 





2 
新 语法 形式 新 类 型 规则 二 
二 Taxg T (CT-PAcK) 

: {3x 久 和 于 
2 ER 于 和 村 人 Trtil: 8 Tiz} 
SN (S-SOME) TXT (T-UNPACK) 





TFThet {X,xj=tl intz :T2 





26.3 围 存 在 量词 (核心 变量 ) 


在 24.2 节 中 见 过 一 般 的 存在 量词 是 如 何 用 来 实现 抽象 数据 类 型 的 。 当 我 们 给 存在 量词 
加 上 界 时 ,能 得 到 一 个 ADT 层次 的 改进 方式 , Cardeli 和 Wegner(1985) 给 它 取 名 为 部 分 抽象 类 
型 。 该 想法 的 关键 之 处 就 是 围 存在 量词 向 外 面 的 世界 揭示 了 它 表示 的 类 型 结构 ,但 却 隐藏 了 
表示 类 型 的 真正 身份 。 
例如 ,假设 实现 24.2 节 中 的 计数 器 的 一 个 ADT, 但 要 在 类 型 注释 中 增加 界定 Counter <:Nat: 
CoOunterADT = 
{*Nat，{fnew = 1，get = 和 Xi:Nat. 1，inc = Ai:Nat. succ(Ci)}} 


as {3Counter<:Nat， 
{fnew: Counter ，get: Counter 一 Nat，inc: Counter 一 Counter]}jl; 


* CounterADT : {3Counter<:Nat， 
{fnew:Counter ,get:Counter 一 Nat,inc:Counter 一 Counter}} 
我 们 能 和 前 面 一 样 使 用 计数 器 ADT, 将 其 类 型 和 项 成 分 绑 定 为 变量 Counter 和 counter, 然后 用 
counter 的 字段 来 对 计数 器 实现 操作 : 


1]et {fCounter ,counter]} = counterADT in 
counter .get (人 (counter .inc (Counter .inc couriter .new)) ; 


md Na 
而 且 ,选择 可 以 直接 把 Counter 值 当成 数字 ; 


et {fCounter ,counter} = counterADT in 
SucC (Succ (Counter .inc counter .mew)) ; 


* 4 : Nat 


另 一 方面 ,我们 始终 都 不 能 将 数字 当成 是 , Counter: 
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Tet {Counter ,counterj = counterADT in 
Counter .inc 3; 


” Error: parameter type mismatch 
用 这 种 计数 器 抽象 的 形式 是 有 效 的 ,我 们 想 通过 显露 它们 的 表示 形式 使 外 部 世界 使 用 时 更 简 
单 些 ,但 还 是 要 保留 计数 器 创建 的 控制 方式 。 
26.S.3 练习 [*xw]: 假 设 我 们 要 定义 两 种 抽象 数据 类 型 , Counter 和 ResetCounter ,使 (1) 这 
两 种 ADT 都 有 操作 new， get 和 inc;(2)ResetCounter 另外 提供 reset 操作 ,用 来 实现 输入 一 个 
计数 器 返回 一 个 新 计数 器 集 ( 含 某 不 变 值 ,如 1); (3) 两 种 ADT 的 使 用 者 都 能 用 一 个 
ResetCounter 来 代替 一 个 Counter( 即 有 ResetCounter <: Counter) ; (4) 使 用 者 对 计数 器 和 重 置 
计数 器 内 部 是 如 何 表 示 的 一 无 所 知 。 请 问 :如果 是 用 男 存 在 量词 包 ， 这 些 能 实现 吗 ? 


考虑 到 24.2 节 的 存在 量词 ,我 们 可 以 类 似 改 进 对 象 的 编码 方式 。 在 24.2 节 中 ,已 证 实 存 
在 类 型 的 包 用 来 表示 对 象 的 内 部 状态 类 型 ,而 这 些 对 象 是 实例 变量 的 记录 。 如 果 用 固 存 在 量 
词 代替 非 曾 存在 量词 ,对象 的 实例 变量 的 一 部 分 (但 不 是 全 部 ) 名 称 和 类 型 会 向 外 部 显露 。 例 
如 ,这 里 有 个 部 分 内 部 状态 可 见 的 计数 器 对 象 ,对 外 可 见 其 x 字段 ,而 限制 了 它 的 private 字段 
可 见 性 ， 
cC = {*fx:Nat，private:B8oo1}， 
{state = {x=5，private=falsej， 
methods = {fget = ASs:fx:Nat}+. s.Xx， 
inc = As:{fx:Nat,private:Boo1] . 
{x=succ(s.x)，prjvate=s-private})}j}j} 
as {3X<:{x:Nat}j，{state:X，methods: {fget:X~Nat，inc:X-Xtfyj}; 
*C : {ft3X<:ftx:Nat}，{fstate:X,methods:{fget:X-Nat,inc:X 一 X}j} 
与 上 面 的 部 分 抽象 计数 器 ADT 相同 ,这 种 计数 器 对 象 通过 get 可 读 取 内 部 的 值 ,或 者 可 以 直接 
到 内 部 看 到 x 字 段 的 状态 。 
26.5.4 练习 [xx]: 请 说 明 如 何 将 按照 24.3 节 的 全 称 词 写 的 存在 词 的 编码 扩充 为 按照 男 
全 称 词 而 写 的 辕 存 在 词 的 编码 形式 。 请 检查 编码 中 的 子 类 型 规则 S-Some 及 团 全 称 词 的 
子 类 型 规则 。 


26.6 注释 


CLU(CLiskov 等 ,1997 ,1981; Schaffer,1978; Secheifler,1978) 是 最 早 带 安全 类 型 的 力量 词 的 语 
育 。CLU 的 参数 因 概 念 是 基本 的 量化 团 的 量词 形式 (参见 26.2 节 ) ,该 量词 可 用 来 一 般 化 为 多 
种 类 型 参数 。 

这 里 提出 的 团 量 词 的 思想 是 由 Cardelli 和 Wegner(1985) 在 语言 Pan 中 介绍 的 。 他 们 的 “ 核 
心 Fun 与 这 里 的 了 <- 对 应 。 基 于 Cardelli 早期 的 非 正式 的 想法 及 采用 Mitehell(1984b) 研 究 的 技 
术 来 进行 公式 化 后 ,Fun 将 Girard-Reynolds 的 多 态 (Girmard, 1972; Reynolds, 1974) 与 Cardelli 的 子 
类 型 的 一 阶 演算 (1984) 合 为 一 体 。 最 早 的 Fun 经 过 Bruce 和 Longo(1990) 简 化 及 稍微 一 般 化 ， 
后 来 又 由 Curien 和 Ghelli(1992) 加 工 ,产生 了 演算 我 们 称 之 为 全 下 _ 。 关于 较量 词 的 最 复杂 的 
论文 是 Cardeli, Martini, Mitehel 和 Scedrov(1994) 的 共同 研究 成 果 。 
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F。 及 其 相关 理论 已 由 编程 语言 理论 人 员 和 设计 者 进行 了 广泛 研究 。Cardelli 和 Wegner 的 
论文 给 出 了 第 一 个 使 用 畏 量 词 的 编程 实例 ;还 有 更 多 研究 出 现在 Cardelli 对 大 量 同 类 实例 研究 
中 (1988a) 。Curien 和 Ghelli(1992,Ghelli,1990) 前 述 了 许多 下 .的 语法 特性 。 与 系统 十 分 接近 
的 语义 问题 也 由 Bruce 和 Longo (1990) ,Martini (1988) ,Breazu-Tannen ,Coquand ,Gunter 及 Scedrov 
(1991) ,Cardone (1989) ,Cardelli 和 Longo(1991) , Cardelli ,Martini ,Mitehel 和 Scedrov(1994) , Curien 
和 Ghelli (1992, 1991 ) 和 Brmuce 和 Mitehell (1992) 等 研究 过 。 下 .已 经 过 Cardelli 和 Mitchell 
(1991) ,Bruce(Bruce,1991) , Cardelli (1992) 和 Canning, Cook, Hill, Oithoff 和 Mitehell(1989b) 等 扩 
充 , 可 包含 记录 型 及 其 他 更 丰富 的 概念 。 圈 量词 也 在 下 列 语言 中 都 起 着 重要 的 作用 ,这 些 语 言 
是 :Cardelli 的 编程 语言 Quest(1991, Cardelli 和 Longo, 1991) ,在 HP Labs (Canning, Cook, Hill 和 
Olhoff,1989a; Carning, Cook,H 鹿 ,Olthoff 和 Canning,1990) 中 开发 的 Abel 语言 ,以 及 更 近 一 段 时 
间 设 计 的 ,如 GJ(Bracha, Odersky, Stoutamire 和 Wadler, 1998 ) , Pict ( Pierce 和 Tumer, 2000 ) 及 
Funnel( Odersky,2000) 语 言 ,等 等 。 

较量 词 对 代数 类 型 的 Chureh 编码 (参见 26.3 节 ) 的 作用 是 由 Ghelli(1990) 和 Cardelli， 
Marini,Mitchell 和 Scedrov(1994) 提 出 来 的 。 

作为 扩充 带 交 叉 类 型 的 了 (参见 15.7 节 ) 是 由 Pierce(1991b, 1997b) 研 究 的 。Compagnoni 
和 Pierece(1996) 提 出 过 高 级 系统 的 变量 可 用 来 对 多 继承 的 面向 对 象 语 言 进 行 模块 化 ; 而 
Compagnoni (1994) 对 其 元 理论 的 特性 进行 了 分 析 。 
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在 第 18 章 中 ,提出 了 简单 类 型 演算 中 一 系列 有 关 记 录 、 引 用 和 子 类 型 化 的 专业 术语 ,构建 
了 命令 性 面向 对 象 编程 风格 的 核心 。 在 第 18 章 的 最 后 ,我 们 阐述 了 如 何 提高 对 象 运行 时 间 效 
率 , 即 把 构建 对 象 方 法 表 的 工作 从 方法 执行 时 移 到 对 象 创建 时 完成 。 在 本 章 中 ,将 使 用 周 量 词 
来 进一步 提高 这 个 模型 的 效率 。 

18.12 他所 曾 述 的 关键 思想 是 : 当 调用 一 个 类 时 ,就 将 传递 sef 方法 表 的 一 个 引用 传递 给 
这 个 类 。 该 类 则 使 用 这 个 引用 来 定义 自己 的 一 些 方法 ,随后 ,就 可 以 通过 这 个 引用 来 回 查 该 类 
返回 的 完整 方法 。 例 如 ,如 果 SetCounter 和 SetCounterRep 分 别 为 公有 接口 和 内 部 含 get, set 和 
inc 方法 的 计数 器 对 象 的 表示 类 型 ， 


SetCounter = {get:Unit-Nat，set:Nat~-Unit，inc:Unit-Unit}l， 


CounterRep = {x: Ref Natj ; 
那么 我 们 可 以 按照 如 下 方法 实现 一 个 设置 计数 器 类 


SetCounterClass = 
Ar:CounterRep， Ase1f: Source SetCounter . 
{fget = A_IUnit，!Cr.x)， 
set = Ai:Nat，r.Xx:=1， 
inc = A_:Unit， (1!se1f) .set 
(succ 〔((!se1f) .get unit77}; 


” setCounterC1ass : CounterRep -一 (Source SetCounter) - SetCounter 


使 用 Souree SetCounter 代替 Ref SetCounter 作为 self 的 参数 ,这 是 因为 , 当 我 们 在 定义 setCounier 
Class 的 子 类 时 , 子 类 中 的 self 将 是 一 个 不 同 的 类 型 。 例如 , InstrCounter 是 计数 器 对 象 的 接口 ， 
InstrCounterRep 描述 了 该 类 的 内 部 数据 类 型 


InstrCounter = {get:Unit 一 Nat， set:Nat~~Unit， 
inc:Unit~Unit，accesses:Unit--Natj} 


InstrCounterRep = {x: Ref Nat，a: Ref Nat]; 


我 们 可 以 如 下 定义 该 类 : 


instrCounterC1ass = 
Ar:InstrCounterRep， Ase1f: Source InstrCounter ， 
let Super = SetCounterC1ass F Se1f in 
{tget = Super.get， 
set = Ai:Nat，(r.a:=succ(CliCr.a));， Super.set 1T)， 
inc = Super.inc， 
acCesses = 人 _:Unit， 

ICr-aDj; 


@ 本章 中 用 到 的 实例 均 为 含 记录 (参见 图 15.3) 和 引用 的 下 。. 系统 (参见 图 13.1) 中 出 现 的 项 。 相 关联 的 OCaml 实现 是 
fulfsubref。 


上 产 -一 一 一 
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* jnstrCounterCl1ass : InstrCOunterRep 一 
(Source InstrCounter) 一 InstrCounter 


这 里 ,参数 sel 的 类 型 是 Source InstrCounter, 在 构造 super 时 为 了 把 该 self 作为 setCounterClass 的 
sef 参数 传递 ,需要 把 Source InstrCounter 强制 转换 成 Souree SetCounter。 协 变 式 Souree 允许 这 种 
强制 性 变换 ,而 不 变 式 Ref 不 允许 。 

然而 ,就 像 在 18.12 节 最 后 所 看 到 的 那样 ,这 个 类 模型 的 效率 仍然 不 是 最 理想 的 。 因 为 同 ， 
一 个 方法 表 跟 给 定 类 所 实例 化 的 每 一 个 对 象 都 是 密切 相关 的 ,我们 只 需要 在 创建 类 时 只 建立 
一 次 方法 表 , 以 后 创建 对 象 时 重用 它 即 可 。 这 比较 准确 地 反映 了 现实 世界 中 面向 对 象 语言 人 
实现 惯例 ,一 个 对 象 不 携带 任何 方法 而 只 是 一 个 指向 代表 该 类 的 数据 结构 的 指针 , 而 方法 实际 
上 就 保存 在 这 个 代表 该 类 的 数据 结构 中 中。 

换 名 话说 ,以 上 定义 的 类 参数 的 顺序 (第 一 个 是 实例 变量 ,然后 是 self) 颠 倒 了 :在 构造 类 表 
的 时 候 需 要 用 到 self 参数 ,而 只 有 在 方法 真正 被 调用 的 时 候 才 能 用 到 记录 类 型 的 实例 变量 mr 
如 果 把 set 作为 第 一 个 参数 ,就 可 以 在 传递 参数 以 前 计算 出 方法 表 ; 我 们 可 以 部 分 地 一 次 将 
类 应 用 于 它 的 self 参数 ,一 次 完成 该 计算 ,并 将 计算 出 的 方法 表 应 用 于 多 个 实例 变量 记录 ,以 
复制 多 个 方法 表 。 上 具体 地 讲 , 可 以 按 如 下 方式 重 写 SetCounterClass: 


SetCounterC1a5sS = 
ASse1f: Source (CounterRep 一 SetCounter) . 
Ar:CounterRep . 
fget = A_:Unit. 1Cr.x)， 
set = Ai:Nat. rr.XxX:mi， 
inc = A_:Unit. (1sejif r) .set 
(succ(〔(lse1lf r).get unit77]; 


* setCounterC1ass : (Source (CounterRep 一 SetCounter)) ~ 
CounterRep 一 SetCounter 


这 个 版 本 跟前 一 个 版 本 有 三 个 重大 的 区 别 。 第 一 ,新 版 本 把 self 放 到 了 r 的 前 面 。 第 二 ,self 
的 类 型 由 SetCounter 变 成 了 CounterRep-> SetCounter。 这 个 改变 是 由 第 一 条 改动 引起 的 ,因为 
self 的 类 型 必须 与 该 类 返回 的 方法 表 的 类 型 保持 一 致 。 第 三 ,类 中 所 有 (1!self) 都 改 成 (1self r)。 
这 个 改变 是 由 第 二 条 改动 引起 的 。 

新 计数 器 的 实例 化 函数 定义 如 下 


newSetCounter = 
let m = fref (CArICounterRep. error as SetCounter)] in 
let m” = SetCounterC1ass m in 
(m := 由; 
A_:Unit.， et r = fx=ref 1 in mr)7; 


* newSetCounter : Unit 一 SetCountenr 
我 们 注意 到 ,以 上 定义 的 前 三 行 代 码 只 在 newSetCounter 定义 时 进行 了 一 次 求 值 。 在 最 后 一 行 ， 
求 值 以 平凡 抽象 结束 ,可 以 反复 使 用 该 平凡 抽象 来 创建 对 象 。 每 次 ,系统 都 会 为 新 的 记录 类 型 


@ 事实 上 ,现实 世界 中 面向 对 象 语言 更 加 深信。 类 不 再 计算 和 存储 完整 的 方法 表 , 而 只 是 存储 新 添加 的 或 覆盖 超 类 
中 原 有 方法 的 那些 方法 。 所 以 ,在 我 们 看 来 ,方法 表 从 来 就 没有 建立 过 。 在 调用 方法 时 ,我们 从 接受 对 象 的 实际 类 
开始 ,简单 地 浏览 一 下 类 的 分 层 结构 ,直到 找到 期 望 的 方法 定义 为 止 。 这 种 处 于 运行 时 间 的 查找 对 静态 类 型 分 析 
提出 了 一 个 国手 的 问题 ,这 里 我 们 暂时 不 做 处 理 。 
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变量 r 分 配 存 储 空 间 以 及 用 r 初 始 化 方法 列表 m' 来 创建 新 的 对 象 。 
遗憾 的 是 ,通过 上 述 方式 重新 组 织 setCounterClass, 引 入 了 状态 类 型 CounterRep 的 一 个 闭 变 


式 , 这 给 我 们 在 定义 setCounterClass 的 子 类 时 带 来 了 一 定 的 轩 难 。 


instrCounterClass = 
Aself: Source (InstrCounterRep 一 InstrCounter) ， 
]et Super = setCounterC1ass Self in 
Ar:InstrCounterRep . 
{fget = (Super r.get， 
set = Ai:Nat.(r.a:=SuccCICr.a)); (super r) .set 让 ， 


inc = (super r).inc， 
accesses = A_IUnit， 1!(r.a)}; 


” Error: parameter type mismatch 


类 型 不 匹配 产生 于 super 的 定义 ,因为 用 传 给 予 类 的 同一 个 self 来 实例 化 超 类 setCounterClass。 遗 
性 的 是 ,当前 的 self 是 类 型 InstrCounterRep 一 InstrCounter 的 函数 引用 ,不 是 CounterRep 一 SetCounter 


的 子 类 型 ,因为 箭头 的 左 端 是 错误 的 方式 。 
我 们 再 以 另 一 个 角度 来 表示 这 个 困难 ,如 再 重 写 setCounterClass ,这 次 使 用 曾 量 词 ， 


SetCounterC1ass = 
AR< :CounterRep . 
ASse1f: Source(R~SetCounter) . 
Ar: R. 
{get = 和 A_:Unit.， 1!Cr.x)， 
set = Ai:Nat。 r.x:ni， 
inc = A_:Unit.(!se1f r) .set (succCCLse1f r) .get unit77j， 


*” SetCounterClass : VR<:CounterRep . 
(Source (〈(R 一 SetCounter)) 一 R 一 SetCounter 


这 个 改变 使 得 setCounterClass 对 其 传递 的 参数 seltf 的 要 求 不 是 很 苛刻 。 人 性 化 地 讲 ,我们 可 以 
这 样 撒 述 前 一 个 版 本 的 setCounterClass, 它 告诉 环境 “请 给 我 传递 一 个 能 接受 CounterRep 作为 
参数 的 self ,我 将 用 它 来 构造 一 个 同样 需要 CounterRep 参数 的 方法 表 ”。 新 版 本 则 说 ;请 告诉 
我 正在 构造 的 对 象 的 表达 类 型 R,R 必须 包含 一 个 x 字段 ,因为 我 需要 用 到 它 。 然 后 给 我 一 个 
能 接受 R 作为 参数 self 引用 并 能 返回 一 个 方法 表 , 该 表 至 少 应 包含 SetCounter 接口 中 的 方法 。 


我 将 构建 并 返回 同 种 类 型 的 其 他 表 ”。 
在 定义 子 类 instrCounterClass 时 ,我们 能 非常 清晰 地 看 到 这 个 改变 带 来 的 效果 。 


TinstrCounterC1ass = 
AR<:InstrCounterRep . 
Aself: Source(R 一 InstrCounter) . 
Ar: R. 
et super = SetCounterC1ass [R] se]f in 

{tget = (Super r 让 ,get， 
Set = Ai:Nat，(r.a:=succCICr.a)); (super r) .set 1T) ， 
inc = (Super r) ,inc， 
acCesses = 人 _IUnit. !KCr.a)}; 


*” instrCounterC1a5sS : VR<:InstrCounterRep . 
《Source (R 一 InstrCounter)] - 
R 一 InStrCounter 
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在 这 个 定义 中 ,没有 上 一 个 定义 出 现 的 类 型 不 匹配 的 情况 。 原 因 是 在 于 这 里 受 super 界定 的 表 
达 式 中 使 用 了 包含 规则 , 提升 了 sef 类 型 使 之 成 为 超 类 所 接受 的 类 型 。 在 前 面 , 我 们 试图 去 
说 明 : 
Source(InstrCounterRep 一 InstrCounter7) 
<: Source(CounterRep 一 SetCounter)， 
该 式 为 假 。 现 在 要 说 明 的 是 
Source (CR 一 InstrCounter) <: Source(R 一 SetCounter)， 
该 式 为 真 。 
新 类 的 构造 子 与 旧 类 的 构造 子 非常 相似 。 例 如 ,这 里 是 一 个 计数 器 (instmumented counter) 
子 类 的 构造 子 : 
newInstrCounter = 
Jet 由 = ref (Ar:InstrCounterRep，error as InstrCounter] 1n 
let m” = instrCounterC1ass [InstrCounterRep] m in 
Ce 1et r = {fx=ref L1，a=ref 0j in m” r); 


” newInstrCounter : Unit ~ InstrCounter 
惟一 的 区 别 就 在 于 我 们 需要 用 实例 记录 变量 的 实际 类 型 mstrCounterRep 对 instrCounterClass 进 
行 实例 化 。 如 前 面 所 示 ,前 三 行 代码 只 在 生成 newinstrCounter 绑 定 时 执行 了 一 饥 。 
最 后 ,这 里 给 出 一 些 测试 实例 来 证 明 计数 器 正 按 我 们 预计 的 方式 工作 ; 


ic = newInstrCounter unit; 
fc.inc unit; 
ic.get unit; 


”2 : Nat 
ic,accesSes Uniti 


>” 工 ; Nat 
27.1 练习 [推荐 ,*xx] :本 章 中 类 的 新 编码 依赖 于 Source 类 型 构造 子 的 协 变性 。 如 果 语 
言 中 仅 依 靠 轩 量词 和 不 变 Ref 构造 子 能 取得 同样 的 效率 吗 (比如 ,用 同样 的 操作 给 出 类 的 
一 个 良 类 型 的 编码 )? 





第 28 章 团 量 词 的 元 理论 - 


本 章 将 讨论 F- 系 统 的 子 类 型 化 和 类 型 检查 算法 。 我 们 将 研究 F。 系统 的 核心 变 式 和 全 
变 式 ,两 者 表现 有 些 不 同 。 有 些 性 质 两 者 都 有 ,但 是 全 变 式 的 部 分 性 质 更 难 证 明 一 些 ,而 有 的 
性 质 在 全 下 < 系统 中 完全 消失 一 一 这 是 我 们 为 了 < 系统 额外 的 可 表达 性 所 付出 的 代价 。 

首先 在 28.1 节 和 28.2 节 中 给 出 一 个 类 型 检查 算法 ,这 个 算法 在 两 个 系统 中 都 可 以 使 用 。 
然后 考虑 子 类 型 检查 ,在 28.3 节 中 针对 核心 系统 ,在 28.4 节 中 针对 全 系统 。 在 28.5 节 中 ,将 
继续 讨论 全 下 -. 的 子 类 型 化 问题 , 主要 注重 于 对 子 类 型 不 可 判定 性 的 讨论 。28.6 节 将 告诉 读 
者 核心 系统 有 合 类 型 和 交 类 型 运算 ,而 全 系统 则 没有 。28.7 节 简 要 谈 到 了 由 轩 存 在 量词 所 带 
来 的 一 些 问题 ,28.8 节 对 增加 一 个 最 小 类 型 Bot 所 带 来 的 影响 进行 了 分 析 。 


28.1 揭示 


我 们 在 16.2 节 中 ,讨论 过 带子 类 型 化 的 简单 类 型 lambda 演算 的 类 型 检查 算法 ,其 核心 思 
想 是 由 项 的 每 一 个 子 项 的 最 小 类 型 计算 出 该 项 的 最 小 类 型 。 对 于 了。 系统 ,可 以 采取 同样 的 
基本 思想 ,但 是 我 们 需要 考虑 到 系统 中 由 于 类 型 变量 的 存在 而 产生 的 一 个 小 问题 。 看 下 
面 的 项 : 

和 = AX<:Nat 一 Nat. Ay:X. yY 5; 
> 千 : YX<:Nat 一 Nat.X 一 Nat 
这 个 式 子 显然 是 良 类 型 的 ,因为 根据 类 型 规则 TSub, 应 用 y 5 中 的 变量 y 的 类 型 可 提升 为 Nat 
一 Nat。 但 是 y 的 最 小 类 型 是 X, 而 X 不 是 箭头 类 型 。 为 了 找到 整个 应 用 的 最 小 类 型 ,需要 找 
到 y 所 具有 的 最 小 箭头 类 型 , 即 最 小 箭头 类 型 为 类 型 变量 X 的 超 类 型 。 并 不 奇怪 ,我 们 可 以 提 
升 y 的 最 小 类 型 ,直到 它 不 再 是 一 个 类 型 变量 时 就 找到 了 该 超 类 型 。 

形式 上 ,FF STT( 读 做 “在 下 S 揭示 为 T) 表 示 了 T 是 S 的 最 小 不 变 超 类 型 。 通过 不 断 

提升 变量 类 型 产生 揭示 定义 ,参见 图 28.1。 


YE 


所 示 





(XA-OTHER) 








图 28.1 F<: 系 统 的 揭示 算法 
很 容易 看 出 ,这些 规则 定义 了 一 个 全 函数 。 另 外 ,揭示 某 个 类 型 的 结果 通常 是 一 个 最 小 超 


@ 本章 学 的 系统 为 纯 了 <: (参见 图 26.1)。 相 应 的 实现 为 purefsub; follfsub 同时 也 包括 了 存在 量词 (参见 图 双 .1) 及 几 个 
来 自 于 第 11 章 的 扩展 。 
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类 型 , 它 有 一 定 的 形状 ,不 再 是 变量 。 比 如 ,有 T 了 =X <: Top,Y <: Nat->Nat,Z <: 了, 允 <:Z， 
我 们 可 以 得 到 : 
TFTop fTTop THFHYTNat 一 Nat THFWf 人 Nat 一 Nat 
[FFX1fTTop [FFZ1TNat 一 Nat 
揭示 的 一 些 基 本 性 质 可 以 总 结 如 下 。 
28.1.1 引 理 [揭示 ] :假定 下 F S 介 T, 则 : 


了 
2. 如 果 了 FF S<:U 并 且 1 不 是 变量 , 则 下 FT<:U。 


证 明 :第 (1) 部 分 对 推导 了 FF STT 的 推导 进行 归纳 ,第 (2) 部 分 对 推导 下 F S <:U 的 推导 进 
行 归纳 。 


28.2 最 小 化 类 型 


计算 最 小 类 型 的 算法 与 带子 类 型 化 的 简单 类 型 的 lambda 演算 建立 在 同一 个 基线 上 ,只 不 
过 有 一 些 曲折 : 当 对 一 个 应 用 进行 类 型 检查 时 ,我 们 需要 计算 左 端的 最 小 类 型 ,然后 揭示 这 个 
类 型 以 获取 箭头 类 型 ,如 图 28.2 所 示 。 如 果 左 端的 揭示 不 产生 箭头 类 型 ,规则 TA-App 就 不 适 
用 ,而 且 应 用 也 不 是 良 类 型 的 。 类 似 地 ,我 们 通过 揭示 左 端 以 得 到 量化 类 型 对 类 型 应 用 进行 类 
型 检查 。 

一 VY <: Top 扩展 A。 (16.3) 

算法 类 型 化 


XI E 王 
和 







(TA-TABS) 





T, x:Tl Pt : T> 
[TAXx:Ti.tz :TI 一 T2 
Thti:T 沽 =T 辕 (Ti-Tio) 
二 本 加 PTz <: Ti 
TFPtlit2: Ti2 
一 


图 28.2 FF 系统 的 算法 类 型 化 
这 个 算法 根据 原始 类 型 规则 的 可 靠 性 和 完备 性 非常 容易 证 明 。 我 们 给 出 核心 F。. 的 证 明 
过 程 (全 了。 的 证 明 过 程 类 似 , 参 见 练习 28.2.3)。 
28.2.1 定理 [最 小 类 型 化 ] : 


1 如 果 IE t: 了 T, 则 耻 司 ts:T。 
2. 如 果 PFt:T, 则 RPRr=-t:M 且 下 FMC<:T。 


证 明 : 第 (1) 部 分 直接 对 算法 推导 进行 归纳 ,根据 引 理 (28.1.1) 第 (1) 部 分 的 应 用 情况 ， 


第 (2) 部 分 对 下 Ft:T 的 一 个 推导 做 归纳 ,对 推导 中 用 到 的 最 后 一 条 规则 进行 情况 分 析 。 
最 有 意思 的 情况 是 TApp 和 TTApp。 


(TA-TAPP) 
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情况 T-VAR: tt=Xx  Xx:TET 
由 TA-Var, Fr x:T 。 由 S-Reft,PFT<:T。 
情况 T-Ags: t= Ax:Titz 了 Tx:TiHtz:Tz T=T-T? 
根据 归纳 假设 ,对 某 些 M, 满足 FT,x:T FM, <: 荆 , 即 TH M <: 了 有 T,x:T F-b:MW ，, 因 


为 子 类 型 化 是 不 依赖 于 上 下 文中 项 变量 绑 定 的 [参见 引 理 (26.4.4)]。 由 TA-Abs, 有 T 一 
t: 了 一 M 。 由 S-Refl 和 S-Arow, 工 F 卫 一 M <: 工 一下。 


情况 TAPP: t=titz ThrtilTi-Tz T=Taz Thrtz:Til 
由 归纳 假设 ,我 们 有 T FF=h :MI 以 及 T Fr=b:M ,其 中 【FF M <:T 一 TaFM <:Ti。 设 
N 为 M 的 最 小 不 变 超 类 型 , 即 下 F- M 1 人 RN 。 由 引 理 (28.1.1) 第 (2) 部 分 可 知 ,FF N <: 


Ti 一 Tu。 我 们 知道 N 不 是 一 个 变量 ,由 子 类 型 关系 的 道 转 引 理 (26.4.10) 有 N = Ni 一 
Ni: ,其 中 工 广 Tu<:Ni 和 工 上 No<:T2。 由 传递 性 , 工 广 M <:Nii。 所 以 ,规则 TA-App 得 出 


工 广 一 二 已:N， ,满足 所 有 要 求 。 


情况 T-TABS: 七 =AX<:Ti.t2 T, X<:T1 F t? : T> T= YX<:Ti .T> 
由 归纳 假设 ,对 某 些 M: 满足 T,X <: 广 M <: 王 ,有 T,X<:T FF=b: MD。 由 TA-TAbs, 
rt yVX<:T.MP。 由 SAlTF VX<:T.M <:VX<:T .T。 

情况 IT-TAPP: 上 =tl [T2] THFtl :YXxX<:Til -TI)2 

T=[Xc=Tz]Tiz TFTz <: Ti11 

由 归纳 假设 ,有 T Fa:M 并 且 TFM < YX<TiTs 设 N 为 M 的 最 小 不 变 超 类 型 ， 
即 了 下 FM fN 。 由 引 理 (28.1.1) 知 工 - N <:YX<:Ti.T。 我 们 知道 W 不 是 一 个 变量 ,由 
引 理 (26.4.10) 子 类 型 关系 的 逆转 引 理 可 知 ,N = VX <:Ti .No ,其 中 FT,X<TiF Nu<:T，。 
规则 TA-TApp 给 出 工 一 6fP]:LIX 一 呈 ]Na ,根据 代 换 子 类 型 化 保持 引 理 (26.4.8) 可 知 
工 FIX rr]No<:IX FT =To 

情况 TSuBg: ThFt:S THFS<:T 
由 归纳 假设 ,下 Fr~ t:M 其 中 FF M <:S。 由 传递 性 下 FM <:T。 
28.2.2 ”推论 [类 型 化 的 可 判定 性 ] :给 出 子 类 型 关系 的 一 个 判定 过 程 , 核 心 耻 。 系统 的 类 
型 化 关系 就 是 可 判定 的 。 
证 明 : 对 任意 工 和 ,可 以 通过 使 用 算法 类 型 规则 对 工 一 t:T 进行 证 明 , 来 检查 是 否 存 在 
某 个 T 使 得 工 FtT。 如 果 存 在 某 个 T, 那 么 由 定理 (28.2.1) 的 第 (1) 部 分 ,了 T 在 原始 类 型 
关系 中 也 是 t 的 类 型 。 如 果 不 存在 ,由 定理 (28.2.1) 的 第 (2) 部 分 ,t 在 原始 类 型 关系 中 是 
无 类 型 的 。 最 后 ,注意 到 算法 类 型 化 规则 对 应 于 终止 算法 ,因为 它们 是 语法 制导 的 (至 多 
规则 一 次 应 用 于 一 个 项 ) , 当 自 底 向 上 检查 某 项 + 时 总 能 减少 {t 的 长 度 。 


28.2.3 ”练习 [xx]: 对 全 下 -系统 而 言 , 上面 的 证 明 中 哪些 地 方 需要 做 修改 ? 
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28.3 核心 F- 系 统 的 子 类 型 化 


在 16.1 节 中 ,我 们 注意 到 ,带子 类 型 的 简单 类 型 lambda 演算 中 ,声明 性 的 子 类 型 关系 不 是 
语法 制导 的 , 即 它 不 能 直接 称 为 子 类 型 化 算法 ,有 两 点 原因 :(1)S-Refl 和 S-Trans 的 结论 与 其 他 
规则 重 玲 (所 以 , 自 下 而 上 地 读 这 些 规则 ,我 们 不 知道 应 用 哪 一 个 ); (2)S-Trans 在 前 提 中 出 现 
了 一 个 元 变量 ,而 在 结论 中 没有 出 现 ( 这 样 初次 使 用 的 算法 多 少 只 能 赁 "猜测 ")。 解 决 这 些 问 
题 非常 简单 ,只 要 删除 系统 中 这 两 条 引起 冲突 的 规则 即 可 。 进 行 删除 以 前 ,必须 对 这 个 系统 进 
行 修补 ,把 这 三 条 独立 的 子 类 型 化 规则 合并 成 一 条 。 

在 这 个 方面 ,核心 F- 系 统 的 情况 也 基本 -- 样 。 发 生 冲 突 的 规则 也 是 S-Ref 和 S-Trans, 可 
以 删除 这 两 条 规则 ,并 将 剩 下 的 规则 做 适当 的 修改 ,即将 删除 规则 中 基本 有 用 的 保留 下 来 ,这 
样 可 以 得 到 一 个 新 算法 。 

带子 类 型 的 简单 类 型 ambda 演算 中 , 自 反 规 则 并 没有 什么 实质 性 的 用 处 ,所 以 我 们 可 以 
删 掉 它 , 而 不 需要 改变 那些 可 推导 的 子 类 型 化 声明 [ 引 理 (16.1.2) ,第 (1) 部 分 ]。 在 了 .中 , 恰 
恰 相反 , 形 如 TF- X <:X 的 子 类 型 化 表达 式 却 只 能 由 自 反 性 来 证 明 。 所 以 , 当 我 们 去 掉 自 反 规 
则 时 ,必须 增加 一 条 受 限 制 的 自 反 公理 ,THF- X <:X, 这 条 公理 仅 应 用 于 变量 。 

IT FF X<: X 

类 似 地 ,为 了 消去 S-Trans, 首先 必须 知道 这 条 规则 的 哪些 使 用 是 最 基本 的 。S-Trans 与 
S-TVar 有 一 个 有 趣 的 联系 , 因为 S-TVar 允许 类 型 变量 的 假设 用 于 子 类 型 语句 的 推导 中 。 例 
如 , 工 = 鸡 <:Top,X<:W,Y<:X,Z<:Y, 如 果 删 掉 S-Trans ,就 得 不 到 了 FF- Z <: 双 。 看 下 面 这 个 利 
用 规则 S-Trans 的 实例 : 

Z<IYEGET : 

(S-TVAR) 一 一 一 一 
THFZ<:Y IFY<:W 
THFZ<:WW 

在 这 个 S-Trans 实例 中 , 左 端的 子 推导 是 公理 S-Tvar 的 实例 。 通 常 在 这 种 情况 下 ,S-Trans 不 能 
被 消去 。 

幸运 的 是 ,进行 这 种 类 型 的 推导 是 传递 性 的 惟一 基本 用 法 。 我 们 引入 一 个 新 的 子 类 型 
规则 ; 





(S-TRANS) 


X<:U ET THFU<:T 
也 能 实现 传递 相同 的 功能 。 我 们 发 现 ,由 这 条 规则 代替 传递 性 和 变量 规则 不 会 改变 可 推导 子 
类 型 化 的 语句 。 
这 些 改变 使 我 们 提出 了 核心 了 .系统 的 算法 子 类 型 关系 ,如 图 28.3 所 示 。 在 算法 类 型 化 
语句 的 十 字 转 门 符 导 上 增加 一 个 箭头 以 区 别 以 往 涉 及 这 两 者 的 类 型 语句 。 
事实 上 ,新 的 规则 SA-Refl-TVar 和 规则 SA-Trans-TVar 足以 取代 老 的 自 反 性 和 传递 性 规则 ， 
关于 这 一 点 以 下 引 理 可 以 说 明 : 
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28.3.1 。“ 引 理 [算法 子 类 型 关系 的 自 反 性 ] :对 每 一 个 和 T, 都 有 TF FT<:T 成 立 。 
证 明 : 对 T 做 归纳 。 

28.3.2 ” 引 理 [算法 子 类 型 关系 的 传递 性 ]: 如 果 T ~ S<:Q 且 To<:T 则 工 广 
SS 二 

证 明 : 对 两 个 推导 的 总 长 度 进行 归纳 。 我 们 对 给 定 的 这 两 个 推导 中 的 最 后 规则 进行 情况 
分 析 。 





~ 也 <: Top 扩展 A (16.2) 
站 PTl <: S he S$ <: 下 
算法 子 类 型 化 [Ps<T] 六 = TI <: S! 入 Re 
攻 s<: Top (SA-ToPp) 小 = 5S1 一 5 <: Ti 一 T 
TiXaX (SA-REFLTVAR) 于 xs 了 








(SATRANS-TVAR) | 


图 28.3 核心 F< 系 统 算法 的 子 类 型 化 


如 果 右 端 推导 P r- Q <:T 是 SA-Top 的 实例 , 则 无 须 证 明 ,结论 成 立 ,因为 根据 SA-Top 
有 TF S <:Top。 如 果 左 端 推导 T -~- S <:0 是 SA-Top 的 实例 , 则 Q = Top, 且 由 类 型 系统 规 
则 知道 , 右 端 推导 了 ~ S <:T 也 必须 是 SA-Top 的 实例 。 

如 果 两 边 推导 都 是 SA-ReflL-TVar 类 型 的 实例 , 则 也 无 须 证 明 ， 因为 另 一 个 推导 就 是 
结论 。 

如 果 左 端 推导 是 SA-Tlans-TVar 类 型 ,有 S=Y 且 站 <:Uc T, 则 可 得 出 子 推导 了 r-U <:Q， 
再 由 归纳 假设 ,T -~ U <:T, 根 据 SA-Trans-TVar, 得 到 下 ~- Y <: 本 

如 果 左 端 推 导 结 束 时 为 SA-Arow 的 实例 ,我 们 有 S=S， 一 32 和 Q=Q 一 Q , 子 推导 
为 一 Q <:S 和 T 斑 S <:@。 上 面 我 们 已 经 讨论 过 右 端 推导 是 SA-Top 的 情况 , 剩 下 惟 
一 的 可 能 性 就 是 该 推导 也 是 以 SA-Arow 结束 的 。 因 此 ,有 工 = 贡 二 以 及 PTT<OQ 及 
[一 @ <:T ,两 次 使 用 归纳 假设 ,得 到 mr-T <:S 和 Pr-S <: 卫 ,再 由 SA-Arrow, 得 到 
F Fr SS 一 S <: 了 -> 了。 

还 有 一 种 情况 , 左 端 推 导 以 SA-Al 实例 结束 ,证 明 过 程 与 上 面 类 似 。 有 SEE 
U.S 及 Q= VX<:U.Q, 其 中 子 推导 T,X<:U ms <:Q。 同样 ,我 们 已 经 认为 右 端 
推导 为 TSA-Top 的 情况 ,所 以 必须 以 SA-All 结束 。 所 以 = VX<:Ui. ,其 中 子 推导 工 ， 
X<:U 一 @ <:T。 应 用 归纳 假设 得 到 T,X <: U Fr- S <: 卫 。 应 用 规则 SA-All 得 到 
T F=VX< US <:8VR:U, .也 ,由 此 得 证 8 


28.3.3 ”定理 :[ 算 法 子 类 型 化 的 可 靠 性 和 完备 性 ]: FF S <:T 当 是 仅 当下 s <: 上 


证 明 :在 两 个 方向 上 进行 归纳 。 可 靠 性 ( 生 ) 常 规 可 证 。 完备 性 (之 ) 的 证 明 依赖 于 引 
理 (28.3.1) 和 引 理 (28.3.2)。 


最 后 ,我 们 需要 检查 子 类 型 规则 定义 的 算法 是 否 完全 ， 也 就 是 说 该 算法 是 否 对 所 有 的 输入 


288 类 型 和 程序 设计 语言 
| 
都 能 终止 。 可 以 这 样 来 检查 ,为 每 一 个 子 类 型 语句 赋 一 个 权 值 ,然后 检查 一 下 有 结论 的 那些 算 
法 规则 的 权 值 是 不 是 严格 比 它们 的 前 提 的 权 值 大 。 
28.3.4 ”定义 :在 上 下 文 工 中 ,类 型 了 的 权 写 做 weigxr(T) ,定义 如 下 ， 


weightn (U) + 1 如 果 I =T,X<:uU,Tz 
1 

Weightr(T1) + weigjhtr(Tz)+1 
Weighntr， X<:Tl (T2) 十 1 


WeigPtr(X) 
weighjhtr(Top) 
weighntr(T1 一 T2) 
weightr(YX<:Tl .T2) 


子 类 型 语句 下 HF S <:T 的 权 是 了 中 S 和 T 的 权 的 最 大 值 。 

28.3.5 ”定理 : 子 类 型 算法 对 所 有 的 输入 都 能 终止 。 

证 明 : 任 意 算法 子 类 型 规则 实例 中 结论 的 权 值 严格 比 任何 前 提 的 权 值 大 。 
28.3.6 ”推论 :核心 F。 中 子 类 型 化 是 可 判定 的 。 


28.4 全 F- 系 统 中 的 子 类 型 化 


全 了 <. 系统 的 子 类 型 检查 规则 与 核心 F< 系统 的 规则 基本 一 致 ,如 图 28.4 所 示 。 惟一 的 区 
别 在 于 其 用 更 加 灵活 的 变 式 取 代 了 SA-Al。 对 于 核心 F。 系统 而 言 ,原始 子 类 型 关系 之 上 的 算 
法 关系 可 靠 性 和 完备 性 与 这 些 算法 关系 具有 自 反 性 和 传递 性 直接 对 应 。 

-~ V <: Top 注 省 扩展 28.3 


人 TI aa 
人 
算法 子 类 型 化 本 生生 站 于 的 NE 全 本 


[Th s<: Top (SA-TOP) T Ph Si 一 S <: TI 一 T2z 
Th X <: X (SA-REFLTVAR) | 淹 册 8 ”IT x< 尖 ps <:T 


X<UET TREET Th YX<: 轩 .s < vx<: 配 .mm 
一 (SA-TRANS-TVAR) 
IT-mX<sT 


上 -| 


图 28.4,， 全 下 .系统 的 算法 的 子 类 型 化 


对 于 自 反 性 ,结论 与 上 面 完全 相同 。 而 传递 性 的 证 明 有 一些 麻烦 。 我 们 回忆 一 下 上 节 中 
的 核心 F。 系 统 的 传递 性 [ 引 理 (28.3.2)] 的 证 明 过 程 。 其 证 明 思 想 是 给 出 以 语句 下 HF S <:Q 和 
IF Q<:T 结 束 的 两 个 子 类 型 推导 ,以 及 重新 安排 及 设置 它们 的 子 推导 构造 出 FF S <: T, 而 不 
使 用 传递 性 规则 ,并 假设 (作为 一 个 归纳 假设 ) 对 更 小 的 推导 做 法 也 是 相同 的 。 如 下 例 所 示 , 假 
定 我 们 有 两 个 推导 ,都 以 新 的 SA-All 规则 结束 ; 





(SA-ALDU) 





[FaQ < T, X<:Q1 FF S> <: Q> 工 F Tl <: Ql1 IT, X<:T1 FF Q2> <: T2 
IF VX<:S1.S2 <: VX<:Ql.Q2 THF VX<:Ql.Qz <: YX<:Til .T， 


为 了 跟 以 前 的 证 明 风格 保持 一 致 ,我 们 将 结合 左右 端的 子 推导 ,使 用 归纳 假设 ,并 最 后 使 用 
SA-AL 规则 来 推导 出 结论 PTFVX <:S .S <: YX <:T . 卫 。 左 端的 子 推导 没有 问题 ,归纳 假设 
告诉 我 们 无 传递 性 推导 下 FT <:Si。 但 是 归纳 假设 对 右边 的 子 推导 不 适用 ,因为 子 推导 所 处 
的 上 下 文 是 不 同 的 ,X 的 上 界 在 其 中 一 个 为 Qi ,而 在 另 一 个 为 了 








第 28 章 ， 园 量词 的 元 理论 289 


幸运 的 是 ,我 们 知道 如 何 使 上 下 文保 持 一 致 。 第 26 章 中 引 理 (26.4.5) 狭 窑 化 性 质 告诉 我 
们 ,如 果 用 界定 的 一 个 子 类 型 来 代替 上 下 文中 的 界定 , 子 类 型 声明 将 保持 有 效 。 似 乎 我 们 可 以 
把 PP,X<:Q FF S <:Q@Q 缩小 成 P,X<:T FF S <:Q: ,这 样 就 可 以 使 用 归纳 假设 了 。 

但 是 ,我 们 需要 小 心 一 点 。 引 理 (26.4.5) 表 明 ,可 以 采取 任意 一 个 推导 用 狭 这 化 结论 构造 
一 个 推 时 ,但 是 不 能 保证 新 的 推导 与 旧 的 长 度 保持 一 致 。 事 实 上 ,如果 我 们 检查 该 引 理 的 证 
明 ,会 发 现 狭窄 化 通常 产生 一 个 更 大 的 推导 ,因为 每 次 使 用 S-Tvar 来 查找 狭 窗 化 的 变量 时 , 它 
都 会 在 此 处 连接 一 个 任意 长 庆 的 推导 。 此 外 ,该 连接 操作 还 将 创造 新 的 传递 性 规则 实例 ,这 条 
规则 在 当前 的 系统 中 是 允许 的 。 

使 用 基于 传递 性 质 中 间 类 型 Q 的 长 度 和 狭窄 化 性 质 中 原始 边界 Q 的 长 度 进行 归纳 假设 ， 
把 传递 性 和 狭窄 化 合 起 来 证 明 ,上 述 问题 可 以 得 到 解决 。 

在 开始 证 明之 前 ,我 们 先 来 看 一 个 引 理 ,在 上 下 文中 置换 顺序 或 增加 新 的 类 型 变量 绑 定 不 
会 影响 可 推导 的 子 类 型 声明 的 有 效 性 。 


28.4.1 引 理 [置换 和 弱化 ]: 


1. 假设 A 是 工 良 形式 的 置换 [( 参 见 (26.4.1) ] ,如 果 了 = S <:T, 那 么 A Fr S<:T。 
2. 如 果 了 FS<:T, 并 且 dom(A) 门 domr(T) = 台 , 则 FA FS<:T。 


证 明 : 常 规 归 纳 。 在 第 (2) 部 分 的 情况 SA-All 中 用 到 第 (1) 部 分 。 
28.4.2 ” 引 理 [全 下 :系统 的 传递 性 和 狭窄 化 ] ， 


1. 如 果 了 T rS<:Q 且 了 Tr-Oo<:T, 则 Pr-S<:T。 
2. 如 果 T,X<:Q,A mrM<:N 并 且 TrP<:0, 则 T,X<:P,Arm-Mc<:N。 


证 明 : 通 过 对 Q 的 长 度 进行 归纳 ,对 两 部 分 同时 进行 证 明 。 在 每 一 层 归 纳 , 第 (2) 部 分 假 

定 第 (1) 部 分 讨论 的 Q 已 经 确定 。 只 对 严格 小 一 点 的 Q, 第 一 部 分 才 会 用 到 第 (2) 部 分 。 

1. 我 们 对 给 定 的 第 一 个 条 件 做 内 部 归纳 ,并 对 两 个 推导 的 最 后 应 用 规则 做 情况 分 析 。 除 
情况 SA-Al 外 ,其 他 所 有 的 情况 的 证 明 都 与 引 理 (28.3.2) 的 证 明 一 致 。 
如 果 右 端的 推导 是 SA-Top 实例 ,那么 无 须 证 明 , 因 为 FF S$ <:Top。 如 果 左 端的 推导 是 
SA-Top 实例 , 则 Q = Top, 通 过 观察 算法 规则 可 知 右 端的 推导 也 必须 是 SA-Top 实例 。 如 
果 两 端 推 导 都 是 SA-Refl-TVar 实例 , 则 同样 也 无 须 证 明 , 因 为 另外 一 个 推导 就 是 所 期 户 
得 到 的 结论 。 
如 果 左 端的 推导 以 SA-Trans-TVar 实例 结束 ,我 们 有 S=Y 且 Y<:UcTr,PF U<:Q, 由 内 
部 归纳 假设 F -~ U <:T, 再 根据 SA-Trans-TVar 得 到 下 Fr=~ Y <:T, 证 毕 。 
如 果 左 端 推导 是 以 SA-Arow 或 SA-AH 实例 结束 ,而 我 们 已 经 讨论 过 右上 端 推导 是 SA-Top 
实例 的 情况 ,所 以 右 端 也 应 该 是 SA-Anmow 或 SA-All 实例 。 如 果 是 SA-Arow 情况 ,有 
S=S 一 S,Q=Q 一 QT=T 一 并 且 有 FrQ<SsnrScQ rrTc:o， 
DT 一 @ <: 开 。 两 次 对 第 (1) 部 分 应 用 外 部 归纳 假设 (注意 Q 和 Q, 都 比 Q 要 小 ) 得 到 
DT 王 了 <:S Pr=S <:T ,然后 运用 SA-Amow 得 到 下 FF- S 一 S <: 卫 -> 开 。 
如 果 两 个 推导 最 后 都 以 SA-Al 结束 ,有 S= VX<:S .9,Q=VYX<:Q.Q,T= YX<: 
下 . 开 , 其 中 子 推导 为 ， 
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FTF PaQl <: S1 IT X<:Ql h S2 <: Q2 

[PTi<: Qi T, X<:Ti h Qz <: T> 
由 外 部 归纳 假设 的 第 (1) 部 分 (Q 比 Q 要 小 ), 结 合 上 述 两 个 子 推导 ,可 合并 得 出 了 一 
T <:S。 对 于 体 ,我 们 需要 做 更 多 工作 ,因为 两 个 上 下 文 不 太一 致 。 首 先 使 用 外 部 归 
纳 假 设 的 第 (2) 部 分 (同样 需要 注意 Q 比 Q 要 小 ) 将 T,X<:Q 一 S <:Q 中 的 X 边 界 
狭 牵 化 ,得 到 T,X<:T rS <:Q:。 现 在 应 用 外 部 归纳 假设 的 第 (1) 部 分 (Q 比 Q 小 )， 
产生 T,X<:T r-S <:T。 最 后 根据 SA-Al ,得 到 Fr-VX<:S .S <:VX<:T . 工 。 


2. 我 们 同样 对 第 一 个 给 定 推导 的 长 度 做 一 下 内 部 归纳 假设 ,对 这 个 推导 最 后 用 到 的 规则 
进行 一 下 情况 分 析 。 大 多 数 情 况 是 直接 使 用 内 部 归纳 假设 。 最 有 意思 的 情况 是 SA- 
Trans-TVar, 令 M=X, 有 了 T,X<:Q,A Fr Q <:N。 进 一 步 由 内 部 归纳 假设 得 到 耻 ,X <:P， 
ArFr-Q<:N。 同 样 ,对 第 二 个 给 定 条 件 应 用 弱化 规则 [ 引 理 (28.4.1) ,第 (2) 部 分 ], 得 到 
FT,X<:P,A 一 P<:Q。 再 由 第 (1) 部 分 的 外 部 归纳 假设 (对 同一 个 Q), 有 T,X <:P， 
A r~P<:N。 最 后 ,根据 SA-Trans-TVar, 得 到 了,X <:P,A Fr~X<:N, 得 证 。 

28.4.3 ”练习 [xxx 记 >] :这 里 还 有 一 个 有 关 量 词 变 式 的 合理 的 子 类 型 化 规则 , 比 核心 下 。 

规则 更 灵活 ,但 比 全 上 .. 规 则 灵活 性 要 差 一 点 。 

TSi<:TI TFT<: SI TX<:TirS<:T 
TIFVx<:Sl.Sz < YX<:Ti.T 

这 条 规则 近似 于 核心 F- 变 式 , 它 不 要 求 两 个 轩 量 词语 义 上 相同 ,只 要 求 两 者 等 价 一 一 

个 是 另 一 个 的 子 类 型 。 核 心 规则 跟 这 个 规则 的 差别 只 在 我 们 用 一 些 子 类 型 化 规则 产生 非 

平凡 等 价 类 的 结构 ,如 记录 来 扩充 语言 时 才 表 现 出 来 ,例如 ,在 含 记 录 的 纯 核 心 了 。. 系统 

中 ,类 型 VX <: |a:Top,b:Top|.X 不 是 YX <:1b:Top,a:Top}.X 的 子 类 型 。 但 由 上 面 这 条 

规则 , 却 成 了 子 类 型 。 基 于 这 条 规则 , 子 类 型 化 是 可 判定 的 吗 ? 


28.5 全 F- 系 统 的 不 可 判定 性 


我 们 在 上 节 中 说 明了 全 了 -系统 的 算法 子 类 型 规则 是 可 靠 的 和 完备 的 ,也 就 是 说 ,这 些 规 
则 下 的 最 小 闭关 系 与 原始 声明 性 规则 下 的 最 小 闭关 系 包 含有 同样 的 语句 。 这 就 留 给 我 们 一 个 
问题 ,是 不 是 实现 这 些 规则 的 算法 对 所 有 的 输入 都 能 终止 ? 遗 幅 的 是 ,许多 人 发 现 (非常 奇 
怪 ) ,回答 是 否定 的 。 

28.5.1 ”练习 [*] :如 果 全 下 < 系统 算法 规则 定义 的 算法 不 能 总 是 终止 ,那么 很 显然 核心 

F- 系 统 的 算法 可 终止 性 的 证 明 就 不 能 延续 到 全 了 .系统 规则 中 去 。 那 么 算法 在 那里 将 不 

再 适用 。 

这 里 有 个 使 得 子 类 型 化 算法 发 散 的 例子 ,由 Ghelli(1995) 提 出 。 首 先 定义 一 下 缩写 词 ， 


-SS 性 VX<:S.X. 


一 操作 符 的 关键 性 质 是 其 允许 左右 两 边 的 子 类 型 语句 进行 交换 。 


(S-All) 
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28.$.2 事实 :PHF 一 S <: 一 T 当 且 仅 当 THFT<:S。 
证 明 : 留 做 练习 [x* 产 ] 。 
现在 ,我 们 定义 类 型 T: 

T = VXx<:Top, -(VY<:X,-Y). 


如 果 运 用 算法 子 类 型 规则 自 底 向 上 来 构造 语句 的 子 类 型 化 推导 
Xo<:T PP X < VXi<:Xo.-Xi 


那么 将 会 在 越 来 越 大 的 子 目标 中 进行 无 限 次 回归 : 


Xo<:T hh  Xo <:  VXI<:Xo .一 X1 
Xo< :下 hh  VXi<:Top. 一 (YX2<:X1.-X2) <:  VXI<:Xo. 一 Xi 
Xo<:T, Xi<;Xo FF 一 (YXz<:Xi ,一 X2z) <: 一 X1 

Xo<:T, XI<:Xo F Xi <: YX2<:Xl .一 X2 
Xo< :XI<:Xo FF Xo <:  VX2<:X1l .一 X2 


etcC. 
当 增 加 新 变量 时 进行 重 命名 应 保持 上 下 文良 形式 ,应 选择 新 的 变量 名 称 以 区 别 回 妇 形 式 。 关 
键 在 于 重 定 界 ,比如 第 二 行 和 第 三 行 , 左 端 Xi 的 边界 由 第 二 行 的 Rp 变 成 第 三 行 的 办 。 因 为 第 
二 行 整个 左 端 就 是 Xo 的 上 界 , 这 个 重 定 界 产生 了 循环 的 模式 ,使 得 上 下 文中 越 来 越 长 的 变量 链 
接 在 循环 中 来 回 移 动 (读者 没 必 要 对 这 个 例子 的 语义 进行 推敲 一 T 在 语法 意义 上 为 否定 )。 

更 糟糕 的 是 ,不仅 这 个 算法 不 能 对 某 些 输入 终止 ,而 且 对 原始 全 下 .系统 来 讲 , 没 有 一 个 
算法 是 可 靠 且 完备 的 , 且 对 所 有 的 输入 能 终止 (Pieree, 1994)。 这 个 事实 的 证 明 对 于 本 书 而 言 
过 大 ,我 们 来 看 一 个 例子 加 深 一 下 理解 。 

28.5.3 ”定义 :类 型 T 中 正和 负 定 义 如 下 :在 T 了 中 ,T 本 身 为 正 。 如 果 下 一 开 是 正 的 ( 负 

的 ) ,那么 工 是 负 的 ( 正 的 ), 呈 是 正 的 ( 负 的 )。 如 果 VX <:T .了 是 正 的 ( 负 的 ), 则 Ti 是 

负 的 ( 正 的 ) ,了 是 正 的 ( 负 的 )。 子 类 型 声明 PRF S<:T 中 的 正和 负 定 义 如 下 :类 型 S 和 上 

下 文 卫 中 类 型 变量 的 边界 是 负 的 ,类 型 了 是 正 的 。 

“ 正 *“ 和 "“ 负 ”出 自 逻 辑 学 。 根 据 著名 的 命题 与 类 型 Cuny-Howard 对 应 理论 (人 参见 9.4 节 )， 
类 型 S>T 对 应 于 S$T, 而 由 逻辑 蕴涵 的 定义 ,与 一 SvT 等 价 。 子 命题 $ 显 然 是 否定 的 ,也 就 
是 说 S$ 包含 奇数 个 否定 , 当 且 仅 当 整个 蕴涵 包含 偶数 个 否定 。 注 意 :出 现 T 的 正 对 应 于 一 T 
的 负 。 

28.5.4 ”事实 :如 果 X 在 S 中 是 正 的 ,在 T 中 是 负 的 , 则 X<:U F S <:T, 当 上 且 仅 当 F {X r~ 

U]s <:[X Fr=U]T。 

证 明 : 留 做 练习 [xx 记 ] 


现在 
T = Vxo<:Top.VXi<:Top.VXz<:Top. 
mVYo<:Xo.VYI<:Xi .YY2<:X2 .一 Xo) 


我 们 来 看 下 面 这 个 子 类 型 语句 : 
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FF T <: Vxo<:T.VXi<:P.YVXz<:Q. 
”(VYo<:Top.VY1I<:Top.VY2<:Top， 
”mm(VZo<:Yo.VZ1<:Yz.VZz<:Y1. U)). 
可 以 把 上 述 语句 比 做 对 计算 机 状态 的 描述 。 变 量 X 和 X 是 寄存 器 ,它们 目前 存放 的 内 容 是 
类 型 P 和 Q。 机 器 的 指令 流 是 第 三 行 :第 一 条 指令 在 Zr 和 又 的 范围 内 ( 和 立 ,注意 顺序 ) 进 
行 编码 ,未 说 明 的 类 型 U 代表 程序 中 其 余 的 指令 。 类 型 T, 舱 套 的 否定 ,以 及 交 变 量 Xo 和 YY 
具有 同样 的 功能 :作为 上 述 简单 例子 的 副本 ,它们 人 允许 我 们 转动 曲柄 , 回 到 相同 形状 的 子 目 标 ， 
作为 我 们 的 初始 目标 。 曲 柄 的 一 次 转动 代表 机 器 的 一 次 轮转 。 
在 这 个 例子 中 ,在 指令 流 中 处 于 前 端的 指令 编码 成 这 个 命令 :转变 寄存 器 1 和 2 中 的 内 
容 。 用 上 面 陈述 的 两 条 事实 做 如 下 计算 (为 便于 分 析 值 P 和 Q 都 用 阴影 显示 ) ， 
FE 了 
<: YXxo<:T.VXi<: 阐 .VvXx2<: 寻 . 
”m(CVYo<:Top.VYI<:Top.VY2<:Top. 
二 CCVYZo<:YOSVZI< YYZ<YiRU77 
”CVYYo<:T.VYi<: 肚 .vY2z<:.-T) 
<: (YYo<:Top.VYI<:Top.VY2<:Top. 根据 事实 (28.5.4) 
”~(VYZo<:Yo,.VZ1<:Y2.VZ2z<:YI. U)) 


当 且 仅 当 


工 


当 且 仅 当 FF (〈(VYo<:Top.VYI<:Top.VYi<:Top. 
mCYZo<:Yo.VZli<:Y2.VZ2<:YlI1. U)) 
<: ”(vYo<:T.vYi<: 吐 .VY2<: 曾 .-T) 根据 事实 (28.5.2) 
当 且 仅 当 上 F “~(vVzo<:T.VZi<: 狂 .vz:<: 油 . U)) 
如 根据 事实 (28.5.4) 
当 且 仅 当 FF T 
<: (vzo<:T.VZ1<: 勒 .vZz2:<: 叶 . U)) 根据 事实 (28.5.2) 


注意 到 ,在 推导 的 最 后 ,不 仅 P 和 Q 交换 了 位 置 ,而 且 导 致 这 个 动作 发 生 的 那 条 指令 也 执行 
过 了 ,让 其 在 指令 流 的 前 端 T 下 一 个 执行 。 按 刚刚 执行 指令 的 相同 方式 来 开始 选择 U 的 值 ; 
U = ”CCvYo<:Top.VYI<:Top.VYz<:Top. 
”m(VYZo<:Yo.VZ1<:Yz.VZ2<:YI1. U)) 
在 继续 使 用 U' 以 前 ,我 们 可 以 进行 另外 一 次 交换 ;把 寄存 器 返回 到 它们 原始 的 状态 。 可 选择 
地 ,我 们 对 吉 选 择 不 同 的 值 来 进行 不 同 的 操作 。 例 如 ,如 果 : 
U = nm(YYo<:Top.VYI<:Top.VYz<:Top. 
”(VZo<:Yo.VZ1i<:YI.VZ2<:Y2. YI1)) 
然后 ,在 机 器 的 下 一 个 周期 ,寄存 器 1 的 当前 值 Q ,将 出 现在 的 位 置 上 ,这样 做 其 实 是 通过 Q 
所 表示 的 指令 流 的 寄存 器 1 来 实现 一 个 “间接 分支。 条件 构造 子 和 算术 (前 驱 , 后 继 以 及 零 测 
试 ) 都 可 以 由 这 种 方法 来 实现 。 
综 上 所 述 ,我 们 可 以 通过 从 双 计 数 器 机 器 (普通 图 灵机 上 的 一 个 简单 变 式 ,包括 一 个 有 限 
的 控制 和 两 个 计数 器 ,每 个 计数 器 中 存放 着 一 个 自然 数 ) 到 子 类 型 化 语句 进行 归 约 中 得 出 不 可 
判定 的 证 明 。 


28.5.5 定理 [Pierce, 1994] : 对 于 每 一 个 双 计数 器 的 机 器 M, 存在 一 个 子 类 型 语句 
SCM) 在 全 下 < 系统 中 是 可 推导 的 , 当 且 仅 当 M 的 执行 可 终止。 
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因此 , 如果 我 们 可 以 确定 一 个 子 类 型 语句 是 不 是 可 证 明 ,那么 同样 可 以 确定 一 个 任意 给 定 
的 双 计 数 器 一 一 机 器 是 否 会 停机 。 因 为 双 计数 器 停机 问题 具有 不 可 判定 性 (参考 Hoperoft 和 
Ulman ,1979) ,所 以 对 于 全 了 .系统 的 子 类 型 化 同样 也 是 不 可 判定 的 。 

我 们 必须 再 次 强调 一 下 , 子 类 型 关系 的 不 可 判定 性 并 不 意味 着 我 们 在 28.4 节 中 讨论 的 子 
类 型 化 的 半 算 法 是 不 可 靠 和 不 完备 的 。 根 据 声明 性 的 子 类 型 化 规则 ,如 果 下 F S <:T 是 可 证 
明 的 , 则 算法 必然 可 以 终止 并 且 结果 为 mue。 若 根据 声明 性 子 类 型 化 规则 TH S <: T 是 不 可 
证 明 的 ,那么 算法 将 会 发 散 或 者 结果 为 filse。 一 个 给 定 的 子 类 型 语句 以 两 种 不 同 的 方式 ,不 能 
从 算法 规则 中 证 明 : 产 生 一 个 子 目 标的 无 穷 序列 (意味 着 该 结论 没有 一 个 有 限 的 推导 ) 或 者 导 
致 一 个 明显 不 一 致 ,如 Top <:S->T。 子 类 型 算法 只 能 检测 到 其 中 之 一 ,而 不 能 检测 到 另 一 个 。 

全 了 .系统 的 不 可 判定 性 是 否 就 意味 着 该 系统 在 实际 中 就 没有 用 处 了 呢 ? 事实 上 ,我 们 
通常 认为 ,全 了。 系统 的 不 可 判定 性 不 是 一 个 非常 严重 的 缺陷 。 一 方面 ,有 资料 表明 (Ghelli， 
1995) 要 使 子 类 型 检查 器 发 散 , 它 必须 具有 三 个 特殊 性 质 , 每 一 性 质 都 不 可 能 由 程序 员 碰巧 创 
造 出 来 。 同 样 地 ,现在 有 一 些 流行 的 语言 ,其 类 型 检查 和 类 型 重 构 问 题 或 者 解决 耗费 巨大 代 
价 , 比 如 在 22.7 节 中 看 到 的 ML 和 Haskell, 或 者 不 可 判定 ,比如 C++ 和 XProlog(Felty, Gunter， 
Hannan, Miler,Nadathur 和 Scedrov,1988)。 事 实 上 ,经 验 告诉 我 们 ,缺乏 交 类 型 和 并 类 型 (下 节 
将 做 讨论 ) (参见 练习 28.6.3) 对 于 全 下 。 系统 来 说 会 带 来 比 不 可 判定 性 更 严重 的 缺陷 。 


28.5.6 练习 [xxxxj:i(1) 用 X<:T 和 X 变 量 绑 定 ( 辕 量 词 或 非 团 量 词 都 可 以 ) 而 不 是 用 
Top 类 型 来 定义 全 F。 系统 的 一 个 变 式 ,这 个 变 式 称 为 完全 园 量 词 ;(2? 证 明 该 系统 的 子 类 
型 关系 是 可 判 定 的 ;(3) 这 条 限制 是 否 对 本 节 中 的 基本 问题 提供 了 一 个 令 人 满意 的 解决 方 
案 ? 特别 地 , 它 是 否 也 适用 于 那些 带 有 数字 记录 . 变 式 等 附加 特征 的 语言 ? 


28.6 合 类 型 和 交 类 型 


在 16.3 节 中 ,我 们 看 到 ,带子 类 型 化 语言 中 一 个 非常 可 取 的 特性 是 每 个 类 型 s 和 工序 对 
都 存在 合 类 型 , 即 S 和 T 共 同 超 类 的 最 小 类 型 J。 在 本 节 中 ,我 们 将 说 明 核心 下. 系统 中 的 子 
类 型 关系 对 每 一 个 S 和 T 的 确 有 一 个 合 类 型 ,以 及 对 只 要 给 出 了 计算 的 算法 ,每 一 个 S 和 了 至 
少 含 共同 的 子 类 型 交 类 型 ( 另 一 方面 ,所 有 的 这 些 特性 对 全 F. 系统 都 不 适用 ,参见 练 
习 28.6.3)。 

用 FF SYT=J 表 示 J 是 上 下 文 卫 中 S$ 和 了 的 合 类 型 ,PH SAT=M 表 示 M 是 上 下 文 下 
中 S 和 了 T 的 交 类 型 。 它 们 的 计算 规则 同时 也 定义 了 (如 图 28.5 所 示 )。 注意 ,在 每 个 定义 中 有 
些 情况 是 重复 的 ,为 选择 一 个 作为 明确 算法 的 定义 ,这 里 规定 选择 第 一 条 子 句 。 

很 容易 检查 到 Y 和 ^ 是 全 函数 ,因为 v 通常 返回 一 个 类 型 而 A 要 么 返回 某 个 类 型 ,要么 操 
作 失 败 。 我 们 观察 到 了 下 中 S 和 了 T 的 总 权 值 [参见 定义 (28.3.4)] 在 递归 调用 中 是 逐渐 减 小 的 

现在 我 们 来 验证 一 下 这 些 定义 确实 计算 了 合 类 型 和 交 类 型 。 论证 过 程 分 为 两 部 分 : 命 
题 (28.6.1) 表 明 合 类 型 是 S 和 T 的 上 界 , 而 交 类 型 (如 果 存在 的 话 ) 是 下 界 。 命 题 (28.6.2) 表 明 
合 类 型 化 S 和 了 的 所 有 共同 上 界 都 要 小 ,而 交 类 型 比 S 和 T 的 所 有 共同 的 下 界 都 要 大 (只 要 $ 
和 了 T 含 有 共同 下 界 它 就 存在 )。 
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一 站 <: Top 
Fr 人 
FFSvT= TFTFSAT= 
T . 让 THFS<:T S ifrrFrSs<:T . 
S ifrFT<:S 荆 让 THFT<:S 
] 这 S = X ]1 一 M2 直 S = SI1 一 9S2 
X<:U ET 工 T=TI 一 T> 
TIFUvT=] [IFHFSIVvVTI=]i 
] 、 过 于 =X THF-SzAT2z=M: 
X<:U ET VX<:Ul.Mz 证 S= YX<:Ul.S， 
TITr3SYU=] T= VX<:UlI.T:> 
人 一 J2 让 S= Si 一 92 T, X<:UI 上 S2 人 T2z = M> 
T=TI-Tz Fa 其 他 


[FSiATi= 入 
THHSzvTz=]2 
VX<:UlI -.]2 这 S= VX<:Ut.S> 
T= YXx<:Ul.T2 
上 , X<:UI FS vVT2z=]2 
Top 其 他 
人 


图 28.5 核心 了 .系统 合 类 型 和 交 类 型 规则 


28.6.1 命题 : 


1 . 如 果 PFSvT=J 则 有 FF S<:J 和 TFT<:J 
2 . 如 果 TFSAT=M, 则 有 FF M<:S 和 THF M<:T。 


证 明 : 对 推导 PTFSYT=J 或 PSAT=M 的 长 度 进行 直接 归纳 ( 即 应 用 递归 调用 的 次 
数 来 计算 本 和 MD)。 


28.6.2 命题: 


1. 如 果 PF S<:V 和 TFT<:V, 则 对 某 些 本 满足 FF J<:V, 存 在 FF SvT=J。 
2. 如 果 PFL<:S 和 了 FL<:T, 则 对 某 些 M, 满 足 PF L <:M, 存 在 PRF SA 入 T= M。 


证 明 :对 第 (1) 部 分 的 Fr*S<:V 和 FrT<:V 及 第 (2) 部 分 下 rr~L<:S 和 Fr=-L<:T 的 
算法 推导 的 总 长 同时 直接 进行 归纳 就 很 容易 证 明 出 来 [参见 定理 (28.3.3) 保 证 ,这 类 给 定 
推导 的 副本 总 是 存 的 ]。 


1. 如 果 了 两 个 推导 都 是 SA-Tp 类 型 的 实例 ,V = Top , 则 立即 可 以 得 到 期 望 的 结果 下 F J <:V。 
如 果 了 人 T<V 是 SA-Reft-TVar 类 型 实例 , 则 T= V。 由 给 定 的 第 一 个 推导 有 下 F S <:V =T， 
所 以 可 运用 合 类 型 定义 中 的 第 一 条 句子 得 到 FS vT=T, 满 足 要 求 。 类 似 地 ,如 果 
FF S<:V 是 SA-Ref-TVar 类 型 实例 , 则 S= V。 由 给 定 的 第 二 个 推导 有 PHF T<:V= S， 
运用 合 类 型 定义 的 第 二 条 句子 得 到 下 F S vT= S, 满 足 要 求 。 

如 果 在 推导 了 r~ S <:V 以 规则 SA-Trans-TVar 为 结束 , 则 有 S=X, 其 中 X<:UeF 以 及 
FFUYT=J], 再 由 合 类 型 定义 的 第 三 句 , 得 到 THF SvT=J, 根 据 归纳 假设 得 到 
广 J<:V。 推 时 了 一 T<:V 以 规则 SA-Trans-TVar 结束 的 情况 类 似 。 

从 算法 子 类 型 规则 的 形式 上 看 ,容易 推断 剩 下 的 可 能 性 就 是 两 个 推导 条 件 不 是 以 SA- 
Arow ,就 是 以 SA-Al 规则 为 结束 的 。 
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如 果 两 个 推导 的 最 后 规则 都 是 SA-Arow, 则 有 S= SS 一 SS ,T= 了 一 了 和 V=V 一 , 有 
Pr-V<SPr-gS<cVvTrV<T 及 Pr-E<:Vv。 由 对 第 (2) 部 分 的 归纳 假设 
有 PPFS AT=M ,存在 某 M 满足 PFCF V <:M 。 而 由 第 (1) 部 分 ,FFSvT=[, 存 
在 某 上 上 满足 FF 了 <:V。 再 由 合 类 型 定义 的 第 5 条 句子 得 到 下 HF S 一 S v 耻 一 下 = 
M, 一 上 ,并且 根据 SA-Arow, 得 到 THF M 一 <:Vi 一 V。 
最 后 ,如果 两 个 推导 的 最 后 规则 都 是 SA-AL ,那么 有 S= VX<:U .S,T=VX<U-T 和 YV 
=VYX<c UVw, 其 中 P,X<U rsS<Vv 且 PT,X<:Ur-TE <:Vw。 由 第 (1) 部 分 的 归 
纳 假设 ,有 T,X<:U FSYvT=I ,其 中 PP,X<:U Fr-J <:Vw, 根 据 合 类 型 定义 的 第 6 
名 ,有 J= VX<:U, .于 。 再 根据 SA-Al 得 到 FFVX<:U .了 <:VX<:U.V。 
2. 如 果 推 导 了 r=~L<:T 的 最 后 规则 是 SA-Top, 则 T= Top, 所 以 PHF S <:T。 由 交 类 型 定 
义 的 第 一 句 ,我 们 有 PHF SAT= S, 而 根据 另外 一 个 推导 有 了 HL <: S, 得 证 。 推 导 
PP -~~L<:S 的 最 后 的 规则 是 SA-Top 的 证 明 类 似 。 
如 果 推 导 了 Fr-L<:S 的 最 后 的 规则 是 SA-Ref-Tvar, 则 工 = S, 由 另 一 个 推导 有 PPFL=S 
<:T, 由 交 类 型 定义 有 THF SA^AT=S, 由 此 得 证 。 推 导 了 r- L<:T 的 最 后 的 规则 是 SA- 
Refl-TVar, 则 证 明 类 似 。 
剩 下 的 可 能 性 就 只 有 两 个 给 定 推导 的 最 后 规则 为 SA-Trans-TVar,SA-Arow 或 SA-All 的 
情况 了 。 
如 果 两 个 推导 的 最 后 规则 是 SA-Trans-TVar, 我 们 有 工 =X, 其 中 X <:UecT, 并 且 有 T -~- 
U<:S 和 DT Us<:T。 由 第 (2) 部 分 的 归纳 假设 ,PHF U <:M, 由 此 再 根据 S-Tvar 和 传递 
性 ,得 到 下 FE<:M。 
如 果 两 个 推导 的 最 后 规则 是 SA-Armow, 有 S= S 一 S ,T= 了 一 卫 ,L = 是 一, 其 中 Pr- 
S <LTr-D<cSsTrTc<cD 及 Fr-ED<:T。 由 第 (1) 部 分 的 归纳 假设 ,存在 某 
个 工 ,满足 FFT <:D ,使 得 FF S vT =。 由 第 (2) 部 分 ,存在 某 个 M ,满足 FF LDL 
<:M: ,使 得 PHF S 入 卫 = M 。 再 由 交 类 型 的 定义 有 下 上 SS 一 S 和 中 一 了 = 一 M ,再 
根据 SArow, 我 们 得 到 PHF 工 一 L <:J 一 M 。 
两 个 推导 的 最 后 规则 都 是 SA-Al 的 情况 的 证 明 类 似 。 
28.6.3 练习 [推荐 ,xx*]: 考 虑 下 面 两 个 类 型 (Gheli, 1990)S = VX <: Y 一 Z.Y-~Z 和 
T=VX<:Y 一 0 .TY 一 Z ,以 及 上 下 文 了 =Y<:Top,Z <:Top,Y'<:Y,Z'<:Z。(1) 在 全 了 F。 系 
统 中 ,有 多 少 类 型 在 上 下 文 耻 下 既是 S 的 子 类 型 又 是 T 的 子 类 型 ;(2) 证 明 在 全 F.. 系统 中 ,S 
和 了 没有 交 类 型 ;(3) 在 全 了 中 找到 一 类 型 序 对 ,使 其 在 上 下 文中 没有 合 类 型 。 


28.7 园 存 在 量词 


为 了 把 核心 F<. 系 统 类 型 检查 算法 扩展 到 带 存在 类 型 的 语言 中 ,我 们 还 得 处 理 另外 一 个 
小 问题 。 回 忆 一 下 下 面 男 量 词 的 消去 规则 
THFtl it3ax<:Til,Ti2} 工 X<:T1ll1,X:Ti2 FF t2 : T2 


[FF let {X,X}=tl intz ;:T2 (T-Unpack ) 


上 
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在 24.1 节 中 ,我 们 注意 到 类 型 变量 X 出 现在 上 下 文中 第 二 个 前 提 已 的 类 型 被 计算 的 位 置 ,而 
不 是 出 现在 规则 结论 的 上 下 文中 。 这 意味 着 类 型 T 不 可 能 含 自 由 的 X, 因 为 结论 中 任何 自由 
变量 X 的 出 现 都 将 是 越界 的 。25.5 节 对 这 个 问题 进行 了 更 加 详细 的 讨论 ,我 们 还 注意 到 , 当 
使 用 无 名 deBruijn 格式 来 描述 类 型 时 ,上 下 文中 从 前 提 到 结论 的 变化 对 应 了 呈 中 变量 索引 的 
一 个 负 的 移 位 ;而 如 果 呈 碰巧 含有 自由 变量 X 则 这 种 移 位 将 失败 。 

对 带 存在 量词 语言 的 最 小 类 型 算法 这 意味 着 什么 ?特别 地 ,我 们 应 该 怎样 处 理 表达 式 
t= letlX,xl = p in x, 其 中 p 类 型 为 | 3X,Nat->Xi? x 最 自然 的 类 型 是 Nat->~X,X 为 团 变 量 。 但 
是 ,根据 声明 性 类 型 关系 ( 带 包 含 规 则 ) ,x 同样 具有 类 型 Nat-~>Top 和 Top。 因 为 这 两 个 都 没有 
涉及 X, 在 声明 性 系统 中 整个 项 t+ 可 以 被 合法 地 赋予 类 型 Nar>Top 或 Top。 更 一 般 地 ,我们 通 
常 自由 地 把 一 个 未 打包 的 表达 式 提 升 成 任意 一 个 不 含 园 变量 X 的 类 型 ,然后 再 运用 下 Unpack。 
所 以 ,如 果 我 们 要 使 这 个 最 小 类 型 算法 具有 完备 性 , 则 当 未 打包 的 表达 式 中 最 小 类 型 包含 
界 变量 又 时 ,不 会 简单 地 失败 。 而 是 尽力 提升 开 为 不 含 轩 变量 X 的 超 类 型 。 关 键 是 给 定 类 
型 的 不 含 园 变 量 X 的 超 类 型 集 有 个 最 小 的 元 素 , 如 下 面 这 个 练习 (答案 由 Gheli 和 Pierce, 1998 
给 出 )。 

28.7.1 ”练习 [xxx]: 在 带 转 存在 量词 的 核心 了 .系统 中 ,给 出 一 个 算法 ,计算 有 关上 下 文 

PP 中 给 定 类 型 了 的 不 含 面 变量 X 的 最 小 超 类 型 , 记 为 Rxr(T)。 


存在 量词 消去 的 算法 类 型 规则 可 以 写 为 : 
了 工 tl :了 TFTi 介 {3x<:Til, TI?} 
T, X<:Til x:Tiz Pt2 :T2 。 Rxdx<:Tax:Ta(T2) = T2 (TA-Unpack ) 
FT Tiet {X,xj=tl intz : T2 
对 带 园 存在 量词 的 全 F。 系 统 而 言 ,这 种 情况 的 问题 更 大 。Ghelli 和 Pierce(1998) 举 了 一 个 
例子 ,上 下 文 了 中 不 含 转变 量 X 超 类 型 了 T 没 有 最 小 的 元 素 。 这 也 立即 说 明了 该 系统 的 类 型 关 
系 缺 少 最 小 类 型 的 特点 。 


28.7.2 练习 [xxw]: 证 明 只 含 加 存在 量词 (不 是 全 称 类 型 ) 的 全 F-. 系统 中 变 式 类 型 的 子 
类 型 关系 同样 是 不 可 判定 的 。 


28.8 园 量 词 和 最 小 类 型 


最 小 类 型 Bot( 人 参见 1$.4 节 ) 在 某 种 程度 上 使 得 了。. 的 元 理论 属性 复杂 化 了 。 原 因 是 ,在 形 
如 YX <: Bot.T 的 类 型 中 ,变量 X 实 际 上 是 工 中 Bot 的 同义词 ,因为 根据 假设 ,X 是 Bot 的 子 类 
型 ,而 由 S-Bot,Bot 又 是 X 的 子 类 型 。 这 就 意味 着 YX <: Bot,X->X 和 YX <:Bot,Bot-~Bot 在 子 
类 型 关系 下 是 等 价 的 ,尽管 它们 在 语法 上 并 不 相同 。 另 外 ,如 果 周 围 的 环境 包含 假定 X <: Bot 
以 及 Y <:Bot, 则 类 型 X >Y 和 类 型 YX 是 等 价 的 ,即使 它们 都 没有 明确 地 提 及 Bot。 尽 管 有 
这 些 困 难 存在 ,核心 了 .的 那些 关键 性 质 仍 然 可 以 在 Bot 存在 的 情况 下 确定 下 来 。 详 情 参见 
Pierce(1997a) 。 








第 六 部 分 高 阶 系 统 


第 29 章 ”类 型 算 子 和 分 类 

第 30 章 高 阶 多 态 

第 31 章 高 阶 子 类 型 化 

第 32 章 实例 学 习 : 纯 函数 对 象 








第 29 章 ”类 型 算 子 和 分 类 ” 


在 以 前 的 章节 中 ,我 们 通常 使 用 缩写 形式 ,比如 ， 
CBoo1 = VX. X 一 X 一 XI; 
Pair Y Z = VX。(Y 一 Z 一 X) 一 Xi; 


使 例子 更 易 阅 读 ,如 把 繁琐 形式 Xx:VX.(Nat~Bool-~X) 一 X.x 写 做 ix:Pair Nat Bool.xo 

CBool 是 一 个 简单 的 缩写 , 当 它 出 现在 一 个 例子 中 时 ,我 们 需要 用 其 定义 的 右 端 形式 对 其 
进行 替换 。Pair 是 一 个 参数 性 缩写 , 当 使 用 Pair S T, 必须 使 用 S 和 T 分 别 对 Pair 定义 中 的 YY 和 
Z 进行 替换 。 换 名 话说 , 像 Pair 的 这 种 缩写 给 了 我 们 一 个 类 型 表达 式 级 别 函 数 的 非 正 式 定义 。 

我 们 也 使 用 诸如 ArayT 和 RefT 这 样 的 包含 类 型 算 子 Armray 和 Ref 的 类 型 表达 式 。 尽 管 
这 些 类 型 算 子 是 在 语言 中 构造 的 ,而 不 是 由 程序 员 定 义 的 ,它们 在 类 型 的 级 别 上 仍然 是 一 种 函 
数 。 例 如 ,我 们 可 以 把 Ref 视 为 这 样 一 种 评 数 ,对 于 每 一 个 类 型 下 ,产生 一 个 可 以 包含 T 类 型 元 
素 的 引用 单元 。 

在 本 章 和 接 下 来 的 两 章 中 ,我 们 将 对 这 些 类 型 级 别 的 函数 进行 讨论 , 称 为 类 型 算 子 ,这 样 会 
更 正式 一 点 。 在 本 章 中 ,我 们 将 在 类 型 的 层次 上 介绍 抽象 和 应 用 的 基本 机 制 ,并 将 给 出 两 个 类 型 
表达 式 在 何 时 是 等 价 的 和 为 良 形式 关系 的 一 种 精确 定义 , 称 为 分 类 。 分 类 可 以 使 我 们 避免 写 那 
些 无 意义 的 类 型 表达 式 。 第 30 章 将 进一步 讨论 把 类 型 算 子 当做 “一 等 公民 ”, 即 实体 ,作为 参数 
传递 给 函数 。 第 30 章 还 介绍 了 著名 的 玉 系统 ,把 了 上 系统 (参见 第 23 章 ) 中 类 型 量词 概 化 成 类 型 
算 子 的 高 阶 量词 。 第 31 章 将 对 类 型 算 子 ,高 阶 量词 以 及 子 类 型 化 的 联合 进行 讨论 。 


29.1 直觉 


要 研究 类 型 级 别 的 函数 ,我们 需要 做 的 第 一 件 事 情 就 是 确定 抽象 和 应 用 中 用 到 的 符号 。 
标准 惯例 是 使 用 与 项 层次 上 的 应 用 和 抽象 相同 的 符号 ,用 和 表示 抽象 ,用 并 列 形式 符 表 示 应 
用 @。 比 如 ,函数 必 . ia:X,b:Xh ,给 定 一 个 类 型 T, 构 造 出 一 个 记录 类 型 la:T,b:Tl。 将 函数 应 
用 在 参数 Bool 上 记 为 (MX. |a:X,b:XH)Bool。 

与 普通 的 函数 一 样 , 多 参数 的 类 型 函数 可 以 由 单 参数 函数 通过 Curying 化 来 建立 。 例 如 ， 
类 型 表达 式 XY.XZ.VX,(Y 一 2Z 一 X) 一 X 有 两 个 参数 的 函数 ,严格 地 讲 , 其 具有 一 个 参数 的 男 
数 , 当 把 该 函数 应 用 到 类 型 $ 中 时 ,产生 了 另外 一 个 单 参数 函数 。 当 把 新 函数 应 用 到 了 时 , 产 
生 类 型 VX.(STX) 一 X。 


中 ”本 章 介绍 的 系统 为 纯 简 单 类 型 化 和 演算 ,其 中 含 类 型 算 子 X。 (参见 图 29.1)。 本 章 举 的 例子 也 用 了 数字 型 和 布尔 型 
(参见 8.2 节 ) 及 全 称 类 型 (参见 图 23.1)。 相 关 的 OCaml 实现 为 包 lomega。 

图 这 种 过 于 简单 记 法 的 一 个 缺点 是 使 得 不 同 种 类 表达 式 的 术语 有 些 扭曲 。 特 别 地 ,* 类 型 抽象 ” 现在 也 许 就 表示 一 种 
把 类 型 看 做 参数 的 抽象 (比如 ,项 忱 .0 ,或 者 说 相当 于 类 型 层次 上 的 抽象 (比如 ,类 型 表达 式 忱 .|a:Xi)。 在 上 下 文 
中 ,两 者 都 是 可 能 的 ,人 们 倾向 于 用 多 态 函 数 来 表示 前 者 ,用 类 型 层次 上 的 抽象 或 者 算 子 抽象 来 表示 后 者 。 
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我 们 将 继续 使 用 非 正 式 的 缩写 代替 长 的 类 型 表达 式 ,包括 类 型 算 子 。 例 如 ,在 本 章 的 其 余 
部 分 将 使 用 下 面 这 个 缩写 : 
Paipr = AY，AZ.，VX. (Y--Z 一 X) 一 X; 
当 我 们 使 用 Pair $S T, 实 际 的 含义 为 : 
(AY. AZ，VX-(〈Y 一 Z 一 X) 一 X)] ST， 
换 句 话说 ,我 们 把 这 里 用 到 的 参数 式 缩写 非 正 式 惯例 替换 为 更 加 基本 的 非 正式 惯例 , 即 当 看 到 
这 些 缩写 形式 ,就 用 它们 定义 的 右 端 对 简单 缩写 进行 扩展 ,加 上 类 型 算 子 定义 和 实例 化 的 正规 
机 制 。 我 们 可 以 正规 地 处 理 缩写 的 定义 和 扩展 操作 ,比如 ,我 们 可 以 在 对 象 语 言 中 完成 这 些 操 
作 ,而 不 是 在 元 语言 中 作为 约定 来 实现 ,但 这 里 我 们 不 这 样 做 。 感 兴趣 的 读者 可 以 翻 半 有 关 含 
定义 或 单 点 分 类 的 类 型 系统 的 文献 ;参见 Sever 和 Poll(1994) , Stone 和 Harper(2000) , Crary 
(2000) ,以 及 其 他 文献 。 
在 类 型 的 层次 上 介绍 抽象 和 应 用 使 得 我 们 可 以 用 多 种 不 同 的 方式 写 同 一 个 类 型 。 例如 ， 
如 果 划 是 类 型 算 子 六,X 的 缩写 , 则 下 列表 达 式 均 为 相同 箭头 类 型 的 名 称 ， 
Nat 一 Booj Nat 一 Id Boo1 Id Nat 一 Id Boo1 
Id Nat ~ Boo1 Id (Nat 一 8oo1) Id (Id (Id Nat 一 Boo17)) 
为 了 使 这 个 直觉 更 加 精确 ,我 们 引入 类 型 的 定义 性 等 价 关系 , 记 为 $ 二 T。 这 个 关系 的 定义 中 
最 重要 的 语句 是 : 
CAX:KI1.Tl2)7 Tz = [X 一 T2]Tl2 (Q-AppAbs) 
该 名 说明, 应 用 到 参数 的 类 型 层次 上 的 抽象 与 代 换 为 形 参 的 参数 抽象 体 是 等 价 的。 我 们 用 -- 
条 新 规则 了 工 Eq: 
ThFtIS S=T 
TFtiT 
对 类 型 检查 中 的 定义 性 等 价 进 行 了 探讨 ,得 出 一 结论 :如 果 两 个 类 型 是 等 价 的 ,那么 一 个 类 型 
的 成 员 也 是 另 一 个 类 型 的 成 员 。 
抽象 和 应 用 机 制 的 另外 一 种 新 的 可 能 性 就 是 可 以 写 出 没有 意义 的 类 型 表达 式 。 例如 ,把 
某 个 特有 的 类 型 应 用 到 另外 一 个 类 型 当中 去 ,如 类 型 表达 式 (Bool Nat) ,这 与 项 层次 上 把 me 
应 用 到 6 中 去 一 样 没有 意义 。 为 了 避免 这 类 无 意义 的 表达 式 的 出 现 ,我 们 引入 了 分 类 系统 , 按 
照 表 达 式 的 元 素 对 其 进行 分 类 ,就 如 同 箭头 类 型 告诉 我 们 项 的 元 素 。 
分 类 是 从 一 个 单一 的 原子 分 类 构造 起 来 的 , 记 做 “ * ”, 读 做 “类 型 ”, 以 及 一 个 类 型 构造 子 
。 它 们 包括 ; 
共 特有 类 型 的 分 类 (比如 Bool 和 BooL- >Bool) 
闪 -人头 类 型 算 子 的 分 类 (类 型 到 类 型 的 函数 ) 
关 二 > 关 -> 类 特有 类 型 到 类 型 算 子 的 函数 分 类 ( 双 目 运算 符 ) 
(* 写 #< ) 一 * 类 型 算 子 到 特有 类 型 的 函数 分 类 


分 类 即 “ 类 型 的 类 型 ”。 实 质 上 ,分 类 系统 是 简单 类 型 的 Janbda 演算 的 一 个 副本 , 只 不 过 
高 了 一 层 。 


(T-Eq) 





一 一 一 一 一 一 一 一 一 一 一 一 一 -一 一 一 
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为 了 保持 一 致 ,我 们 仍然 把 任何 类 型 层次 的 表达 式 称 为 类 型 ,不 管 其 是 诸如 Nat~Nat 和 
VX.X->X 的 普通 类 型 ,还 是 诸如 MX.X 的 类 型 算 子 。 当 专门 对 普通 类 型 (实际 用 来 对 项 进行 
分 类 的 类 型 表达 式 ) 进 行 讨 论 时 ,我 们 称 其 为 合适 类 型 。 

形 如 (* 之 * ) 一 * 的 类 型 表达 式 称 为 高 阶 类 型 算 子 。 不 像 项 层次 上 的 高 阶 本 数 那样 非常 
有 用 ,高 阶 类 型 算 子 有 些 深 奥 。 我 们 将 在 第 32 章 来 看 -一些 使 用 高 阶 类 型 算 子 的 例子 。 

为 了 简化 类 型 表达 式 良 分 类 检查 问题 ,我 们 对 每 一 个 类 型 层次 上 的 抽象 用 其 固 变 量 的 分 
类 做 注释 。 例 如 ,Pair 算 子 的 正式 形式 为 : 

Pair = AA2*，AB:2:w，、YVX. (A 一 B 一 X) 一 Xi; 
(注意 双 冒 导 ) 然 而 ,几乎 所 有 的 注释 都 是 * ,所 以 我 们 继续 将 MX.T 作 为 MX::* .T 的 缩写 。 

下 面 一 些 图片 将 使 我 们 理解 得 更 加 清晰 。 语 言 中 的 表达 式 可 以 划分 成 三 类 :项 ,类 型 和 分 
类 。 项 包括 基本 数值 ( 整 型 . 浮 点 型 ) 复合 数据 (记录 ) ,数值 抽象 .应 用 、 类 型 抽象 和 类 型 应 用 ， 
等 等 。 


AX:Nat.X 


AX.AXIX,.X 
(AXx:Nat.x) 5 pair [Nat] [Boo1] 5 fa1se 


《AxiNat ,x) true 





类 型 层次 上 包括 两 类 表达 式 , 一 类 是 形 如 Nat,Nat->Nat,Pair Nat Bool, 以 及 YX.X-X 的 合适 类 
型 ,项 依据 这 些 类 型 产生 [ 当然 ,并 不 是 所 有 的 项 都 属于 某 个 类 型 ; (Xx:Nat.x)true 就 不 是 任何 
类 型 ]。 


Pair Nat Boo1 
(NAX.X 一 X) Nat 


Nat 一 Nat 


CAx:Nat.x) tpPue 





AX.AX:X,X 
(CAx:Nat.Xx)》 5 pair [Nat] [Boo1] 5 false 


还 有 一 类 是 类 型 算 子 ,比如 Pair 和 这 .X>X, 它 们 本 身 是 不 对 项 进行 分 类 的 ( 问 “ 什 么 项 具有 类 
型 必 .,X->X "这 种 问题 是 没有 意义 的 ) ,但 是 给 它们 一 个 类 型 参数 生成 某 个 合适 类 型 后 ,比如 
(MX.X-X)Nat, 就 可 以 对 项 进行 分 类 了 。 





项 
Pair Nat Boo1 Pair 
CAX.X 一 X] Nat AX .X 一 X 


Pair Nat Pair Pair 


(CAx:Nat.Xx)7 true 





(CAX:Nat.x)] 5 patir [Nat] [Boo1] 5 false 
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注意 ,合适 类 型 ;也 就 是 分 类 * 的 类 型 表达 式 ,可 能 包含 比 其 分 类 还 要 高 的 类 型 算 子 作为 其 子 
表达 式 ,比如 在 (XX.X-~X)Nat 或 Pair Nat Bool。 类 似 地 , 基 类 型 如 Nat 的 项 表达 式 也 可 能 包含 
lambda 抽象 作为 其 子 表 达 式 ,比如 (xx:Nat.x) 5。 

最 后 ,我 们 来 看 一 下 分 类 层次 。 最 简单 的 分 类 是 * ,所 有 的 合适 类 型 都 是 其 成 员 。 


Pair 
AX .X 一 X 


Pair Nat Pair Pair 


CAX:Nat.x] 5 





类 型 算 子 必 .X->X 和 Pair 属于 箭头 分 类 如 * 一 * 和 * 一 * 一 *。 不 良 格 式 的 类 型 表达 式 , 比 
如 Pair Pair 不 属于 任何 分 类 。 


(AXx:Nat.X) 5 pair [Nat] [Boo1] 5 fa1se 





29.1.1 练习 [*] :类 型 表达 式 VX.X->X 与 XX.X->X 有 什么 差别 ? 
29.1.2 练习 [*j] :为 什么 箭头 类 型 Nat->Nat 不 属于 箭头 分 类 xx 之 *? 


在 分 层 问题 上 ,一 个 很 自然 的 问题 就 是 “为 什么 表达 式 就 只 分 这 三 层 ?"。 我 们 不 能 继续 
引信 人 从 分 类 到 分 类 的 函数 或 者 分 类 层次 上 的 应 用 吗 ? 或 增加 第 四 层 按 其 功能 性 对 分 类 表达 式 
进行 分 类 ? 依次 无 穷 下 去。 纯 类 型 系统 研究 组 曾 对 这 种 系统 做 过 研究 (Terlouw, 1989; Berardi， 
1988, Barendregt, 1991 , 1992; Jutting , MeKinna 和 Pollack, 1994; MecKinna 和 Pollack , 1993; Pollack ， 
1994 )。 对 编程 语言 来 讲 , 这 三 层 已 经 足够 了 。 

事实 上 ,虽然 在 大 多 数 静 态 类 型 编程 语言 中 都 能 发 现 某 种 形式 的 类 型 算 子 ,但 语言 设计 者 
给 程序 员 提 供 形 式 化 说 明 的 全 部 功能 的 情况 是 很 少 的 。 有 些 语 言 (比如 Java) 仅 仅 提供 了 一 些 
固定 的 类 型 算 子 ,比如 Armay, 而 且 不 能 定义 新 的 算 子 。 其 他 一 些 语言 把 类 型 算 子 和 该 语言 的 
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其 他 一 些 特点 绑 定 起 来 。 在 ML 语言 中 ,类 型 算 子 是 数据 类 型 机 制 的 一 部 分 ,我 们 可 以 按 如 下 
方法 定义 参数 性 数据 类 型 

type "a Tyop = tyoptag of ('a 一 al; 
其 中 将 Tyop 写 为 : 

Tyop = AMX。 <tyoptag:X 一 X>; 
换 句 话 说 ,在 ML 语言 中 ,我 们 可 以 定义 参数 性 变 式 类 型 ,而 不 能 任意 定义 参数 类 型 。 这 条 限 
制 的 好 处 在 于 ,在 类 型 层次 上 ,程序 中 出 现 Tyep 的 地 方 , 对 应 于 项 层次 上 标记 tyoptag 将 出 现 ， 
即 当 类 型 检查 器 需要 用 定义 的 等 价 关 系 把 类 型 Tyop Nat 替换 成 其 归 约 形式 Nat->Nat 时 ,就 可 
以 在 程序 中 明确 地 标注 yoptag。 这 从 本 质 上 简化 了 类 型 检查 算法 2。 

分 类 构造 子 是 这 里 惟一 讨论 的 构造 子 , 但 我 们 对 其 他 许多 分 类 构造 子 也 曾 做 过 研究 。 
事实 上 ,对 类 型 表达 式 的 不 同性 质 进 行 检 查 和 妃 踪 的 分 类 系统 的 范围 跟 对 项 的 属性 进行 分 
术 的 类 型 系统 的 范围 是 对 立 的 。 有 以 下 几 类 分 类 存在 ,记录 分 类 ( 它 的 元 素 是 类 型 的 记录 ， 
不 要 与 记录 类 型 混淆 起 来 ;它们 提供 了 一 种 自然 的 方式 来 定义 互 递 归 类 型 系统 ) , 行 分 类 (在 县 
有 行 变量 多 态 性 的 系统 中 , 行 分 类 描述 了 可 以 构造 记录 类 型 的 字段 的 行 , 参 22.8 节 ) ,power 分 
类 或 power 类 型 (提供 了 子 类 型 化 的 另外 一 种 表示 方式 ,参见 Cardeli,1988a) ,单个 分 类 (与 定 
义 有 关 , 以 及 与 带 共享 的 模块 系统 有 关 ) ,依赖 分 类 (与 在 30.5 节 中 讨论 的 依赖 类 型 的 上 一 级 
相似 ) 等 。 


29.2 定义 


图 29.1 列 出 了 带 类 型 算 子 的 核心 lambda 演算 的 完整 定义 。 在 项 一 级 ,简单 类 型 lambda 
演算 仅 包含 变量 .抽象 和 应 用 (就 是 因为 这 个 原因 , 才 称 之 为 带 类 型 算 子 的 简单 类 型 lambda 演 
算 )。 在 类 型 一 级 ,包括 普通 的 箭头 类 型 .类 型 变量 .外 加 算 子 抽象 和 应 用 。 在 本 章 讨论 的 这 个 
系统 中 忽略 了 诸如 VX.T 的 量词 类 型 ,我 们 将 在 第 30 章 中 对 量词 类 型 重新 进行 讨论 。 

这 个 系统 的 表示 以 三 种 方式 对 简单 类 型 lambda 演算 的 框架 做 了 扩展。 第 -一 ,增加 了 一 组 
分 类 规则 ,详细 说 明了 如 何 组 合 一 些 类 型 表达 式 来 产生 新 的 类 型 表达 式 。PF T::K 表示 “类 
型 T 在 上 下 文 工 中 有 分 类 KR" 。 注 意 这 些 分 类 规则 和 原始 的 简单 类 型 lambda 演算 的 分 类 规则 
(参见 图 9.1) 的 相似 性 。 

第 二 , 当 类 型 了 出 现在 项 中 (比如 在 )x.T.t) ,我 们 必须 检查 -一 下 了 是 不 是 格式 良好 的 。 这 
包括 对 老 规则 TAbs 增加 一 条 新 的 前 提 以 检查 下 FT:: * 。 注 意 ,T 必 须 有 确切 的 分 类 * ,也 
就 是 说 T 必 须 是 合适 类 型 ,因为 它 将 用 来 描述 项 变量 x 涉及 到 的 值 。 类 型 规则 保持 不 变 , 只 要 
PFbT 是 可 推导 的 , 则 了 FT::* 也 是 可 推导 的 (只 要 上 下 文 耻 中 出 现 的 这 些 类 型 是 良 分 类 
的 )。 我 们 将 在 30.3 节 中 对 这 个 问题 做 更 详细 的 讨论 。 


@ 从 例子 的 角度 ,我 们 忽略 了 ML 语言 中 标识 符 以 大 写字 母 开 头 的 习惯 。 在 OCaml 中 ,这 个 定义 写成 ， 
type'a tyop = Tyoptag of ('a 一 'a) 
@ 这 条 限制 类 似 于 ML 语言 中 对 递归 类 型 的 处 理 ,我 们 在 20.1 节 曾 经 讨论 过 。 把 递归 类 型 绑 定 到 datatype 定义 中 去 ， 
使 得 程序 员 可 以 方便 地 使 用 相等 递归 类 型 ,使 类 型 检查 器 通过 在 标记 和 与 变 式 类 型 有 关 的 情况 分 析 操作 中 隐藏 
foad/unfold 注释 简化 了 同 构 类 型 。 
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- 油 扩展 A_ (9-1) 
语法 分 类 TFT2K 
) 5 项 : NS 
X 变量 (K-TVAR) 
AXRT 二 抽象 
二 蕊 应 用 
( 八 -ABS) 
V 二 值 : 
XXX 下 二 抽象 
Sa (KK-APP) 
[一 类 型 

















类 型 变量 
汇 关 汪汪 算 子 抽象 So 2 (K-ARROW) 
T 一 下 函数 类 型 类 型 等 价 
T := 上 下 文 ， 本 = 税 (Q-REFD 
分 空 上 下 文 
了 项 变量 绑 定 (Q-SYMM) 
T, 渍 缚 类 型 变量 绑 定 
屠 := 分 类 ; (Q-TRANS) 
澳 特定 类 型 分 类 
SS 算 子 分 类 
(Q-ARROW) 
求 值 七 一 七 
tl 一 ti 
下 
人 (E-APPp2) 
Vi Tt2 一 "Vi t2 2 (Q-APP) 
(CAx:Til .tl2) v2 一 [x 一 v2]tlz (E-APPABS) 
RE 
类 型 工 -tl :TII 一 Ti 和 已 29 CAPp) 
Xx:T ET 人 222 





T-VAR, 
了 3 
Tvx:Tirt:T (T-EQ) 
由 (T-ABS) 


THF Ax:Tl.t2z : TI 一 T2 





29.1 类 型 算 子 和 分 类 (X。 ) 


第 三 ,我 们 增加 了 一 组 类 型 间 定义 性 等 价 关 系 的 规则 。S = 了 表示 "类 型 S 和 类 型 T 在 定义 
上 是 等 价 的 "。 这 个 关系 与 项 层次 上 的 归 约 关系 相似 。 新 规则 TE9 体现 出 了 类 型 间 定义 性 等 价 
的 作用 。 分 类 前 提 ( 在 以 前 的 几 节 中 没有 对 其 讨论 ) 保 留 了 上 面 提 到 的 不 变性 “可 类 型 化 的 项 一 
定 有 可 分 类 的 类 型 “。 注 意 这 条 规则 与 带子 类 型 化 系统 中 包含 规则 (T-Sub) 的 相似 点 。 

对 这 个 系统 的 基本 元 理论 性 质 ,我 们 还 有 一 些 工 作 要 做 ,因为 类 型 等 价 关系 在 形成 项 的 类 
型 上 引入 了 极 大 的 灵活 性 。 我 们 把 这 个 讨论 推迟 到 第 30 章 来 完成 。 
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在 第 29 章 中 ,我 们 看 到 如 何 把 类 型 算 子 加 入 到 入 .中 去 , 接 下 来 很 自然 的 一 个 步骤 就 是 如 
何 将 类 型 算 子 和 本 书 中 研究 的 其 他 类 型 特征 联合 起 来 。 在 本 章 中 ,我们 将 类 型 算 子 和 下 系统 
的 多 态 性 联合 在 一 起 ,产生 了 一 个 著名 的 系统 称 之 为 F.(Girard,1972)。 第 31 章 对 下 进行 了 
扩充 ,加 入 了 子 类 型 化 ,构成 F< 系统 。F. 系统 是 我 们 对 第 32 章 中 纯 函数 对 象 进行 最 终 实 例 
分 析 的 基础 。 

F., 的 定义 是 X。 与 了 系统 的 特征 的 直接 组 合 。 但 是 , 跟 大 多 数 我 们 见 到 的 系统 相 比 ,证 明 
F. 的 基本 性 质 (保持 和 进展 ) 需 要 付出 更 多 努力 ,因为 我 们 必须 处 理 这 样 一 个 事实 ,在 类 型 层 
次 上 ,类 型 检查 要 求 值 。 对 这 些 问题 的 证 明 将 构成 本 章 的 主要 内 容 。 


30.1 定义 


F. 系统 由 第 23 章 中 介绍 的 了 系统 和 第 29 章 中 介绍 的 X。 组 合 而 成 ,并 且 在 类 型 变量 绑 定 
的 地 方 ( 也 就 是 说 类 型 抽象 和 类 型 量词 中 ) 加 入 了 分 类 解释 (X: :K)。 只 含 全 称 量词 (而 不 是 存 
在 量词 ) 的 忆 ., 系统 的 形式 化 定义 如 图 30.1 所 示 。 虽 然 跟 以 前 讨论 的 一 些 系统 的 差别 很 小 ,但 
为 了 让 读者 方便 地 参考 ,更 好 地 理解 30.3 节 中 的 证 明 ,我 们 列举 了 所 有 的 规则 。 











- 堵 江 扩展 Aw (29.1) 和 下 上 系统 (23.71) 
证 法 ， 求 值 让 | 
t 3 项 :| 
X 变量 | 2 (E-APP1) 
六 X3T 七 抽象 2 
tt 应 用 tz 一 t _ 
AX 贡 Mt 类 型 抽象 责 记 二 (E-APp2) 
tC -= 类 型 应 用 
| (CAx:Tiltl2) va 一 [x 一 vz]tiz (E-APPABS) 
V  ] 值 : tl 一 tl 
AX: 工 .七 抽象 值 | ti [FE 二 首 刘 5 (E-TAPDP) 
AX 淹 松 ,t 类 型 抽象 值 ， 
| “〈(AX 油 风 兴 .tiz) [Tz] 一 [X -~ Tzlti2 
T 类 型 ; (E-TAPPTABS) 
X 类 型 变量 | 分 类 
下- 人 函数 类 型 X::K ET 
VX 少 赂 .T 统一 类 型 和 (K-TVAR) 
AX::K.T 算 子 抽象 


FT 算 子 应 用 TS T 

| 工 上 - AX::KI 国王 要 4 Ki >K2> 9) 

-一 
图 30.1 高 阶 多 态 ljambda 算法 F。 


@ 本 章 的 例子 是 根据 带 记录 型 ,布尔 型 和 存在 类 型 (参见 图 30.2) 的 F。 系统 (参见 图 30.1)。 相 关 的 OCaml 实现 为 fl- 
lomege。 对 30.5 节 提 到 的 依赖 类 型 没有 相关 的 实现 。 
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ea 























和 上 下 文 : ET 
2 项 变量 绑 定 0 
其 环 定 | 也 芭 志 [于 六 下 民生 2 人 志 
开 , X2: K 类 型 变量 绑 定 | 2 下 1 过 RE (K-ARROW) 
K_ := 分 类 ; 
人 (K-ALD 
K=K 算 子 分 类 
有 Continued... 
(QO-REFD ， 站 总 开 
开 入 这 下 
(Q-SYMM) . 
FF 和 二 下 和 人 
工 - AXx:Ti vtz :Ti 一 了 > > 
(Q-TRANS) 
| TFtt :TI 一 Ti THF- t2 :Ti CA 
| 上 上 - 下 二 Ti> 人 
(O-ARROW) | 
T, X 员 - tz : T: 让 
人 
(CA FF ti VX 演 网 .Ti2 
、 FE 人 Ka 
5 和 | 二 [下 apAt) 
和 X::K1.S2z 三 AX2:Ki.Tz | 2 0 
8 本 本 [Frt29 S 三 区 RH 3 六 人 
- (QO-AppP) ， 磋 和- 二 关于 人 9 


SET 
(AX::KI .Ti2) T2 三 [X……T2]TI2(O-APPABS) 
烙 二 aa 


图 30.1 高 阶 多 态 lambda 算法 F. ( 续 ) 


我 们 把 YX:: * T 缩 写 为 YX.T,| 3X:: * , 玫 记 做 | 了 XT} ,这 样 了 系统 的 项 也 可 以 直接 
读 做 F。 系统 的 项 。 

类 似 地 ,我们 在 存在 量词 的 原始 表述 中 对 估 X 到 X:: 开 的 绑 定 进行 归纳 ,获得 了 存在 量词 
类 型 的 高 阶 变 式 。 图 30.2 对 这 个 扩展 进行 了 总 结 。 


30.2 实例 


我 们 将 在 第 32 章 中 看 到 一 个 编程 的 扩展 实例 ,编程 中 用 到 了 涵盖 类 型 算 子 的 抽象 。 这 里 
先 举 一 个 小 一 点 的 例子 。 回 忆 一 下 24.2 节 中 根据 存在 量词 对 抽象 数据 类 型 做 的 编码 。 假 设 
我 们 现在 想 实 现 一 个 序 对 ADT, 其 实现 方式 就 与 先前 实现 的 计数 器 类 型 的 ADT 一 样 。 这 个 
ADT 应 该 能 够 完成 构造 序 对 以 及 拆 分 序 对 的 操作 。 另 外 ,这 些 操 作 最 好 是 多 态 的 ,这样 就 可 以 
构造 和 使 用 任何 类 型 S 和 了 T 的 元 素 的 序 对 。 也 就 是 说 ,我 们 提供 的 这 个 抽象 类 型 不 应 该 为 合 
适 的 类 型 ,而 应 该 是 一 个 抽象 类 型 构造 子 (或 算 子 )。 与 先前 讨论 的 ADT 一 样 , 它 也 应 当 是 抽 
象 的 :对 每 个 S 和 T,pair 操 作 把 S 或 了 的 元 素 当成 参数 ,并 且 返 回 Pair ST 的 元 素 。 而 fst 和 
snd 则 把 Pair ST 作 为 参数 相应 地 返回 S 或 T。 抽 象 成 的 客户 端 应 当知 道 它 。 
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新 语法 形式 新 类 型 等 价 规则 S 三 T 
下 ?= 类 型 ， | Socczz eg na 












{3X 汪 要,T} 存在 量词 类 型 ， ~ 一 RE (Q-SOME) 
新 求 值 规则 t 一 蕊 | 新 类 型 化 规则 
jet {X,xj=(Cf*Til,vVi2yasTi) int> 。 本 
一 [X 一 TIlfx 一 vizjtz 
(E-UNPACKRKPACK) ( 工 PACK) 
人 局 
{ 人 Das | 
NTSC RS | 
新 分 类 规则 II 
( 民 -9SOME) 
1 





30.2 高 阶 存在 量词 类 型 
从 这 些 要 求 ,可 以 读 出 我 们 希望 序 对 ADT 能 表达 出 的 情况 : 


PairSig = {3Pair:w* 之 * 一 *， 
{fpair: YX VY。，X-Y 一 (Pair X Y)， 
fst: YX. VY. (Pair X Y) 一 X， 
snd: YX. YY， (Pair X Y) 一 Y]}}; 


也 就 是 说 ,一 个 序 对 的 实现 应 该 提供 一 个 类 型 算 子 Pair 加 上 给 定 类 型 的 多 态 函 数 pair,fst 和 snd。 
下 面 是 用 该 类 型 建立 包 的 方法 : 


pairADT = 
{*AX，AY.，VR.(X-Y-R) 一 R， 
{fpair = AX. AY. AX:X，Ay:Y. 
AR，Ap:X 一 Y 一 R. p x y， 
fst = AX。AY， 和 AP: VYR。(X 一 Y-R) 一 R， 
PCX]IIKCAK:X2  AYSYS 2 ， 
snd = AX. AY， 和 Ap: VYR，. (X-Y--R) .一 R。 
pP [Y] CAx:X. Ay:Y. y)}} as PairSig; 
* pairADT : PairSig 
隐藏 的 表示 类 型 是 算 子 XX.XY. VR.(X-~Y->R) 一 R, 我 们 以 前 (参见 23.4 节 ) 用 它 来 表示 过 序 
对 。 其 中 pair,fst 和 snd 是 合适 的 多 态 函 数 。 
定义 完 pairADT ,我 们 可 以 按 通常 的 方式 解 开 包 : 


let {fPair,pair}j=pairADT 
in pair.fst [Nat] [Boo1] (pair.pair [Nat] [Boo1] 5 true)， 
* 5 : Nat 


30.3 性 质 


现在 来 确立 F。 系统 的 基本 性 质 ,特别 是 保持 定理 和 进展 定理 。 这 些 定理 的 证 明 中 所 包含 
的 思想 跟 我 们 以 前 看 到 的 差不多 ,但 是 必须 小 心 进行 ,因为 我 们 处 理 的 是 一 个 更 大 更 复杂 的 系 
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统 。 特 别 地 ,还 要 花 一 部 分 时 间 去 分 析 类 型 等 价 关 系 的 结构 。 为 了 缩短 证 明 过 程 , 我 们 仅 处 理 
F. 的 全 称 部 分 ,如 图 30.1 所 示 。 还 可 直接 将 证 明 推 广 到 存在 类 型 。 
基本 性 质 
首先 来 介绍 一 些 简单 的 性 质 ,随后 将 用 到 它们 。 
30.3.1 引 理 [加 强 ]: 如 果 T,x:S,AF T:IK, 那 么 P,AH TIK。 
证 明 :分 类 关系 不 涉及 项 变量 绑 定 。 
由 于 多 样 性 的 原因 ,我 们 把 上 系统 的 置换 和 弱化 结合 起 来 证 明 ,而 不 是 像 以 前 那样 一 个 
接 一 个 来 证 明 。 
30.3.2 ” 引 理 [置换 和 弱化 ] :假定 我 们 有 上 下 文 和 A, 其 中 对 某 些 上 下 文 并 来 讲 ,A 是 
了 ,过 的 良 形式 置换 。 也 就 是 说 A 是 下 的 一 个 扩展 的 置换 。 
1. 如 果 了 FT:K, 那 么 AFT'IK。 
2. 如 果 了 FF t:T, 那 么 AHF tbT。 
证 明 : 对 推导 直接 进行 归纳 。 
30.3.3 ” 引 理 [项 的 代 换 ]: 如 果 下 ,xz:S,AF ttT, 且 下 上 s:S, 那 么 下 ,AHF[x Fr=s]t;T。 
证 明 : 对 推导 直接 进行 归纳 { 练 习 [*] :在 何 处 可 用 到 定理 (30.3.1)? 那么 定理 (30.3.2) 呢 ?| 
30.3.4 引 理 [类 型 代 换 ]: 
1. 如 果 T,Y::TJAFT::K 且 PFS: :那么 PT,[Yr=-S]AFIY FS]T::K。 
2. 如 果 T=U, 则 [Yr-SIT=Fy r-S]U。 
3. 如 果 T,Y::TAFET 且 PF SIJ 则 P,[YrS]AFIYr-Ssjt:fYy rr-S]T。 


证 明 : 对 情况 K-TVar 和 T-Var, 使 用 弱化 定理 [参见 定理 (30.3.2)] 直 接 对 推导 进行 归纳 。 对 
情况 Q-AppAbs ,同样 可 知 [X Fr~[Y r~ S]T]([Y r- S]To) 等 价 于 [Y FS](X 一 开 ]T，)。 


类 型 等 价 和 归 约 


为 了 确立 忆 . 系统 中 类 型 的 性 质 ,用 一 个 类 型 等 价 关系 的 有 向 变 式 , 称 为 并 行 归 约 ,十 分 方 
便 ( 参 见 图 30.3)。 与 类 型 等 价 的 不 同 在 于 ,去掉 了 对 称 规则 和 传递 规则 , 且 规 则 QR-AppAbs 
允许 约 式 子 请 名 的 归 约 。 去 掉 对 称 规则 ,使 归 约 关系 更 多 “计算 的 "感觉 , (MX::Ku ,To)mT 简 
化 成 [X 一 T]Ta; 该 有 向 性 使 得 归 约 关系 更 容易 分 析 , 比如 在 下 面 定理 (30.3.12) 的 证 明 中 。 
去 掉 传递 性 ,以 及 同时 人 允许 组 成 部 分 的 归 约 以 简化 lambda 约 式 是 基于 技术 上 的 考虑 :我 们 做 
出 这 些 变化 以 得 到 一 步 菱形 性 质 的 关系 ,参见 定理 (30.3.8) 。 

并 行 归 约 关系 的 一 个 关键 性 质 是 传递 闭 包 和 对 称 闭 包 , 写 做 (全 * ) ,与 类 型 等 价 一致 。 


30.3.5 引 理 :S =T, 当 且 仅 当 S 掀 *T。 


证 明 : 生 方向 的 证 明 是 显而易见 的 。 对 于 汪 方 向 的 证 明 , 难 点 在 于 一 个 类 型 等 价 推导 ,也 
许 会 在 任意 点 上 用 到 Q-Symm 和 Q-Trans, 而 钟 * 关系 的 定义 中 仅 人 允许 在 最 外 -- 层 使 用 对 
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称 和 传递 。 这 个 问题 可 如 下 解决 :任意 推导 $S =T 都 可 以 转换 成 一 系列 非 传递 性 推导 ， 
S=S =S =S =…=S,， = 了 连接 在 一 起 利用 在 上 部 传递 性 ,其 中 每 个 子 推导 $, = S,，,， 
Q-Symm 只 用 做 最 后 的 规则 (或 根本 不 用 )。 





并 行 归 约 Sz 刀 T2 OORAsa 
于 的 下 (QR-REFIU) AX2KL.S2 己 AX:KI -T2 

SI 多 Ti S2z 中 下 2 Sl 确 T) Saz 四 T2 
忆 22 鸣 -2 R_ARR 一 -一 (QR-APP 
S1 一 S2 叹 Ti 一 T2 QQ ow) Si 52 内 Ti T2 Q ) 

S2: 苞 T2 3S12 甩 T12 32 马 T2 
-ALT | 一 -一 一 全 一” ” (QRAppABS) 

VX:KI,S。 宛 VX3KI.T2 (QR AID (CAX2Kil.S12) 92 所 [X 一 Tz]Ti2 9 


一 一 -一 ~ 1 
图 30.3 ”类 型 的 并 行 归 约 
另外 ,就 如 下 面 的 几 条 引 理 所 示 的 那样 ,并行 归 约 可 以 简单 地 视 为 汇合 的 (汇合 通常 被 称 
为 Church-Rosser 性 质 ) 。 
30.3.6 引 理 ;如果 S$s S' ,那么 对 任意 类 型 T 有 [Y F~-S ]T 纪 [Y FS ]T。 
证 明 : 对 工 的 结构 进行 归纳 。 
30.3.7 引 理 : 如 果 SseS 且 TaT 和 那么 Yr-SITeiYr-ST。 
证 明 : 对 给 定 的 第 二 个 推导 进行 归纳 。 情 况 QR-Ref 用 引 理 (30.3.6)。 情 况 QR-Abs,QR- 
App,QR-Arow,QR-AL 直接 使 用 归纳 假设 进行 处 理 。 对 情况 QR-AppAbs, 有 T= (XX:: 
Ku .To )T 及 开 二 [X 三 一 T JJT2 ,其 中 T> 人 为 Ti 且 王 动 To 根据 归纳 假设 ， [Y 上 一 Sj]Tia 们 
LIYr-S To 及 [Yer-SlTey r-S]T。 应 用 QR-AppAbs, 有 (AXX::K.[YF-SlT)[Y 
一 SS 五 [EXFr[YS 用](LY FST2), 即 [YFS] (COX:K Ta) )[YF-S] 
(LIX FTo)。 
30.3.8 ” 引 理 [ 归 约 的 一 步 萎 形 性 质 ] :如 果 SasT 且 S 2U, 那 么 存在 某 类 型 V 满足 TsV 
且 TsV。 
证 明 : 留 做 练习 [推荐 ,xxy]。 
30.3.9 。 引 理 [汇合 ]: 如 果 Se x*T 且 Se *TU, 那 么 存在 某 类 型 V 使 Ta x*V 和 Us*xV。 
证 明 : 如 果 从 S$ 到 T 以 及 从 S$ 到 的 归 约 的 步 又 按 如 下 可 视 化 显示 
ANN 
久 NS 
T U 


那么 ,我 们 可 以 重复 使 用 引 理 (30.3.8) , 平 铺 显示 图 表 的 内 部 ,以 得 到 一 个 大 的 鞭 形 。 该 
芳 形 下 部 的 边 代 表 我 们 需要 的 妇 约 。 











30.3.10 ”命题 :如 果 S$ 参 " 人 T, 那 么 存在 某 类 型 U 使 得 S2 "0U, 晶 Te ”0U。 

证 明 ; 留 做 练习 [xx*]。 

这 个 命题 告诉 了 我 们 等 价 和 归 约 的 关系 ,如果 两 个 类 型 是 等 价 的 , 则 它们 有 一 个 共同 的 约 
式 。 这 给 了 我 们 一 个 结构 上 的 提示 :还 应 该 证 明 它 的 道 转 性 质 。 

30.3.11 推论 :如果 S =T, 那 么 存在 某 U 使 Sa2“U,Ts“U。 


保持 

我 们 现在 基本 上 为 证 明 * 在 归 约 中 类 型 是 保持 的 "做 好 了 准备 。 像 往 澡 一样, 现在 惟一 需 
要 的 就 是 逆转 引 理 ,对 结论 具有 某 个 确定 形状 的 推导 , 北 转 引 理 可 以 给 出 其 子 推导 的 形状 。 提 
出 引 理 之 前 , 先 对 并 行 归 约 做 个 简单 判断 。 

30.3.12， 引 理 [ 归 约 下 的 形状 保持 ]: 

1. 如 果 SS s T, 那 么 T= 人 一 下 其 中 S 中" 人 且 吕 扫 T。 

2. 如 果 VX::K, .9 s"T 了 ,那么 T= VXIIRK .了 其 中 人 中。 

证 明 , 直 接 归纳 。 

30.3.13 ” 引 理 [逆转 ]: 

1 . 如 果 了 上方 AXx:S .9 了 一 人 了 , 则 了 三 9 ,了 ,x: Si 全 s :了 且 开 片 S 。 关 品 

2. 如 果 PFH MX VYXIK TD 则 J=K 且 PXTFw:P。 

证 明 : 对 于 第 (1) 部 分 ,我 们 使 用 归纳 来 证 明 。 看 下 面 这 个 更 一 般 的 说 明 ; 如 果 下 F )x; 

S .93:S 且 5S = 了 一 下 , 则 了 拓 S ,T,x:S Fe:T。 直 接 使 用 规则 T-Eq 进行 归纳 。 最 有 意 

思 的 情况 是 规则 TAbs, 该 规则 是 归纳 的 基础 。 在 该 情况 中 ,S 具有 Si ->S, 的 形式 ,并 且 

TD,x:S FF wa:S。 引 理 L130.3.12(1)] 告 诉 我 们 Ti =S 人 =S ,根据 工 Eq, 得 到 T,x:S FF es 

卫 。 另 外 ,根据 TAbs 的 另外 一 个 前 提 , 我 们 得 到 TH Si: : * ,由 此 得 证 。 第 (2) 部 分 的 证 明 

与 此 类 似 。 

30.1.14 ”定理 [保持 ] :如 果 下 FF t:T 且 Feb , 则 PHF biT。 


一 
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证 明 :对 类 型 归纳 进行 直接 归纳 。 证 明 过 程 与 带子 类 型 化 的 简单 类 型 Iambda 演算 保持 的 
证 明 相 似 。 

情 滨 T-VAR: 七 =X 
不 会 发 生 ( 没 有 对 变量 的 求 值 规则 )。 

情况 T-ABS: 了 廿 = AXITi.t2 
不 会 发 生 (i 已 经 是 一 个 值 了 )。 

情况 T-APP: 世 = tlt2 THFtiliTii 一 Ti 工 }:-t2 ;Til T=Ti2 
从 图 30.1 中 ,我们 看 到 ,由 规则 E-Appl,E-App2,E-AppAbs 能 推导 出 t>t。 对 前 两 个 规 
则 ,直接 运用 归纳 假设 就 可 以 得 到 结论 。 第 三 个 规则 更 有 趣 一 些 : 

子 情况 E-APPABS: tl=Ax:Sll. tl2 t2 = V2 t' = [x 一 vz]tl2 
根据 引 理 [30.3.13(1)], 有 Ti=S 上 且 T,x:SuhF tsT。 由 TE9q 有 THFb:si。 根 据 这 个 
结论 以 及 代 换 引 理 (30.3.3) ,得 出 T 广 fb Tu。 

情况 T-TABS:， 七 = AX:Kit2 
不 会 发 生 (t 已 经 是 一 个 值 了 )。 


情况 T-TAPP， 七 = ti [Tz] 工 上 tl : VX2KII. 了 TI2 工 上 FT2 :: KK11 
T=[X=Tz]Ti2 


与 情况 工 App 类 似 , 用 类 型 代 换 引 理 (30.3.4) 代 蔡 项 代 换 引 理 (30.3.3) 
情况 T-EQ: THFHt:S SET TFT::s* 

由 归纳 假设 ,中 Fu :S。 再 根据 TEqPFt:T。 
进展 

二 一 个 任务 是 进展 定理 。 同 样 ,我 们 已 经 有 了 证 明 该 定理 的 大 部 分 内 容 
一 个 典型 形式 引 理 , 它 能 给 出 闭 值 的 形状 。 

30.3.1$ 引 理 [典型 形式 ] 

1. 如 果 t 是 一 个 带 F ft 一 呈 的 闭 值 , 则 1 是 一 个 抽象 。 

2. 如 果 t 是 一 个 捍 F_ t: YX::K . 工 的 闭 值 , 则 + 是 一 个 类 型 抽象 。 


证 明 : 两 部 分 的 证 明 是 类 似 的 ;我 们 只 证 明 第 (1) 部 分 。 因 为 只 有 两 种 形式 的 值 ,所 以 如 果 
t+ 是 一 个 值 而 不 是 抽象 , 则 t 肯定 是 类 型 抽象 。 假 定 (为 了 推出 矛盾 )t 是 一 个 类 型 抽象 , 那 
么 -ETm 的 给 定 的 类 型 推导 最 后 必定 使 用 的 是 规则 T-TAbs 以 及 一 个 非 空 系列 的 
T-Eq。 也 就 是 说 , 它 应 该 是 下 面 这 个 形式 (忽略 分 类 前 提 ): 





缺少 的 仅 有 


一 (T-TABS) 
F 蒂 : YX:23KII1.912 VYX2KII1.912 三 山 
一 (T-EQ) 
FFtl:Ui 
三 二 牛 Un-i Un_1 三 Un 
一 (T-EQ) 
FFt: Un Un 三 Ti 一 T2 
(T-EQ) 


FFtITi 一 T2 
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因为 类 型 等 价 是 传递 性 的 ,我 们 可 以 把 所 有 的 等 价 折合 成 一 个 ,得 到 VX: :K .Su = 了 ~。 

现在 ,由 命题 (30.3.11) ,必然 存在 某 个 类 型 U ,使 得 VX': :Ki .Soe*U 以 及 Ti 一 T 盐 *U。 再 

根据 引 理 (30.3.12) ,这 样 的 U 必须 有 一 个 量词 和 一 个 箭头 作为 其 最 外 层 的 构造 子 。 这 是 

政 盾 的 。 一 

30.3.16 ”定理 [进展 ] :假定 ! 是 一 个 封闭 的 良 类 型 的 项 ( 即 对 某 个 T, 有 HH t:T) ,那么 + 要 

么 是 一 个 值 , 要 么 存在 某 个 局 ,使 得 t>t。 

证 明 : 对 类 型 推导 进行 归纳 。 情 况 工 Var 不 可 能 发 生 , 因 为 + 是 封闭 的 。 情 况 工 Vbs 和 工 

TAbs 直接 得 到 证 明 ,因为 抽象 就 是 值 。 情 况 T-Eq 直接 通过 归纳 假设 来 证 明 。 剩 下 的 情况 

只 有 应 用 和 类 型 应 用 ,这 两 种 情况 更 有 趣 一 点 。 我 们 给 出 类 型 应 用 的 证 明 ,另外 一 个 类 似 。 

情况 TTAPP: t= tl [T2?] Htl : VX:Kil.Tiz FT2z 2 K1 

由 归纳 假设 , 要么 是 一 个 值 , 要 么 可 以 进行 一 步 求 值 。 如 果 b 可 以 进行 一 步 求 值 , 则 对 1: 

运用 规则 ETApp。 如 果 是 一 个 值 , 则 由 典型 形式 引 理 (30.3.15),t 是 一 个 类 型 抽象 ,对 

t 运用 E-TAppTAbs。 

30.3.17 练习 [推荐 ,**] :假定 我 们 在 类 型 等 价 关系 中 加 入 下 面 这 个 特殊 的 规则 ; 

T--T 三 VX:2”,T 
系统 的 郧 一 条 性 质 将 不 再 成 立 ( 如 果 有 的 话 )? 假定 加 入 规则 ; 
9 一 T 三 T~5$ 

哪 条 性 质 将 不 再 成 立 (如 果 有 的 话 )? 
分 类 

在 图 30.1 F. 的 定义 中 ,我 们 在 保证 类 型 的 良 分 类 性 方面 做 了 一 些 努 力 。 使 用 这 些 规则 
对 项 的 推导 保证 良 分 类 类 型 。 特 别 地 ,T-Abs 在 把 对 lambda 抽象 的 类 型 注释 加 入 到 上 下 文 之 前 ， 
对 其 进行 检查 ,以 确定 它 是 不 是 良 形 式 的 。T-Eq 检查 归属 于 + 的 类 型 了 是 否 具有 分 类 * 。 保 证 
良 形式 的 准确 意义 由 下 列 命题 给 出 。 

30.3.18 定义 :上 下 文 了 是 良 形式 的 ,只 要 (1)7T 是 空 的 ,或 (2)F = T ,x:T, 其 中 PP 是 良 

形式 的 , 且 PFT:* ,或 (3)P=T,X::K, 其 中 是 良 形式 的 。 三 者 满足 其 一 即 可 。 

30.3.19 命题 :如 果 TF t:T 且 是 良 形 式 的 , 则 下 F 开 :xx 

证 了 明 : 对 TTApp 情况 用 引 理 [30.3.4(1)] 做 常规 归纳 。 
可 判定 性 

由 于 篇 幅 限 制 , 本 书 未 包含 对 F。 系统 可 判定 性 的 完整 证 明 ， 即 类 型 检查 算法 的 可 靠 性 、 完 
备 性 以 及 可 终止 性 。 但 是 几乎 所 有 需要 的 思想 都 与 第 28 章 中 介绍 的 F。 系统 的 最 小 类 型 算法 
相似 。 

我 们 注意 到 分 类 关系 是 可 判定 的 (因为 其 规则 是 语法 制导 的 )。 这 疫 什 么 好 奇 树 的 ,因为 


我 们 知道 分 类 其 实 就 是 高 一 层 的 简单 类 型 lambda 演算 。 这 也 保证 了 类 型 规则 中 良 分 类 检查 
可 以 被 有 效 地 实现 。 
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接 下 来 ,我 们 从 类 型 关系 中 去 除 一 个 非 语法 制导 的 规则 T-Eq, 类 似 于 从 下 .系统 中 去 择 了 
规则 TSub。 然 后 ,将 对 其 余 的 规则 做 检查 ,确定 必须 对 哪些 前 提 做 一 般 化 处 理 , 以 弥补 去 掉 的 
TEq 起 到 的 作用 。 有 两 处 关键 点 : 

1. 在 TApp 和 TTApp 的 第 一 个 前 提 条 件 中 ,我 们 需要 用 T-Eq 重 写 左 边 子 表达 式 t 的 类 

型 ,以 把 箭头 或 量词 提 到 外 面 去 [例如 ,如 果 上 下 文 把 变量 x 与 类 型 (MX.X-X)Nat 联系 
在 一 起 , 则 应 用 x $ 具有 类 型 Nat, 因为 我 们 可 以 把 x 的 类 型 重 写成 Nat->Nat]。 

通过 引 人 28,1 节 中 介绍 的 揭示 关系 的 一 个 类 似 关 系 来 实现 重 写 。 这 里 ,不 再 提升 
的 最 小 类 型 ,直到 它 成 为 箭头 类 型 或 量词 时 ,我 们 只 对 它 进 行 归 约 一 一 比如 重复 运用 
图 30.3 中 的 规则 直到 没有 非 平凡 归 约 的 可 能 性 出 现 。 

为 了 保证 这 个 化 简 过 程 可 终止 ,我们 需要 证 明 归 约 规则 是 规范 化 的 。 当 然 , 对 于 非 良 
分 类 的 项 , 归 约 将 不 是 规范 化 的 ,因为 了 系统 的 类 型 语法 包括 所 有 发 散 的 项 , 如 
omega 进行 编码 的 原 语 。 幸 运 的 是 ,根据 命题 (30.3.19) ,只 要 我 们 以 生 信 天 的 和 于 
开始 (执行 合适 的 分 类 检查 以 保证 写 人 上 下 文中 的 任意 一 个 注释 都 是 良 分 类 的 ), 只 需 
要 处 理 良 分 类 的 项 ,这 些 项 通常 可 以 归 约 为 惟一 的 范式 (采用 第 12 章 中 的 方法 )。 

2. 在 TApp 的 第 二 个 前 提 条 件 中 ,我 们 可 能 需要 用 等 价 来 对 所 的 类 型 和 箭头 类 型 
中 左 端 T 进行 匹配 。 该 规则 的 一 个 算法 变 式 将 对 呈 和 也 进行 等 价 检查 。 等 价 检 查 
可 以 如 下 完成 :把 了 下 和 Ti 都 归 约 成 它们 各 自 的 范式 ,然后 测试 是 不 是 相同 (以 转变 量 
的 名 字 为 模 ) 。 

30.3.20 ”练习 [xxxx*] :基于 上 述 思 想 , 实 现下, 系统 的 类 型 检查 器 ,以 purefsub 检查 器 作 

为 出 发 点 。 


30.4 F., 系统 片断 
直觉 上 ,入 .和 下 系统 显然 是 包含 在 F。 系统 中 的 。 我 们 在 F. 范围 内 定义 一 个 系统 层次 结 


构 , P ,P> ,P ,来 使 直觉 更 加 精确 。 


30,4.1 定义 :在 系统 P 中 ,惟一 的 一 个 分 类 是 * ,类 型 的 量词 化 (V ) 和 抽象 (X) 都 是 不 
允许 的 。 后 面 的 系统 根据 第 奔 层 分 类 来 划分 层次 ,定义 如 下 : 


Xi = 人 
Xi = fjUf=KI]JEeXi andK e Xi+1} 
Xu = UsXi 


在 系统 肪 中 ,仍然 只 有 分 类 * ,在 类 型 层次 上 ,lambda 抽象 仍然 是 不 允许 的 ,但 可 以 对 分 
类 * 的 合适 类 型 进行 量词 化 。 在 系统 肪 中 ,允许 对 类 型 算 子 进行 量词 化 (可 以 写 出 形 如 
VX::K.T 的 类 型 表达 式 , 其 中 Ke 炎 ;), 并 引入 合适 类 型 的 抽象 ( 形 如 XX:: * .T 形 式 的 类 
型 表达 式 具 有 分 类 * 一 * )。 通 常 ,Fi 系统 允许 在 炎 ,,, 分 类 层次 上 对 带 分 类 的 类 型 进行 
量化 ,在 火 , 分 类 层次 上 对 分 类 的 类 型 进行 抽象 。 


GO 实际 上 ,F. 系统 的 大 部 分 类 型 检查 使 用 了 归 约 的 保守 形式 : 弱 的 头 归 约 , 即 在 约 式 的 最 左 和 最 外 归 约 ,直到 某 具 体 
构造 子 ( 即 除了 应 用 外 ) 出 现在 类 型 最 前 端 时 才 停止。 
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局 就 是 简单 类 型 的 lambda 演算 入 . 。 表 面 上 , 它 的 定义 远 比 图 9.1 中 的 定义 要 复杂 ,因为 
它 包含 了 分 类 和 类 型 等 价 关 系 ,但 这 些 都 是 微不足道 的 :每 一 个 含 分 类 * 语法 构成 上 是 良 形式 
的 类 型 也 是 良 分 类 的 ,类 型 了 只 有 惟一 的 等 价 类 型 , 即 它 本 身 。P 是 我 们 讨论 过 的 系统 了, 因 
其 在 分 层 结构 上 处 的 位 置 ,通常 称 它 为 二 阶 lambda 演算 。 书 系统 是 第 一 个 分 类 和 等 价 关 系 为 
非 退 化 的 系统 。 

有 意思 的 是 ,本 书 的 所 有 程序 都 是 基于 也 系统 的 (严格 地 讲 , 第 32 章 中 介绍 类 型 算 子 Ob- 
ject 和 Class 是 基于 了 丈 系统 的 ,因为 其 参数 是 分 类 ( * 一 * ) 沁 *< 的 一 个 类 型 算 子 。 但 我 们 同样 
可 以 以 元 语言 的 缩写 机 制 来 处 理 这 两 个 类 型 算 子 , 而 不 是 以 演算 的 成 熟 表达 式 来 处 理 ,如 在 
第 29 章 对 Pair 的 处 理 , 因 为 在 用 到 Object 和 Class 的 例子 中 不 需要 给 这 种 类 型 量化 。 另 一 方 
面 ,把 编程 语言 限制 在 瑟 系统 而 不 是 全 下 。 系统 ,并 没有 对 实现 难度 或 元 理论 复杂 度 的 简化 有 
多 大 帮助 ,因为 类 型 算 子 抽象 和 类 型 等 价 在 这 层 已 经 存在 。 


30.4.2 练习 [xxxx 太 ]: 存 不 存在 一 些 有 用 的 程序 基于 P, 系统 而 非 P 系统 ? 
30.5 进一步 讨论 :依赖 类 型 


本 书 的 大 部 分 内 容 都 把 精力 集中 于 对 各 类 抽象 机 制 的 形式 化 工作 上 面 了 。 在 简单 类 型 的 
lambda 演算 中 ,我 们 对 ”“ 取 一 个 项 ,抽象 出 子 项 ”操作 进行 形式 化 ,产生 一 个 函数 ,随后 可 以 通过 
把 该 函数 应 用 到 不 同 的 项 中 ,对 其 进行 实例 化 。 在 下 系统 中 ,我 们 考虑 的 操作 是 取 一 个 项 , 抽 
象 出 某 个 类 型 ,产生 一 个 可 被 不 同类 型 实例 化 的 项 。 在 中, 我们 概括 了 向 上 一 层 简 单 类 型 
lambda 的 演算 机 制 , 取 一 个 类 型 ,抽象 出 一 个 子 表达 式 以 获取 类 型 算 子 ,通过 把 类 型 算 子 运用 
到 不 同 的 类 型 中 对 该 算 子 进行 实例 化 说 明 。 

考虑 这 些 抽 象形 式 的 一 个 方便 的 方法 是 表达 式 艇 的 概念 ,由 其 他 的 表达 式 做 索引 。 普 通 
的 lambda 抽象 jx:T .b 就 是 项 [x r~ sla 的 一 个 艇 ,项 。 为 索引 。 类 似 地 ,类 型 抽象 )X::K .b 
是 由 类 型 做 索引 的 项 的 得 ,类 型 算 子 是 由 类 型 做 索引 的 类 型 的 能 。 

Ax:Tl.t2 项 做 索引 的 项 的 艇 

AX:Ki.tz ”类 型 做 索引 的 项 的 入 

AX2:KI.Tz ”类 型 做 索引 的 类 型 的 入 
看 上 面 这 个 例子 ,显然 还 有 一 种 刚刚 没有 讨论 过 的 可 能 性 :项 做 索引 的 类 型 能 。 这 种 抽象 形式 
已 经 被 广泛 地 研究 过 了 , 称 为 依赖 类 型 。 

依赖 类 型 提供 了 描述 程序 行为 的 一 个 精确 度 ,这 跟 我 们 以 前 见 到 的 其 他 类 型 特征 完全 不 
间 。 倒 如, 我们 有 这 样 一 个 内 置 的 类 型 RioatList, 看 如 下 一 些 操作 ; 


ni : FloatLisSt 

Cons : Float 一 FloatList -- Fl]oatList 
hd :; FloatList 一 F1oat 

二 ] : FloatList 一 F]oatList 

isni1 : FioatList -Boo] 


在 带 依赖 类 型 的 语言 中 ,可 以 把 简单 类 型 PoatList 改进 成 类 型 FloatList n 的 一 个 入 ( 含 mn 个 元 
素 的 列表 类 型 )。 
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为 了 利用 这 个 改进 ,我们 加 强 基 本 列表 的 操作 类 型 。 首 先 , 赋 给 常量 nil 类 型 FloatList 0。 
为 了 给 剩 下 的 其 他 操作 更 精确 的 类 型 ,需要 改进 函数 类 型 的 符号 ,以 表达 出 参数 与 结果 类 型 之 
间 的 依赖 性 。 例 如 ,cons 的 类 型 大 概 应 该 为 “一 个 函数 取 Float 值 和 一 个 长 度 为 mn 的 列表 为 参 
数 ,返回 长 度 为 n+ 1 的 列表 ”。 如 果 我 们 显 式 通过 给 n 提供 一 个 初始 化 参数 来 对 nm 进行 绑 定 ， 
则 cons 可 以 描述 成 “一 函数 取 数 字 mn, 一 个 了 oat 类 型 值 以 及 一 长 度 为 n 的 队列 为 参数 ,返回 一 
个 长 度 为 saucc n(n 的 后 继 ) 的 列表 。 也 就 是 说 ,在 该 类 型 中 我 们 需要 得 到 的 是 第 一 个 参数 (n) 
的 值 与 第 三 个 参数 (FloatList n) 和 结果 [PioatList (suce mn) ] 的 类 型 之 间 的 依赖 关系 。 我 们 通过 
把 绑 定 一 个 名 字 到 第 一 个 参数 上 去 来 实现 该 操作 , 记 为 In:Nat… 而 不 是 Nat->… 。cons 的 类 
型 和 其 他 列表 操作 则 变 成 ， 


ni : FloatList 0 

cons : In:Nat. Float -~ FloatListn 一 F]oatList (succ m 
hd : JIJn:Nat. Fl]oatList (Succn) -~ Fl1oat 

t1] : In:Nat. FloatList (Succn) 一 Fi1oatListn 


nil,cons ,tl 的 类 型 确切 地 告诉 我 们 在 它们 的 结果 中 有 多 少 个 元 素 ,hd 和 世 需 要 非 空 列表 作为 
参数 。 注 意 ,我 们 不 再 需要 isnil ,因为 只 要 测试 一 下 n 是 否 为 0 就 可 以 知道 FloatList n 的 一 个 
元 素 是 否 为 nil。 

Hz:T .形式 的 依赖 函数 类 型 是 箭头 类 型 全 一 的 更 精确 形式 ,其 中 我 们 绑 定 一 代表 函 
数 参数 的 变量 x, 这 样 就 能 在 结果 类 型 中 提 到 x。 在 退化 的 情况 中 ,当中 没有 提 及 x 时 , 记 
IT . 呈 表示 下 一 卫 。 

当然 ,我 们 也 可 以 定义 带 依赖 函数 类 型 的 新 项 。 例 如 ,函数 ， 


consthree = An:Nat，，Af:F1oat， A1:FloatList n. 
cons (SuUCcCCSuUccC n)) 咎 
(cons (Succ n) 下 
(Cons n 下 177; 


在 其 第 三 个 参数 (人 前 预先 考虑 了 第 二 个 参数 (f 的 三 份 拷贝 ,类 型 为 ; 

IIn:Nat. Float 一 FloatListn 一 FloatList (Succ(Csucc(Csucc n))) 
注意 ,三 次 调用 cons 时 的 第 一 个 参数 均 不 相同 ,反映 了 这 三 次 调用 的 列表 参数 长 度 也 都 不 相 
同 。 在 计算 机 科学 与 好 辑 学 上 ,存在 关于 依赖 类 型 的 广泛 文献 。 有 一 些 值得 借鉴 ,如 Smith， 
Nordstrim 和 Petersson(1990) ,Thompson( 1991) ,Luo(1994) 和 Hofimann(1997) 。 


30.5.1 练习 [xx]: 把 列表 元 素 的 类 型 固定 成 fioat 类 型 可 以 使 例子 简单 ,但 是 我 们 用 类 
型 算 子 把 它 一 般 化 成 任意 类 型 T 的 列表 。 请 说 明 该 如 何 做 。 


按照 同样 的 步 又 ,我 们 可 以 使 用 类 似 的 改进 类 型 来 构造 更 高 层 的 列表 操作 函数 。 例 如 ,能 
构造 一 分 类 函数 ,其 类 型 为 ， 
sort : IIn:Nat. F]oatListn 一 FloatListn， 
该 类 型 告诉 我 们 函数 将 返回 跟 输 入 长 度 相同 的 列表 。 事 实 上 ,通过 对 包含 的 类 型 簇 的 进一步 
改进 ,甚至 可 以 构造 出 sor 函数 ,其 类 型 列表 明 该 函数 返回 的 队列 通常 是 经 过 排序 的 。sor 函 
数 属于 该 类 型 ,也 就 意味 着 是 证 明 该 函数 满足 说 明 。 
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这 样 的 例子 描述 了 一 个 诱 人 的 画面 ;程序 按 结构 来 讲 都 是 正确 的 ,其 中 程序 的 类 型 告诉 了 
大 家 想 知道 的 程序 行为 ,类 型 检查 器 返回 OK, 使 大 家 有 信心 认为 程序 运行 正常 。 还 说 明 这 样 
的 一 种 编程 思想 :在 证 明 "* 说 明 的 可 满足 性 "时 ,把 计算 的 内 容 提取 出 来 。 形 为 “对 任意 一 个 x 
存在 一 个 y ,使 严 -的 构造 性 定理 证 明 可 以 被 视 为 函数 :把 x 映射 到 y, 并 且 有 证 据 ( 在 计算 上 无 
关 紧 要 , 仅 有 类 型 检查 器 对 它 感 兴趣 ) 表 明 该 函数 有 性 质 已 。 这 些 思想 已 经 由 Nuprl( Constable 
等 ,1986) ,LEGO(CLuo 和 Polack,1992, Pollack, 1994) 以 及 Cop(Paulin-Mohring, 1989) 项 目的 研究 
人 员 研 究 过 了 。 

遗憾 的 是 ,依赖 类 型 带 来 的 是 双重 麻烦 。 类 型 检查 与 定理 证 明之 间 的 区 别 被 混淆 后 并 没 
使 证 明 简化 。 相 反 地 , 它 使 得 类 型 检查 在 计算 上 难以 驾 御 。 使 用 机 器 证 明 作 为 助手 的 数学 家 
不 仅仅 是 输入 一 条 定理 , 按 个 按钮 , 坐 回 到 椅子 上 等 待 Yes 或 No: 他 们 需要 付出 相当 大 的 努力 
写 出 证 明 手 稿 和 策略 来 构造 和 核实 证 明 。 如 果 我 们 也 按 这 种 想法 ,程序 员 应 该 付出 同样 多 的 
努力 对 程序 进行 注释 ,给 出 解释 和 提示 ,以 引导 类 型 检查 器 。 对 某 些 关键 的 编程 任务 ,这 样 付 
出 努力 是 合适 的 ,但 对 于 日 常 编程 来 讲 ,这 个 代价 显得 太 昂贵 了 。 

无 论 怎样 ,在 实际 编程 语言 的 设计 中 ,依赖 类 型 已 有 一 些 应 用 ,包括 Russel(Donahue 和 
Demer, 1985; Hook ,1984) , Cayenne (Augustsson, 1998) , Dependent ML(Xi 和 Ptenning, 1998 , 1999 ) ， 
依赖 类 型 化 组 合 语言 (Xi 和 Harmer,2001) ,以 及 Jay 和 Sekanina(1997) 的 shape 类 型 。 这 些 语言 
以 多 种 方式 限制 依赖 类 型 ,得 到 更 易 处 理 的 系统 ,其 类 型 检查 可 以 更 好 地 自动 执行 。 例 如 ,在 
Xi 等 语言 中 ,依赖 类 型 仅 用 在 检查 数组 存 取 运行 时 间 范 围 的 静态 消除 上 。 在 这 些 语 言 中 ,类 
型 检查 时 出 现 的 定理 证 明 问题 是 一 组 线性 约束 ,对 这 些 约 束 存 在 好 的 自动 过 程 。 

依赖 类 型 对 编程 语言 有 长 时 间 影 响 的 一 个 领域 是 在 模块 系统 的 设计 过 程 中 ,该 模块 系统 
包含 了 追踪 内 部 模块 依赖 的 体制 。 在 该 领域 的 里 程 碑 包 括 Pebble( Burstal 和 Lampson ,1984) ， 
MacQueen 〈1986) ,Mitchell 和 Hamper(1988) , Harper 等 (1990) 以 及 Harmper 和 Stone 。 该 领域 的 最 
近 的 一 些 论文 已 经 采用 了 单一 分 类 的 技术 手段 ,模块 依赖 在 分 类 层次 而 不 是 类 型 层次 上 实现 
《例如 ,Stone 和 Harper,2000; Crary,2000; 在 Hayashi,1991,Aspinall,1994 也 可 以 看 到 )。 

依赖 类 型 和 子 类 型 化 的 组 合 方式 由 Cardelli(1998b) 首 先 提出 ,而 Aspinall( 1994) , Pfenning 
《1993b) , Aspinall 和 Compagnoni(2001) , Chen 和 Longo(1996) 以 及 Zwanenburg(1999) 对 其 做 了 进 
一 步 研究 和 一 般 化 处 理 。 

计算 机 科学 中 依赖 类 型 的 另外 一 个 重要 的 应 用 是 建立 证 明 助手 和 定理 自动 证 明 机 。 特 别 
地 , 带 依赖 类 型 的 简单 类 型 系统 通常 被 称 为 逻辑 框架 。 最 著名 的 是 带 依赖 类 型 的 纯 简 单 类 型 
演算 LEF(Harper, Honsell 和 Plotkin, 1992)。 ELF 及 其 相关 的 性 质 ,特别 是 构造 演算 (Coquand 和 
Huet,1988;Luo,1994) ,构成 了 定理 证 明 环 境 的 基础 ,包含 AutoMath(de Bruijn, 1980) , NuPRL 
(Constable 等 ,1986) ,LEGO(Luo 和 Pollack, 1992; Pollack , 1994) ， Coq( Barras 等 ,1997) ,ALF(Mag- 
nusson 和 Nordstrim, 1994) , 以 及 FEIF(Pftenning, 1994) 。 Pfenning(1996) 在 该 领域 做 了 更 深入 的 
综述 。 

在 本 章 前 面 讨 论 的 四 种 抽象 形式 可 以 由 下 图 表示 , 称 为 Barendregt 立方 体 @， 


人 Barendregt(1991) 称 之 为 入 立方 体 。 
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立方 体 中 所 有 的 系统 都 包含 普通 的 项 抽象 。 上 表面 代表 带 多 态 性 的 系统 (由 类 型 做 索引 的 项 
仍 ), 下 表面 代表 带 类 型 算 子 的 系统 , 右 表 面 代表 带 依赖 类 型 的 系统 。 远 端 右边 的 角 代表 构造 
演算 ,包含 所 有 的 四 种 抽象 形式 。 在 上 面 提 到 的 另 一 个 角 是 IF, 即 简单 类 型 的 lambda 演算 。 
Barendregt 立方 体 表 示 的 所 有 系统 ,以 及 其 他 一 些 系 统 , 可 以 表示 为 纯 类 型 系统 的 一 般 框架 的 


实例 (Terlouw ,1989; Berardi ,1988; Barendregt 1991 ,1992 ; Jutting, MecKinna 和 Pollack ,1994; MeKin- 
na 利 Pollack ,1993; Poillack ,1994) 。 


A-_ 
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我 们 需要 思考 的 最 后 一 个 系统 叫做 玉 . (F-omega-sub) ,仍然 是 我 们 以 前 独立 研究 过 的 一 些 
特征 的 组 合 ,这 些 特征 是 类 型 操作 子 和 子 类 型 的 组 合 形式 。 有 了 类 型 操作 子 ,这 种 组 合 可 视 为 
F-. 系统 的 扩展 ,是 含有 疗 量 词 的 二 阶 多 态 的 lamnbda 演算 。 最 有 趣 的 新 特征 是 从 分 类 * 到 更 高 
分 类 的 类 型 子 类 型 化 关系 的 扩充 。 

目前 出 现 了 多 种 不 同 版 本 的 习 : 系统 ,它们 在 表达 能 力 和 元 理论 复杂 度 上 有 差异 ,在 这 里 
使 用 非常 接近 于 Pierce 和 Steffen(1994) 提 出 的 版 本 ,也 是 最 简单 的 版 本 之 一 。 我 们 将 不 证 明 该 
系统 的 任何 性 质 ; 有 兴趣 的 读者 可 以 参考 Pierce 和 Sieffen(1994) ,或 论述 类 似 系统 的 Compagno- 
ni(1994) 或 Abadi 和 Cardelli(1996)( 如 果 将 30.3 节 的 证 明 复杂 上 度 乘 上 第 28 章 的 复杂 度 , 可 以 想 
像 出 该 系统 的 证 明 需 要 占 多 大 的 空间 )。 

讨论 及 系统 的 主要 原因 是 , 它 形 成 了 在 面向 对 象 编程 中 最 新 实例 学 习 的 框架 (参见 第 32 章 )。 
所 有 的 例子 都 不 涉及 到 玉 , 系统 定义 中 的 较 深部 分 一 一 所 需要 的 只 是 在 给 定 的 类 型 操作 子 的 
子 类 型 范围 内 写 出 固 量 词 的 能 力 。 因 此 ,读者 可 以 在 第 一 次 阅读 时 跳 过 这 一 章 , 以 后 有 问题 时 
再 回来 阅读 。 


31.1 直觉 


子 类 型 化 和 带 类 型 操作 子 的 图 量词 组 合 之 后 ,系统 在 形式 化 设计 方面 出 现 了 新 的 问题 。 
在 介绍 系统 的 定义 之 前 我 们 简要 地 讨论 这 些 问 题 。 

第 一 个 问题 是 :有 了 子 类 型 , 像 芝 : :KE 这 样 的 类 型 操作 子 是 否 应 被 概括 化 为 XX <: 
Ti .P 的 转 类 型 操作 子 。 在 本 章 中 我 们 只 用 简单 方式 (而 不 用 正规 方式 ) 定 义 一 个 具有 园 量 词 
和 非 围 类 型 操作 子 的 系统 。 

下 一 个 问题 是 如 何 加 入 类 型 操作 子 来 扩展 子 类 型 关系 。 这 里 有 几 种 选择 ,我 们 使 用 的 最 
简单 的 一 种 是 在 合适 类 型 上 逐 点 将 子 类 型 关系 提升 到 类 型 关系 操作 子 。 对 忱 .S 和 入.T, 如 
果 将 它们 应 用 于 参数 U, 产 生 的 类 型 为 子 类 型 关系 , 则 认为 必 .S 为 以 .T 的 子 类 型 。 例 如 ,对 
于 任意 的 U, 因 为 Top 一 U 是 U- 一 Top 的 子 类 型 ,所 以 MX.Top 一 X 是 MX.X-~Top 的 子 类 型 。 同 
样 ,X 抽象 不 做 任何 关于 它 的 子 类 型 或 超 类 型 的 假设 ,如 果 S 是 T 的 子 类 型 ,那么 可 以 认为 
人 MX.S 是 XX.T 的 子 类 型 。 后 一 种 观点 直接 引出 下 面 的 规则 ; 

T,XfF-S<:T 


FFAMXSC AMXT 4S-Abs) 
相反 ,如 果 下 和 G 是 类 型 操作 子 且 下 <:G, 那 么 FU <:GU。 
THFF<:CG 
FFFUzS CU 4S-App) 


@ ”本 章 中 研究 的 系统 是 纯 F: (参见 图 31.1)。 相 应 的 实现 是 fomsub(fullfomsub 实现 包含 多 种 扩展 ,如 存在 量词 )。 





一 一 一 一 一 
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注意 ,只 有 FF 和 G 被 应 用 于 同样 的 参数 U 时 ,这 条 规则 才 生 效 ; 当 参 数 不 同 时 ,即使 F 是 G 的 
逐 点 子 类 型 ,也 不 能 说 明 满 足 该 规则 (31.4 节 中 提出 的 一 些 更 复杂 的 改变 式 就 考虑 了 这 种 
情况 )。 

类 型 等 价 关 系 还 会 产生 一 条 附加 规则 。 如 果 $ 王 T, 那 么 S 和 了 有 相同 的 成 员 ,但 有 相同 
成 员 的 类 型 一 定 互 为 子 类 型 。 这 就 引出 另 一 条 子 类 型 化 规则 , 它 将 定义 性 等 价 关系 作为 基本 
情况 包含 在 内 : 四 

FTFrS:K TFT:2K  S=T 
TF9S<:T 
完成 了 从 分 类 * 到 分 类 * 一 * 的 子 类 型 化 提升 ,就 可 以 对 更 复杂 的 分 类 重复 这 一 过 程 。 例 如 : 
如 果 了 和 Q 是 分 类 * 一 * 一 * 中 的 类 型 操作 子 ,那么 ,如 果 对 任意 的 U, 应 用 PU 在 分 类 * 一 * 
中 是 QU 的 子 类 型 ,我 们 就 认为 有 P <:Q。 

该 定义 有 力 地 说 明了 更 高 分 类 的 子 类 型 关系 都 有 最 大 的 元 素 。 如 果 设 Topf * ] = Top ,而 

且 定 义 ( 高 分 类 的 最 大 元 素 ) : 

TopFKi=Kz] 性 AMX:Ki.Top[K2z]， 
那么 一 个 简单 的 归纳 可 说 明 TF S <: Top[K]( 当 S 具 有 分 类 KK 时 )。 下 一 节 中 ,我 们 将 把 该 效 
果 加 入 到 规则 中 。 

从 普通 的 园 量 词 到 高 阶 半 量词 可 直接 转变 。 严 . 系统 从 『。 系统 中 继承 了 形式 为 VX <: 
了 .PP 的 较量 词 。 概 括 化 到 高 阶 ( 即 类 型 操作 子 的 量词 ) 对 这 一 语法 不 做 任何 修改 :我 们 刚 观察 到 
这 里 的 Ti 可 以 是 任意 的 类 型 表达 方式 ,包括 一 个 类 型 操作 子 。 从 F。 继承 来 的 非 园 高 阶 量词 可 
以 被 当做 具有 最 大 边界 的 较量 词 的 缩写 , 即 把 VX: :K . 当做 YX <: Tip[K ].m 的 缩写 。 

最 后 ,F<: 系统 出 现 了 与 下。 系统 相同 的 问题 ,即使 用 S-Al 规则 更 容易 处 理 核 心 变 式 ,还 是 
用 功能 更 强大 的 全 变 式 。 在 这 里 我 们 选择 用 核心 变 式 ; 全 变 式 虽然 在 语义 上 是 合理 的 ,但 它 的 
元 理论 性 质 ( 甚 至 那些 与 全 了 .系统 相 比 之 下 也 应 该 具备 的 性 质 ) 仍 然 没 有 建立 。 


(S-Eq) 


31.2 定义 


图 31.1 列 出 了 定义 也 :的 规则 。 该 定义 有 一 个 技术 问题 :虽然 系统 提出 了 类 型 变量 的 两 
种 不 同 的 绑 定 (类 型 操作 子 中 的 X: :K 和 园 量 词 中 的 X <: T) ,但 我 们 在 上 下 文中 只 采用 后 一 
种 绑 定 。 当 我 们 将 一 个 X: :K 绑 定 器 从 一 的 右 端 移动 到 左 端 时 ,根据 规则 K-Abs 和 S-Abs, 将 
它 变 为 X <: Top[K]。 

另 一 个 有 意义 的 地 方 是 了 <: 系统 中 的 S-Refl 规则 和 下. 系统 中 的 工 Eq 规则 在 系统 中 被 
忽略 。 老 的 S-Refl 规则 实例 可 以 从 S-Eq 和 Q-Refl 中 直接 得 出 ,同时 开 Eq 规则 也 可 以 通过 工 
Sub 和 S-Egq 推导 出 。 

31.2.1 练习 [*]: 如 果 我 们 定义 玛 = 人 X.X, 且 ; 

[=B<:Top,A<:B,F <: Id 


那么 下 面 哪些 子 类 型 描述 是 可 导出 的 ? 





一 


J 
< 
少 


r 并 
这 
ii 


人 
IT TEST 下 


A 
Id A 
AX .X 


FB 
B 
FB 


Top[*>*] 
Top 


人 


X 
人 XSE2E 
二 

入 Xi .t 
《上 癌 


XXX 下 


入 X 演 和 .tt 


Top 

X 

T 一 T 

YX 沈 丝 .T 
六 
瑟 击 


二 于 
[| 
wm 于 


mm 
山 
二 


AX YY<: XiY 
AX.，VYY<:X.Y 


VF<:(AY.Top-Y). FA 
VF<:(AY.Top 一 Y). FA 
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IdB 

B 

AX.Top 

XIVYY<: Top5 立 

NAX YYT<:X5 义 

B 

FB 

FB 

VF<:(AY.Top 一 Y) . Top 一 B 
VF<:(AY.Top 一 Y). FB 
Top[* 一 * 二 *] 


人 人 人 人 


人 AAAEA 全 


基于 Fw (30.7) 和 核心 F<: (26.7) 


项 : 
变量 
抽象 
应 用 

类 型 抽象 
类 型 应 用 


值 : 


抽象 值 
类 型 抽象 值 


类 型 : 
最 大 类 型 
类 型 变量 
函数 类 型 
全 称 类 型 

操作 子 抽象 
操作 子 应 用 


上 刷 广 ， 

垂下 下 区 
项 变量 绑 定 
类 型 变量 绑 定 


分 类 : 


适当 类 型 分 类 
操作 子 分 类 


(Q-REFLD) 


(Q-SYMM) 


求 值 t 一 七 
tl 一 ti 
站 (E:Appl) 
Ex 
证 2 一 t2 
Vi t2 一 Vi t2 
(Ax:Til.tli2) va2 一 [x 一 v2]tli2 (E-APPABS) 
tl 一 tl 
ti IT LET2 


(入 X 六 红叶 .ti2) [Tz] 一 [X 一 Tz]tl2 
(E-TAPPTABS) 


(E-ApPP2) 


(E-TAPP) 





分 类 化 
汪 硬 涛 <T 二 
(K-TVAR) 
THFX2::K 
Xe 
T FF AX::Ki.T2 :: KI>K2 
TFTi 3 Kll>kKl2 和 
和 -APP 
工 -FTIT2 :Ki2 ) 
着 二 和 国内 证 区 
TFTi 一 T2 3 关 
下 Xe FT2 3 交 
人 (KK-ALLD) 
TF VX 尖 加 .T> :: 
cotinaed... 
于 二 X<:Ui 取 S> 裤 : T>2 
一 一 一 一 一 一 一 (3-ALU) 
T F YXx<:Ui.S2z < YX<:U1I.T2 
(S-ABS) 








图 31.1 高 阶 围 量词 (F< ) 
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Se USET 
和 (Q-TRANS) 全 
到 三 
= 0 (Q-ARROW) 
SS (S-Ea) 
RS =Tz 
TS -ALL 5 
7 
X:TET 
32 三 Et (CT-VAR) 
一 一 一 一 : (Q-AB5S) 
AX::K1 .S2 三 AX::Kl.T2 4 有 全 坝 
2 下 二 
STR SEE 2 汉中 X 中 王 村 2 CABS) 
SS [FAx:Ti.tz :TI 一 T> 
CAX:Kii.Tiz) Tz = [X Tz]Tiz (Q-APPABS) | 工 -ta: 下 = ER 
上 2 
了 类 型 人 ee 
Fo 
TFs<:U ThFucT 汪 9 Xtz :72 人 
下 T F AX 基 梁 .t> : VX 源 溪 .T:z 
(S-TRANS) T F tl Ti 
天 谍 家 詹 演 蒜 了 (T-TAPP) 
FS 过 Top om 了 二 
TS ES TITrt:S TFrSs<T 省 二 环 
1 (S-ARROW) 人 (T-SUB) 
TH 91 一 92 <: TI 一 T2 。 
X<:TET 
CO (S-TVAR) 
EECXR< 


ss 了 1 


图 31.1 高 阶 男 量词 (F. )( 续 ) 


31.3 性 质 


F< 基 本 性 质 的 证 明 ,包括 系统 相关 的 归 约 、 进 展 和 最 小 类 型 化 过 程 中 类 型 保持 性 质 的 证 
明 ,都 可 以 在 本 章 开 始 引用 的 文章 中 找到 。 当 然 这 些 证 明 必须 分 别 解决 子 类 型 化 , 团 量 词 和 类 
型 操作 子 引 发 的 所 有 问题 。 另 外 ,在 我 们 试图 定义 一 种 可 供 选 择 的 ,语法 制导 的 子 类 型 化 规则 
的 表现 形式 时 ,发现 了 一 个 新 的 复杂 问题 : 那 就 是 ,不 仅 类 型 变量 规则 能 够 在 子 类 型 化 推导 中 
以 一 种 必需 的 方式 , 与 传递 性 结合 使 用 (如 在 28.3 节 中 看 到 的 ) ,而 且 类 型 的 等 价 ( 参 见 规 


则 S-Eq) 也 可 以 与 传递 性 结合 。 
例如 :在 上 下 文 了 =X <: Top,F <:XY.Y 中 ,语句 下 F FX <:X 可 证明 如 下 (忽略 分 类 ): 
一 一 S-TVAR 
工 F F <: AY.Y 
FE 下 RDOXTXEQ 
: (CAY. 过 
TFFX<:X 


而 且 , 我 们 不 能 简单 地 将 所 有 类 型 表达 式 归 约 为 范式 ,因为 表达 式 F A 不 是 约 式 ,只 有 在 类 型 
检查 过 程 中 ,变量 了 被 提升 到 它 的 上 界 XY.Y 时 才 是 约 式 。 解 决 的 方法 是 在 子 类 型 检查 开始 
时 就 对 类 型 表达 式 进 行 一 次 规范 化 ,并 且 在 提升 操作 中 如 果 需 要 的 话 再 进行 一 次 规范 化 。 
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31.4 注释 


许多 Fe. 中 的 思想 都 来 源 于 Cardelli, 特 别 是 他 的 文章 “Stmctural Subtyping and the Notion of 
Power Type 构造 的 子 类 型 化 和 功能 强大 的 类 型 的 构想 ,1998a); 子 类 型 关系 到 类 型 操作 子 的 
扩展 是 由 Cardelli(1999) 和 Mitchell(1999a) 研 究 而 来 的 。Cardelli 和 Longo(1991) 利 用 部 分 等 价 
关系 提出 了 一 个 早期 的 语义 模型 ,Compagnoni 和 Perece(1996) 提 出 用 交叉 类 型 扩展 了 的 模型 。 
一 种 更 为 强大 的 包括 了 递归 类 型 的 模型 由 Bmuce 和 Mitchell(1992) 提 出 ;在 Abadi 和 Cardelli 
(1996) 的 著作 中 也 能 找到 相关 的 模型 。 

这 里 给 出 的 习 : 变 式 的 基本 元 理论 性 质 都 曾 被 Pierce 和 Steffen( 1994) 证 明 过 。 而 且 Comp- 
agnoni(1994) 也 独立 证 明 过 (使 用 一 种 更 为 聪明 的 证 明 技术 , 即 简化 那些 主要 参数 中 的 一 个 )。 
这 种 技术 也 被 Abadi 和 Cardelli(1996) 使 用 过 , 他们 证 明 的 已. 变 式 用 对 象 演算 而 非 lambda 演算 
作为 核心 项 语言 。 

如 果 我 们 改进 分 类 系统 使 它 可 以 记录 类 型 操作 子 的 极 性 ,那么 类 型 操作 子 之 间 的 子 类 型 
化 的 逐 点 定义 就 可 被 概 化 为 不 同类 型 操作 子 , 应 用 到 不 同 参 数 (FS <:GT) 的 应 用 之 间 的 子 类 型 
化 。 我 们 认为 当 $ <:T, 如 果 有 FS <:FT 则 下 是 协 变 式 ,而 如 果 了 <:FS, 则 了 是 道 变 式 。 如 果 
我 们 引入 反映 这 些 性 质 的 两 个 新 的 子 类 型 化 规则 : 

rFS<:T  F 是 协 变 式 
TPFFS< FT 
TFS<:T FF 是 逆 变 式 
THFFT<:FS 
那么 (根据 传递 性 ) 产 生 的 结果 为 :如 果 下 <:G,S <:T, 那 么 FS <:GT 且 G 是 协 变 式 。 为 了 完成 
这 些 工作 ,我 们 需要 用 它们 的 极 性 来 标记 类 型 变量 ,同时 也 要 将 高 阶 量词 限制 在 具有 特定 极 性 
的 操作 子 的 范围 内 。 有 极 性 的 ,的 版 本 在 Cardelli(1990) , Steffen(1998) 和 Duggan 和 Compag- 
noni(1999) 中 提 到 。 

这 里 用 到 的 另 一 种 F: 的 概 化 描述 是 将 非 图 的 类 型 操作 子 XX::K . 概 化 为 因 的 类 型 操 
作 子 MX <:Ti .了 。 这 是 一 个 吸引 人 的 步骤 ,因为 这 样 做 正好 符合 前 面 在 上 系统 中 增加 子 类 型 
化 来 形成 了 .的 同时 ,将 量词 概 化 为 辕 量 词 时 的 做 法 。 另 一 方面 ,因为 我 们 必须 概括 分 类 系统 
使 之 包括 形 如 YX <:T . 钙 的 分 类 ,所 以 它 实 质 上 使 系统 复杂 化 了 ;这 样 就 引起 了 分 类 化 和 子 
类 型 规则 之 间 的 相互 依赖 ,这 将 带 来 大 量 的 问题 需要 解决 。 参 见 Compagnoni 和 Goguen( 1997ai 
1997b) 。 

Chen 和 Longo(1996) 还 有 Zwanenburg(1999) 研 究 过 含 依赖 类 型 的 习 扩展 。 








第 32 章 ”实例 学 习 : 纯 国 数 对 象 、 


最 后 一 章 实例 学 习 将 继续 讨论 存在 对 象 模型 。 这 个 模型 已 在 24.2 节 中 简要 介绍 过 了 , 它 
说 明了 如 何 将 存在 包 视 为 简单 对 象 , 并 且 将 该 抽象 风格 的 性 质 与 存在 量词 的 用 法 之 间 做 对 比 ， 
以 实现 更 传统 的 抽象 数据 类 型 。 在 本 章 中 ,我 们 使 用 前 几 章 中 开发 出 来 的 一 些 工 具 ( 类 型 操作 
子 和 高 阶 子 类 型 ,加 上 在 32.7 节 中 介绍 的 一 种 新 的 特点 ,多 态 更 新 ) 来 将 这 些 简单 的 存在 对 象 
扩展 到 一 个 概念 集合 ,使 其 包含 类 和 继承 ,从 而 有 具备 成 熟 的 面向 对 象 编程 的 灵活 性 。 


32.1 简单 对 象 


我 们 首先 回忆 在 24.2 节 中 的 纯 函 数 对 象 Counter 的 类 型 ， 
Counter = {3X，{fstate:X， methods: fget:X-Nat,inc:X-X}]}; 


这 个 类 型 的 元 素 是 一 些 包 ,这 些 包 拥 有 一 个 隐藏 的 状态 类 型 X, 一 个 类 型 X 的 状态 和 一 个 类 型 
为 1get:X->Nat,inc:X 一 Xi 的 方法 记录 。 

本 章 开 始 几 节 将 把 jx:Nat| 作 为 所 有 对 象 的 表示 类 型 (在 32.8 节 中 ,将 看 到 如 何 定义 带 多 
实例 变量 的 对 象 ,以 及 增加 新 的 实例 变量 的 类 )。 当 我 们 讨论 内 部 状态 的 类 型 时 ,将 继续 使 用 
缩写 形式 CounterR。 


CounterR = {x:Nat]; 


一 个 计数 器 对 象 为 Counter 类 型 的 一 个 元 素 , 它 的 定义 依据 存在 性 规则 (参见 图 24.1 的 下 Pack 
规则 )。 
C = {*CounterR， 
{state = {x=5]， 
methods = {fget = Ar:CounterR. 上,X， 
inc = AriCounterR， {fx=succCr.x)}}}} as Counter; 
”CC : Counter 


调用 一 个 Counter 的 方法 包括 对 它 进行 解 包 , 从 它 的 方法 中 选择 合适 的 字段 ,然后 将 其 应 用 到 
状态 中 : 
sendget = AC:Counter . 
]et {X,body}j = c in 
body ,methods.get(Cbody .state)] ; 
” Sendget : Counter 一 Nat 
最 后 (对 于 inc, 它 必须 返回 一 个 新 的 对 象 ,而 不 仅仅 是 一 个 数值 ) 将 结果 按照 与 原 对 象 相同 的 
表示 类 型 和 方法 打包 到 一 个 新 的 对 象 中 。 


@ ”本 章 中 的 例子 是 有 记录 、 数 字 和 多 态 更 新 (参见 图 32.1) 的 Fe: 的 项 。 相 关 的 OCaml 实现 是 fllupdate。 
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sendinc = AC:COunter . 
let {fXx,bodyjy = c in 
{*X， 
{fstate = body .methods .inc(body .state) ， 
methods = body .methodsj} as Counter; 


* Sendinc : Counter 一 Counter 
这 些 基 本 函数 可 用 来 构造 操作 Counter 对 象 的 更 复杂 的 项 ， 
addthree = AC:Counter. sendinc (sendinc (Csendinc c)); 
* addthree : Counter 一 Counter 


32.2 子 类 型 化 


对 象 有 了 存在 性 编码 就 具有 一 个 好 的 特征 :由 于 存在 类 型 及 记录 类 型 的 子 类 型 化 规则 直 
接 得 出 的 对 象 类 型 之 间 存 在 着 子 类 型 包含 关系 。 为 了 检查 这 一 特点 ,让 我 们 回忆 一 下 (参见 
图 26.3) 存 在 类 型 的 子 类 型 化 规则 由， 

TI, X<:UFHF 9$ <; T2 


这 一 规则 立刻 告诉 我 们 ,如果 定义 一 个 比 Counter 还 要 多 的 方法 的 对 象 类 型 ,比如 : 


ResetCounter = 
{3X，{state:X，methods:{get: X 一 Nat，inc:X 一 X，reset:X 一 X}1T]}; 


那么 它 将 是 Counter 的 子 类 型 , 即 ResetCounter <: Counter 。 这 意味 着 ,如 果 我 们 定义 一 个 重 置 计 
数 器 对 象 ， 
rc = {f*CounterR， 
{Sstate = {Xx=0] ， 
methods = {fget = Ar:CounterR. 『.X， 


inc = Ar:CounterR，{Xx=SuccCr.x)j， 
reset = Ar:CounterR，{x=0}}j}j} as ResetCounter; 


(S-Some ) 


* rc : ResetCounter 


我 们 可 以 使 用 包含 将 这 个 对 象 传递 给 Counter 上 定义 的 函数 ,诸如 ; sendget, sendinc, addthree: 


rc3 = addthree Prc; 


”rc3 : Counter 
注意 ,尽管 如 此 , 当 这 样 做 的 时 候 , 我 们 丢失 了 一 些 类 型 信息 :这 里 re3 的 类 型 是 Counter, 而 不 


是 ResetCounter。 


32.3 园 量 词 


当然 ,很 明显 ,这 一 类 信息 的 丢失 主要 是 由 于 包含 ,因为 在 第 26 章 中 ,包含 导致 了 团 量 词 
的 出 现 。 尽 管 如 此 , 仪 依靠 轩 量 词 是 远 远 不 够 的 ,为 更 有 效 地 解决 眼前 的 问题 还 需要 增加 一 些 
新 的 机 制 。 


@ 我 们 这 里 只 用 规则 的 核心 变 式 ; 暂 时 用 不 上 全 变 式 。 事 实 上 ,在 本 章 中 ,我 们 一 点 也 不 需要 间 存 在 量词 一 所 有 的 
存在 量词 边界 都 是 Top。 
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原因 是 使 用 了 赔 量 词 的 sendine 类 型 的 明显 修改 结果 为 VC <: Counter.C->C。 如 果 我 们 有 
一 个 这 样 类 型 的 sendine ,可 以 将 addthree 写成 ， 
addthree = AC<:Counter. AcC:C. 
sendinc [C] 《sendinc [C] (sendinc [C] c77; 
>” addthree : VC<:Counter ,CC 一 
并 且 将 它们 应 用 到 rm 中 来 获得 类 型 为 ResetCounter 的 结果 ， 
rc3 = addthree [ResetCounter] rc; 
* PCc3 : ResetCounter 
遗憾 的 是 ,我 们 并 没有 办 法 写 出 这 样 一 个 函数 ,或 者 说 ,没有 办 法 写 出 一 个 函数 能 够 完 
成 我 们 希望 的 功能 且 能 将 此 类 型 传递 给 这 个 函数 。 当 然 , 可 以 写 一 个 属于 此 类 型 的 恒 等 函 数 ， 
wrongsendinc = AGC<:COunter，ACIC，<C; 


”Wrongsendinc : VCc<:Counter. C 一 


但 如 果 要 通过 在 sendine 前 端 增加 一 个 因 类 型 抽象 来 改进 sendine 的 实际 实现 ,类 型 检查 时 会 
报错 误 : 
sendinc = 
AC<:Counter。， Ac:C， 
let {Xbodyy = c in 
{*X， . 
{State = body .methods ,incCbody .state) ， 
methods = body .methodsjj 
as (〔C; 


* Error: existentia]l type expected 


问题 出 在 最 后 一 行 ,注释 as C 告诉 类 型 检查 器 “此 处 创建 的 包 使 用 存在 的 类 型 C"。 但 C 并 不 
是 一 个 存在 类 型 它 只 是 一 个 类 型 变量 。 这 个 愚 套 的 限制 不 是 已 定义 的 类 型 规则 造成 的 ， 
例如 ,规则 不 "知道 "每 一 个 存在 类 型 的 子 类 型 都 是 一 个 存在 类 型 。 相 反 ,如 果 将 类 型 C 给 包 ， 
{T*X， 
{state = body .methods.incCbody .state) ， 
methods = body .methodsj1} 


那么 将 肯定 产生 一 个 错误 。 例 如 ,类 型 ; 
{3x，{fstate:IX, methods:{fget:X-Nat,inc:X-Xl,， junk:Boo1}1} 


是 Counter 的 一 个 子 类 型 。 但 上 面 的 这 一 个 包 并 没有 这 个 类 型 : 它 缺 少 junk 字段 。 所 以 才 会 有 
对 Counter 的 任意 子 类 型 C, 上 面 的 sendine 函数 体 “ 确 实 "“ 有 类 型 C 这 样 的 结果 ,除非 类 型 规则 
自己 能 明白 过 来 。 事 实 上 ,很 明显 (例如 ,通过 为 了。 请求 一 个 标志 模型 一 一 参见 Robinson 和 
Tennent,1998) 在 纯 了 -中 , 形 为 VC<:T.C-~C 的 类 型 只 包含 有 恒 等 函 数 。 

现在 已 经 提出 了 几 种 方法 来 弥 补 F。 这 个 缺点 。 一 种 可 能 性 是 把 了 .系统 改 成 了 ,系统 ， 
并 且 用 高 阶 罗 量词 将 更 多 改进 过 的 类 型 传 给 类 似 sendine 这 样 的 函数 。 另 一 种 可 能 性 是 保留 
类 型 VC <; Counter.C-C, 但 要 在 语言 中 增加 一 些 特征 ,利用 这 些 特 征 来 生成 这 一 类 型 的 有 趣 
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成 员 。 一 个 最 终 的 可 能 是 在 语言 中 添加 一 些 引用 。 但 是 ,在 第 27 章 已 经 是 这 样 做 了 ;本 章 的 
目标 是 试 试 看 在 一 个 纯 函 数 框架 中 可 以 得 到 什么 , 且 如 何 去 得 到 。 

后 面 的 研究 综合 了 其 中 的 两 种 方法 :F<. 用 来 说 明 前 几 节 中 提 到 的 对 象 类 型 上 的 量词 问 
题 ,以 及 多 态 记录 更 新 原 语 (将 在 32.7 节 中 定义 ) ,用 来 说 明 处 理 实例 变量 (参见 32.8 节 ) 中 出 
现 的 相关 问题 。 


32.4 接口 类 型 


使 用 类 型 操作 子 ,可 将 Counter 表达 为 两 部 分 的 组 合体 ， 
Countenr = 0bject CounterM; 
其 中 ， 
CounterM = AR {fget: R-Nat，inc:R 一 R}; 
是 分 类 * 之 * 的 类 型 操作 子 ,表示 Counter 对 象 具体 的 方法 接口 , 旦 ， 


Object = AM::*=>*。{3X，{fstate:X，methods:M X}y]}; 


是 分 类 ( 之" ) 全 "的 类 型 操作 子 , 它 具有 所 有 对 象 类 型 的 公用 结构 。 通 过 再 形式 化 ,我 们 得 
到 的 是 ,将 允许 子 类 型 化 的 可 变 部 分 (如 方法 接口 ) 与 不 允许 子 类 型 化 以 避免 其 妨碍 再 打包 的 
对 象 ( 如 存在 打包 ,状态 与 方法 序 对 等 ) 不 变 框 架 分 开 来 。 

我 们 需要 类 型 操作 子 之 上 的 冰 量 词 来 达到 这 种 分 割 ,因为 它 允 许 我 们 将 方法 接口 从 一 个 
对 象 类 型 中 抽出 ,尽管 这 些 接口 通过 在 X 抽象 方法 接口 本 身 , 涉 及 到 存在 量词 的 边界 状态 类 
型 X。 接 口 也 因此 而 生成 一 个 “参数 化 的 参数 "”。 这 里 参数 可 选 代 的 特性 可 在 Object 分 类 中 和 
应 用 Object CounterM 被 简化 的 步骤 中 反映 出 来 :首先 , CounterM 被 代 焕 到 Object 的 主体 中 ， 
产生 : 

{3X，{fSstate:X,，methods:(AR. {get: R 一 Nat，inc:R-R})7 X}} 
然后 X 被 替换 到 CounterM 的 主体 中 ,生成 : 
{3Xx，{state:X, methods:{fget:X-~Nat ,inc:X 一 X}]]， 


如 果 我 们 按照 相同 的 方法 分 割 ResetCounter: 


ResetCounterM = AR。 {get: R-Nat，inc:R--R，reset:R-Rj}; 
ResetCounter = 0bject ResetCounterM; 


那么 不 仅 像 以 前 一 样 ,有 ， 
ResetCounter <: Counter 
而 且 根 据 上 面 讨论 的 在 类 型 操作 子 之 间 进 行 子 类 型 化 的 规则 有 : 


ResetCounterM <: CounterM 


即 ,我 们 从 对 象 类 型 分 离 到 通用 模板 文件 ,加 上 一 个 特殊 的 接口 ,就 给 出 了 一 个 十 分 有 意义 的 
接口 子 类 型 化 的 概念 ,这 些 接口 是 从 全 部 对 象 类 型 间 的 子 类 型 化 关系 中 分 离 出 来 的 。 

接口 子 类 型 化 非常 接近 于 (概念 上 和 技术 上 )Bmuce 等 (1997) 提 出 的 匹配 思想 , Abadqi 和 
Cardelli(1995; 1996) 也 识 入 研究 过 这 一 问题 。 
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32.5 向 对 象 发 送 消息 


现在 ,我们 可 以 通过 抽象 CounterM 的 子 接口 ,而 不 是 Counter 的 子 类 型 来 补充 32.3 节 中 
sendinc 未 完成 的 定义 : 


Sendinc = 
AM< :CounterM，Ac:Object M. 
1et {X，bj = c in 
{*X， 
{state = bmethods.incKb.state) ， 
methods = b.methodsjj} 
as Object Mi; 


* Sendinc : VYM<:CounterM. Object M 一 0bject M 


直觉 上 ,sendine 类 型 可 以 被 读 成 “给 我 一 个 对 象 接口 来 改进 计数 器 的 接口 ,然后 给 我 一 个 具有 
该 接口 的 对 象 ,我 将 返还 给 你 一 个 有 相同 接口 的 另 一 个 对 象 ”。 


32.$.1 练习 [*] :为 什么 这 个 sendine 是 良 类 型 的 而 前 一 个 不 是 ? 


为 调用 计数 器 的 方法 和 重 置 计 数 器 对 象 ,我 们 利用 适当 的 接口 型 构 实 例 化 多 态 方 法 调用 
函数 ,CounterM 或 ResetCounterM( 假 设 sendget 和 sendreset 已 被 类 似 地 定义 ); 
sendget [CounterM] (sendinc [CounterM] c); 
*” 6 : Nat 
sendget [ResetCounterM] 
(sendreset [ResetCounterM] 
(sendinc [ResetCountefrM] rc)) ; 
”0 : Nat 
32.S$.2 ”练习 [推荐 ,*x] :定义 sendget 和 sendreset。 


32.6 简单 的 类 


现在 让 我 们 来 讨论 类 ,从 不 带 self 的 简单 类 开始 (参见 第 18 章 )。 

在 18.6 节 ,我 们 定义 了 一 个 简单 的 类 (为 命令 式 对 象 编码 , 当 对 象 是 方法 的 记录 ) 作 为 一 
个 从 状态 到 对 象 的 函数 一 一 一 种 生成 多 个 包含 有 相同 方法 的 对 象 方式 ,其 中 每 种 方法 包含 一 
个 新 分 配 的 实例 变量 集合 。 在 本 章 中 ,一 个 对 象 不 再 仅 是 方法 的 记录 : 它 同时 也 包含 了 一 个 表 
示 类 型 和 一 个 状态 。 另 一 方面 ,由 于 这 是 一 个 纯 函 数 模 型 ,每 一 个 方法 都 将 状态 作为 一 个 参数 
《而 且 ,如果 需要 的 话 ,返回 一 个 具有 被 更 新 过 的 状态 对 象 ) ,所 以 我 们 不 需要 在 对 象 创建 的 时 
候 传递 一 个 状态 给 类 。 事 实 上 , 这 里 的 一 个 类 (我 们 仍然 假设 所 有 的 对 象 都 使 用 相同 的 表示 类 
型 ) 被 简单 地 看 做 一 个 方法 的 记录 : 


CounterC1asSs = 
{get = Ar:CounterR.『r.,Xx， 
inc = Ar:CounterR. {xs=SuccCCr.xX)}} 
as {get: CounterR~Nat，inc:CounterR~CounterRj; 


” CounterClass ; {get:CounterR~Nat，inc:CounterR 一 CounterR} 
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或 者 ,用 CounterM 操作 子 来 更 简洁 地 写 出 注释 : 


coOunterC1ass = 
fget = Ar:CounterR，『,X， 
Tinc = Ar:CounterR.， {fx=succCr.x)}} 
as CounterM CounterR; 


* CounterC1ass : CounterM CounterR 
我 们 将 实例 化 这 样 的 类 ,为 状态 提供 一 个 初始 值 , 并 且 将 该 方法 的 状态 ( 即 类 ) 一 起 打包 到 一 个 
对 象 中 ， 
CC = {f*CounterR， 
{Sstate = {fx=0}， 


methods = CounterClassj} 
as Counter ; 


* C : Counter 
定义 一 个 子 类 只 要 建立 一 个 新 的 方法 记录 ,从 以 前 已 经 定义 过 的 类 中 复制 出 一 些 字段 。 


resetCounterC1ass = 
]et Super = counterC1ass jn 
{get = Super.get， 
inc = Super.inc， 
reset = AriCounterR，{fx=01}} 
as ResetCounterM CounterR; 


” resetCounterC]1ass : ResetCounterM CounterR 


为 了 概括 这 些 简单 的 类 ,来 处 理 第 18 章 中 提 到 的 同样 例子 ,还 需要 两 样 东 西 : 在 子 类 中 添加 
新 的 实例 变量 的 能 力 和 对 setf 的 处 理 。 下 面 的 两 节 将 解决 第 一 个 问题 ,32.9 节 将 讨论 对 self 
的 处 理 ,以 结束 本 章 。 


32.7 ”多 态 更 新 


为 了 在 类 中 添加 实例 变量 ,我 们 需要 增加 一 个 新 的 机 制 一 一 在 记录 字段 适当 多 态 更 新 的 
原 语 和 对 记录 类 型 的 相应 改进 。 在 类 之 间 人 允许 实例 变量 变化 意味 着 它们 的 子 类 实例 变量 可 以 
实现 超 类 的 多 态 性 。 正 是 这 一 点 ,有 了 这 些 特 征 让 我 们 来 看 看 这 是 怎么 发 生 的 。 

假设 我 们 要 定义 一 个 resetCounterClass 的 子 类 ,添加 一 个 backup 方法 来 保存 计数 器 中 的 当 
前 值 ,改变 reset 的 行为 使 其 恢复 为 这 个 被 保存 的 值 而 不 是 初始 的 那个 常 值 。 为 获得 保存 的 
值 ,我 们 需要 将 状态 类 型 从 {x:Nat | 扩展 到 |x:Nat,old;Nat| 。 但 表达 方式 的 不 同 立即 产生 一 个 
技术 上 的 难题 。 定 义 backupCounterClass 时 ,在 resetCounterClass 中 重用 inc 方法 的 能 力 取决 于 
该 方法 在 两 个 类 中 是 否 有 相同 的 行为 。 然而 ,如 果实 例 变 量 的 集合 不 同 ,那么 它 不 可 能 有 完全 
相同 的 行为 :ResetCounter 中 的 inc 需要 一 个 类 型 为 jx:Nat [的 状态 并 返回 一 个 相同 类 型 的 新 状 
态 ,而 BackupCounter 的 inc 需要 并 产生 类 型 为 jx;Nat,old:Nat | 的 状态 。 

为 了 解决 这 一 难题 ,注意 到 inc 方法 并 不 真 的 需要 知道 状态 的 类 型 是 {x;Nat| 还 是 1x;Nat， 
old:Nat| ,只 需要 知道 状态 中 包含 一 个 实例 变量 x。 换 名 话说 ， 我 们 可 以 通过 提供 类 型 VS <: 
jx:Nat 上 .SS 来 将 两 种 方法 统一 起 来 。 

现在 ,这 里 出 现 了 与 第 32. 3 节 中 含 整个 对 象 时 带 来 的 ， 由 状态 引起 相同 问题 :在 当前 语言 
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中 ,类 型 VS <:jx:Nat 1.S->~S 只 能 被 恒 等 本 数 使 用 。 为 了 解决 这 一 难题 ,我 们 还 需要 一 些 机 
制 ,能 提出 一 个 更 为 精确 的 轿 量 词 ;: 这 里 最 为 直接 的 机 制 就 是 为 记录 字段 的 多 态 更 新 添加 一 个 
原 语 。 如 果 r 是 一 个 具有 类 型 下 的 字段 x 的 记录 , 且 t+ 是 类 型 为 了 的 一 个 项 ,那么 写 r< 一 x=t 
来 表示 “除非 它 的 x 字 段 有 值 t, 这 个 记录 看 起 来 像 * "。 注 意 ,这 是 更 新 操作 的 一 个 纯 函 数 形 
式 一 一 它 并 不 改变 "但 生成 一 个 不 同 x 字段 的 复制 品 。 

通过 使 用 这 个 记录 更 新 原 语 , 一 个 能 够 抓 住 ine 方法 体 本 意 行 为 的 函数 可 被 粗略 地 展示 
如 下 

f = AX<:{a:Nat}，Ar:X， fr 一 a = SuUCCCr.ali 
然而 ,还 是 必须 谨慎 -一些 。 一 -种 简单 的 更 新 操作 子 的 类 型 化 规则 为 ; 

ThFrIR LEIFHR<:LtI:T] IFti:T 
[TFTr 一 =t:R 

但 这 个 规则 不 合理 。 例 如 ,假设 有 : 

s = {x=fas5,bs6} ,ystruel; 
因为 s: |x: |a:Nat,b:Nat | ,y:Booll , 且 1x: |a:Nat,b:Natl ,y: Booll <: | x; ja; Nat|i ,上 面 的 规则 
得 出 : 

S 一 x={a=8}] : {x:{fa:Nat,b:Nat}j,y:Boo1}， 
这 是 错误 的 ,因为 。-- x= |a= 8| 归 约 为 lx= la=8 |,y=tme |。 

这 个 问题 的 产生 ,是 由 于 对 x 字 段 上 使 用 深度 子 类 型 化 而 导出 |{x: la:Nat,b:Nat| ,y: Bool| 
<: jx: ja:Nat||  。 深 度 子 类 型 化 将 不 允许 在 能 被 更 新 的 字段 中 使 用 。 为 做 到 这 一 点 ,只 要 为 这 
样 的 字段 注释 上 一 个 特殊 的 标记 , 写 为 # 。 

在 图 32.1 中 给 出 了 这 些 “ 可 被 更 新 的 记录 "的 和 更 新 操作 规则 本 身 。 我 们 改进 了 记录 类 
型 的 语法 来 使 每 个 字段 都 可 以 被 注释 上 一 个 变化 的 标签 ,用 来 指示 是 否 允 许 深 度 子 类 型 化 。 
# 表示 禁止 在 这 些 字段 上 进行 子 类 型 化 ,同时 空 的 字符 串 则 表示 允许 (在 这 里 选择 空 串 意思 是 
未 被 标记 的 记录 将 和 它们 以 前 一 样 处 理 ) 。 深 度 子 类 型 化 规则 S-RecdDepth 经 过 修改 允许 只 对 
没有 标记 的 字段 中 进行 子 类 型 化 。 最 后 ,我 们 添加 一 条 子 类 型 化 规则 SRcdVariance, 来 允许 字 
段 中 的 标记 从 # 变 为 空 字符 串 一 一 换 句 话说 ,来 “忘记 ”给 定 的 字段 是 可 更 新 的 。 为 更 新 原 语 
建立 的 规则 要 求 被 替换 的 字段 标记 上 # 。E-Update 规则 实现 了 更 新 操作 。 

上 面 的 函数 f 现 在 可 被 写 为 : 

f = AX<:{#a:Natl]。 Ar:X，ra = SuccCr.a); 





>” 于 : YX<:{#a:Nat}，X - X 
且 如 这 样 使 用 : 


Fr = 一 {#a=0，b=trueji 
下 [{#a:Nat,b:Boo11] r; 


”《#a=1，b=truej : {#a:Nat，b:Boo1} 


中 和 以 前 一 样 ,有 几 种 获得 相同 效果 的 方法 一 一 通过 提出 不 同 的 原 语 (在 32.10 节 中 列 出 了 一 些 ) ,或 通过 使 用 多 态 
性 ,如 在 Pierece 和 Tumer(1994) 中 描述 的 那样 一 一 更 加 繁杂 但 理论 上 更 具 基本 的 选择 方式 。 这 里 选择 的 原因 是 它 简 
单 ,而 且 非 常 适合 下 面 的 例子 。 
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更 新 操作 的 可 靠 性 依赖 于 下 面 被 改进 后 的 子 类 型 关系 的 结果 : 
32.7.1 ”事实 :如 果 广 R<:{#1:T| ,那么 RR= {…#1:R… 其 中 F R<:T 和 F 了 <:Ris 


32.7.2 ”练习 [推荐 ,***]: 这 个 演算 有 最 小 的 类 型 化 性 质 吗 ? 如 果 有 就 证 明 。 如 果 没 
有 , 想 办 法 补充 一 下 。 





一 VY <: Top {] 汪 基于 记录 (II. 记 的 F<: (26.7) 

新 语法 形式 新 子 类 型 化 规则 

是 项 : 汪 必 1] .TIELn+g < 二 汪 区 1 ， 下 eln 
iu 和 { 沽 1 :Ti < { 蒜 11:Ti en 


(S-RCDWIDTH) 











污 于 对 每 一 个 T TEFS 六 
下 类 型 : -- 和 
{ 渡 152T 记录 类 型 T F《 葵 1:S04220 < Ti 
(S-RCDDEPTH) 
芝 := 溺 不 变 〈 可 更 新 ) 字段 ] 
OnRRted 协 变 〈 固 定 ) 字段 (S-:RCDVARIANCE) 
新 求 值 规则 新 类 型 化 规则 





对 每 一 个 /下 记 直 和 


FE 人 TS (人 TRcD 


3 { 和 :Ti 人 椒 丰 站 
ER 


(T-PRODJ) 


{ 汪 1i=vi'cl .1 一 VJ) ， (E-PROJRCD) 


ER Tt/ 
{ 洁 1i=Vi iE1. 广 ! , 蓉 1J=t/ 3 少 1k=tke<A"} 
{ 哈 1i=vi iel- ,省 =ty ,=tkks 
(E-RCD) 








图 32.1 多 态 更 新 
32.8 添加 实例 变量 
用 前 一 节 中 的 特征 , 写 一 个 内 部 状态 类 型 为 多 态 的 counterClass， 


CounterR = {#x:Nat}; 


CounterC1ass = 
AR< :CounterR . 
{fget = AS:R， 5S.X， 
inc = AS:R。S 一 X=SUCC(S.Xx)} 
as _ CounterM R; 


” CounterClass : VR<:CounterR。CounterM R 


为 了 在 新 的 counterClass 中 生成 对 象 ,简单 地 将 CounterR 写 为 如 下 表示 类 型 


c = {f*CounterR， 
{fstate = {#x=0}， 
methods = counterC1ass [CounterR]}} 
as 0bject CounterM; 


* C ; Counter 
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注意 新 类 中 创建 的 对 象 有 相同 的 类 型 Counter = Object CounterM , 就 像 前 面 的 对 象 一 样 : 对 实例 
变量 处 理 的 改变 也 完全 是 类 内 部 的 事 。 上 面 的 方法 调用 函数 也 仍然 可 以 用 在 新 类 中 实例 化 的 


对 象 中 。 
我 们 可 以 将 resetCounterClass 写成 同样 的 风格 : 


resetCounterC1ass = 


AR< :CounterR . 
let Super = counterClass [R] in 


{fget = Super.get， 
inc = Super.inc， 
reset = AS:R. S 一 X=0} 
as ResetCounterM R; 
* resetCounterC1ass : VYR<:CounterR， ResetCounterM R 


最 后 ,可 以 写 一 个 backupCounterClass, 这 次 是 从 BackupCounterR( 这 是 整个 练习 的 关键 ) 的 子 类 
型 中 抽象 出 来 的 : 


BackupCounterM = AR，{get:R 一 Nat,inc:R 一 R,reset:R 一 R,backup :R 一 R] ; 
BackupCounterR = {#x:Nat,#o1d:Nat]; 
backupCounterC1ass = 
AR< :BackupCounterR . 
1et super = resetCounterClass [R] in 
{get = Super.get， 
inc = Super .inc， 
reset = AS:R， 5 一 X=s.01d， 
backup = As:R. S 一 01d=s.xh} 
as BackupCounterM Ri 
* backupCounterClass : VR<:BackupCounterR. BackupCounterM R 


32.9 含 seff 的 类 
在 18.9 节 中 ,我们 谈 到 了 命令 式 类 , 它 允 许 类 中 的 方法 互 递 归 ,并 且 还 谈 到 了 如 何 扩 展 这 


种 类 。 这 种 扩展 在 纯 函 数 框架 中 仍然 是 合理 的 。 
首先 讨论 适合 相同 表示 类 型 R 的 sef 方法 集 counterClass 进行 的 抽象 : 
CounterC1aSsS = 


AR< :CounterR . 
ASe1f: Unit 一 CounterM R. 
A_:Unit. 

{fget = AS:R. S.X， 

inc = AS:R、5S 一 X=Succ(S.x)} 


as CounterM R; 
和 18.9 节 一 样 , 类 的 Unit 参数 用 于 推迟 生成 一 个 对 象 方法 你 操作 中 的 求 值 。self 的 类 型 包括 


一 个 匹配 的 Unit 抽象 。 
为 了 在 这 个 类 中 建立 一 个 对 象 ,我 们 取 counterClass 函数 的 不 动 点 并 应 用 到 unit 上 : 


cC = {*xCounterR， 
{state = {##x=0O] ， 
methods = fix (counterC1ass fCounterR]] unit}} 


as 0bject CounterM; 


* C ; Counter 
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接着 定义 一 个 提供 set 操作 的 子 类 ,并 且 具 有 下 面 的 接口 


SetCounterM = AR，{fget: R~-Nat，Sset:R 一 Nat 一 R，inc:R 一 Ri 


SetCounterClass 的 实现 定义 了 一 个 set 方法 ,并 在 它 的 ine 方法 的 实现 中 用 到 selif 中 set 和 get 
方法 : 
SetCounterC1as5s = 
AR< :CounterR 。 
ASe1f: Unit 一 SetCounterM R. 
A_:Unit. 
et Super = CounterC1aSS [R] self unit jn 
{get = Super .get， 
Set = AS:R，An':Nat.、S 一 X=n， 


inc = AS:R，(Cselif unit) .set 5 (succ(C(selif unit) .get 5))} 
as 9etCounterM R; 


最 后 ,将 本 章 中 的 所 有 机 制 结合 在 一 起 ,可 以 创建 一 个 仪器 计数 器 的 子 类 ,该 子 类 中 的 set 操作 
可 以 统计 它 被 调用 的 次 数 : 


InStrCounterM >= 
AR {get: R-Nat，set:R-Nat 一 R，inc:R 一 R，accesses:R 一 Natj} ; 


InstrCounterR = {#x:Nat ,#count:Nat}i; 


TnstrCounterC1ass = 
AR<:InstrCounterR . 
Ase1f: Unit 一 InstrCounterM 有 . 
A_:Unit， 
1et super = 5etCounterClass [R] se1f unit in 
{get = 5uper.get， 
set = AS:R- An:Nat . 
et Fr = Super.set 5 n in 
r 一 CountmsuccCr.count) ， 
inc = Super.inc， 
acCCeSsses = AS:R，S.Count} 
as InstrCountefrM R; 


注意 ,因为 inc 的 实现 是 根据 self 中 的 set 方法 ,对 ine 的 调用 次 数 也 算 在 访问 计数 中 。 
这 里 为 实现 包装 ,创建 一 个 仪器 计数 器 对 象 , 并 给 它 发 送 消 息 : 


ic = {*InstrCounterR ， 
{state = {#xm0,#count=s0] ， 


methods = fix (instrCounterC1lass [InstrCounterR]) unit11 
as Object InstrCounterM; 


* ic : Object InstrCounterM 


sendaccesses [InstrCounterM] (sendinc [InstrCounterM] ic); 


* 于: Nat 


32.9.1 练习 [推荐 ,*xx] :定义 一 个 添加 backup 和 reset 方法 的 instrCounterClass 的 子 类 。 
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32.10 注释 


在 类 型 的 lambda 演算 中 ,对 象 的 第 一 个 “ 纯 函 数 "解释 是 基于 递归 定义 的 记录 ;最 初 被 
Cardelli(1984) 提出 , 而 Kamin 和 Reddy (Reddy, 1988; Kamin 和 Redqy, 1994) , Cook 和 Palsberg 
(1989) 以 及 Mitehell(1990a) 研 究 了 许多 它 的 变化 。 在 它 的 无 类 型 形式 中 ,这 种 模型 应 用 于 无 类 
型 的 面向 对 象 语言 的 指称 语义 是 非常 有 效 的 。 在 它 的 类 型 化 形式 中 ,可 以 被 用 于 对 单独 面向 
对 象 的 例子 进行 编码 ,但 会 造成 类 型 化 面向 对 象 语言 中 统一 解释 上 的 难题 。 在 这 个 方面 ,其 最 
成 功 的 是 Cook 和 他 的 同伴 (Cook ,Hill 和 Canning, 1990; Canning, Cook, Hil 和 Olthoff, 1989ai; Can- 
ning, Cook ,Hill ,Olthoff 和 Mitehell ,1989b) 。 

Pierce 和 Tumer( 1994) 提 出 一 种 编码 ,只 依赖 于 具有 存在 类 型 的 类 型 系统 , 而 与 递归 类 型 
无 关 。 这 引导 Hoftmann 和 Pierce(1995b) 提 出 第 一 个 在 函数 演算 中 ,对象 统一 类 型 驱动 的 解释 。 
在 同一 个 会 议 上 , Bruce 发 表 了 一 篇 关于 冰 数 面向 对 象 语言 语义 方面 的 论文 。 这 个 语义 最 初 被 
作为 一 个 能 直接 映射 到 匹 , 的 指称 模型 , 而 最 近 又 被 重新 形式 化 为 一 个 依赖 于 存在 和 递归 类 
型 的 对 象 编码 方式 。 同 时 ,由 于 在 lambda 演算 中 解决 编码 对 象 的 困难 ,Abadi 和 Cardelli 提出 
了 一 种 原始 对 象 的 演算 (1996)。 然 而 后 来 ,Abadi, Cardelli 和 Viswanathan( 1996) 根 据 轩 存在 量 
词 和 递归 类 型 ,发 现 对 象 演算 的 一 种 可 靠 的 编码 。Bruce 等 (1999) 与 Abadi 和 Cardelli(1996 ) 调 
查 了 这 些 发 展 情况 。 

本 章 中 的 对 象 编码 已 经 被 扩展 到 包含 多 重 继承 (拥有 多 个 超 类 的 类 ) 一 一 根据 Compagnoni 
和 Pierce(1996) 。 关 键 的 技术 思想 是 用 交叉 类 型 (参见 15.7 节 ) 对 的 玫 . 的 扩展 。 

现在 已 经 有 多 种 方案 用 于 解决 在 32.3 节 中 观察 的 纯 二 阶 轿 量词 的 缺点 。 除 了 在 本 章 中 
见 到 的 两 个 一 一 高 阶 闸 量词 和 多 态 记 录 更 新 原 语 以 外 ,还 有 其 他 几 种 多 态 记 录 更 新 的 样式 
(Cardeli 和 Mitehell ,1991 ; Cardelli, 1992; Fisher 和 Mitehell, 1996; Poll, 1996) , 例如 递归 类 型 的 结 
构 化 展开 (Abaqi 和 Cardelti ,1996) , 正 子 类 型 化 (Hofimann 和 Pieree,199Sa) ,对 存在 类 型 的 多 态 重 
包装 (Pierce,1996) 和 类 型 析 构 子 (Hoftmann 和 Pierce,1998) 等 。 

Wand(1987,1988,1989b) , REmy(1990, 1989, 1992) , Vouillon(2000,2001) 和 其 他 一 些 人 发 展 
了 一 种 基于 行 变量 多 态 性 的 不 同 解决 方向 ,并且 组 成 了 OCaml 的 面向 对 象 的 特点 基础 (Remy 
和 Vouillon ,1998 ) 。 


“在 开始 处 开始 ,国王 十 分 严肃 地 说 "继续 进行 直到 终点 :然后 停止 。 


一 -一 Lewis Carrol 
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3.2.4 解答 ;13 1=1S0+13S1x3+3, 且 1Sol1=0。 所 以 18;|1 = $9439。 


3.2.5 解答 :直接 归纳 证 明 来 解决 这 一 问题 。 当 ;= 0 时 ,不 需 证 明 。 接 下 来 , 当 j>0 时 
假定 ;=Jj+1 和 5S SS ,需要 证 明 出 S; SS, ,也 就 是 对 于 任何 一 个 项 te $ ,需要 证 明 
te Ste。 对 于 假设 有 te 8 。 根 据 由 三 个 集合 组 成 的 联合 S; 的 定义 ,我 们 知道 上 必 有 以 下 
.te jine ,joblse ,0 。 在 这 种 情况 中 ,根据 $,,, 的 定义 ,显然 得 到 te Si ，。 
2. t= succ t ,pred b 或 iszerno 6 ,其 中 te S$。 根 据 归 纳 假设 有 S SS 可 得 到 和 ce Si， 
所 以 根据 $,,, 的 定义 得 到 te Si,。 
3. t=ifb then b elseb, 当 ubbceS。 同样 根据 归纳 假设 有 S S S: ,根据 $,,, 的 定 _ 
义 得 到 tc Si 
3.3.4 解答 :( 仅 给 出 对 深度 归纳 的 讨论 ;其 他 情况 都 是 类 似 的 )。 我 们 知道 对 于 每 一 项 
s, 如 果 对 所 有 深度 小 于 s 的 zx 有 P(r) ,于 是 有 P(s); 现 在 我 们 必须 证 明 对 所 有 的 。 有 
P(s)。 定 义 一 个 新 的 自然 数 上 的 谓词 O 如 下 所 示 : 
QHh) = Vswith depth(s) = m.P(Ss) 
现在 利用 自然 数 归纳 (2.4.2) 来 证 明 对 所 有 的 半 有 0O(Cz)。 
3.$.5 解答 :假设 忆 是 一 个 在 求 值 语句 上 推导 的 谓词 。 
如 果 ,对 于 每 一 个 推导 也 ， 
对 于 所 有 直接 子 推导 C 给 出 P(C ) 
我 们 能 证 明 P(D ) ， 
于 是 对 所 且 有 P()。 


3.5.10 解答 ， 


ee 


ft 一 巧 

ft 一 人 

亡 一 " 廊 

t 一 tf 一 

ft 一 tt/ 
3.5.13 解答 :(1)3.5.4 和 3.5.11 失败 。3.5.7,3.5.8 和 3.5.12 仍 为 有 效 ; (2) 现 在 仅 
3.5.4 失 败 ,其余 都 有 效 。 在 第 (2) 部 分 有 趣 的 是 ,尽管 一 步 求 值 在 这 一 规则 之 下 变 为 非 确 
定 的 ,最 终 的 多 步 求 值 结 果 仍 是 可 确定 的 :条 条 大 路 通 罗马 。 确 实 ,这 一 论证 的 严格 证 明 
并 不 十 分 困难 ,尽管 不 像 以 前 的 那样 微不足道 。 主 要 的 观察 在 于 一 步 求 值 的 关系 有 所 谓 
的 蓉 形 性 质 之 称 ; 
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A.1 引 理 [ 蒙 形 性 质 ] :如果 有 r 一 s 和 Tr 一 1 上 且 szxt, 于 是 有 一 些 项 u 满足 s 一 u 和 tu 
证 明 ;从 求 值 规则 出 发 ,显然 这 种 情况 仅 当 rz 具有 让 mn then bp else nb 的 形式 时 才 会 出 现 。 
根据 对 推导 出 rs 和 ->t 的 推导 序 对 的 归纳 ,及 一 个 关于 两 个 推导 中 的 最 后 规则 的 情 
况 分 析 ,有 : 

情况 i: 

假设 根据 ETHrrue 有 Tr 一 s 且 根据 E-Funny2 有 T 一 to 于 是 ,从 这 些 规 则 的 形式 出 发 ， 
我 们 知道 s=p 且 t=iftme then mw else nm, 其 中 一 %。 但 接 下 来 选择 = 忌 给 了 我 们 所 需 
要 的 ,因为 我 们 知道 s 一 避 且 通过 下 HTrme 可 得 到 tf 世 。 

情况 ii 

假设 在 推导 r-~s 和 Tr 一 ! 中 的 最 终 规则 是 E-H。 通 过 E 开 的 形式 ,我 们 知道 s 一 定 具 
备 让 rm then mn else 的 形式 ,t 必 有 形式 让 mw then p else ns ,其 中 m 一 且 D 一 站 。 但 这 时 根 
据 归纳 假设 ,有 一 些 满足 mr 一 上 和 也 一 目的 轧 项 ,可 以 通过 讨论 u= 半 攻 then ps else ns 和 
通过 E- 开 观察 su 和 fu 来 完成 这 种 情况 的 讨论 。 

这 种 讨论 对 于 其 他 情况 是 类 似 的 。 
这 种 结论 的 惟一 性 证 明 可 直接 得 出 一 个 “尾随 图 "。 假 设 r 一 "s 且 r 一 "to 


AN 


六 AN 


接 下 来 可 以 使 用 引 理 A.1 将 s 和 ft 拉 到 一 起 ”: 


S 


1 fl 
AN / 
SN 
zl 六 大 AN 
52 uU2 七 


2 


、 


5S 蕊 


再 使 用 它 来 将 。 和 拉 到 一 起 ,然后 是 u 各: 


wz AN 
S1 上 1 
、\、 间 
包 大 NN 
S2 u2 vtz 
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等 等 ,一 直 进 行 下 去 直到 将 s 和 ft 拉 到 一 起 ,这 时 一 步 蓉 形 形成 了 一 个 完整 的 大 蔡 形 。 
它 说 明了 如 果 * 可 被 求 值 为 v, 也 可 被 求 值 为 w, 则 * 与 w 必定 相同 (它们 都 是 范式 ,只 要 
从 相同 的 形式 开始 求 值 ,就 只 能 得 到 相同 的 结果 )。 
3.5.14 ”解答 : 对 ! 的 结构 进行 归纳 。 
情况 :t 是 一 个 值 。 
由 于 每 一 个 值 都 有 范式 ,这 一 情况 不 可 能 出 现 。 
情况 : t = succ tl 
根据 求 值 规则 ,我 们 发 现 只 有 规则 囊 Suee 可 能 被 用 于 推导 1 -> 和 t+-~>( 其 他 所 有 的 规则 的 
左 端 最 外 端的 构造 子 不 是 sacc)。 所 以 必定 存在 两 个 子 推导 ,其 结论 为 ->* 廿 和 Ht 人 世 。 通 过 
归纳 假设 (由 于 是 t 的 子 项 ) ,我 们 得 到 1 = 人 。 但 接 下 来 有 succ ti = suce 世 。 
情况 : t= pred tl 
这 里 有 三 个 求 值 规则 (E-Pred,E-PredZero 和 E-PredSucc) ,这 些 可 能 已 经 被 用 来 将 t 归 约 为 
4 和 培 。 注 意 ,这 些 规则 不 重 亚 :如果 t 与 一 个 规则 的 左 端 匹 配 ,那么 它 肯 定 不 会 与 其 他 规 
则 左 端 丐 配 (例如 ,如 果 + 与 已 Pred 匹配 ,那么 5 肯定 不 是 一 个 值 , 尤 其 不 是 0 和 suee v)。 
这 就 告诉 我 们 同 余 规则 一 定 已 经 用 于 推导 上 > 和 t+->w。 如 果 这 个 规则 是 E-Pred ,那么 像 
以 前 的 情况 那样 使 用 归纳 假设 。 如 果 这 是 E-PredZero 或 FEPredSucc 规则 ,那么 结果 直接 
可 得 出 。 
情况 :其 他 情况 
类 似 。 
3.5.16 ”解答 :让 我 们 使 用 元 变量 + 来 包括 新 的 由 wrong 扩展 项 的 新 集合 (包括 所 有 以 
wrong 为 子 短语 的 项 ),g 来 包括 最 初 不 包括 wrong 的 “good" 项 初始 集 。 写 含 wrong 转换 的 
新 求 值 关 系 为 t+- ,并 写 出 求 值 的 初始 形式 g 人 gf。 现在 ,这 两 种 方式 可 形式 化 描述 为 : 
任何 (初始 的 ) 在 最 初 的 语义 下 求 值 受阻 的 项 将 会 在 新 的 语义 中 的 求 值 结 果 都 为 wrong, 反 
之 亦 然 。 正 式 地 ， 


O 


A.2 命题 ;对 所 有 初始 的 项 g, (关系 写 出 5 妃 * g ,其 中 外 受 肯 式 ) 当 且 仅 当 (g 己 。 


wrong)。 


要 证 明 这 个 命题 ,分 多 步 进 行 。 首 先 , 注 意 到 我 们 已 加 入 的 新 转换 在 定理 (3.5.14) 中 不 是 
无 效 的 。 


4.3 引 理 : 被 扩展 的 求 值 关系 是 可 确定 的 。 


这 意味 着 在 就 初始 语义 中 无 论 何 时 g 能 一 步 到 8#' , 它 都 能 在 被 扩展 的 语义 中 到 六 ,此 外 区 
是 g 在 新 语义 中 惟一 能 到 达 的 项 。 
接 下 来 ,我 们 显示 一 个 已 经 在 初始 语义 中 受阻 的 项 总 能 在 被 扩展 的 语义 中 求 值 为 wrong。 


A.4 引 理 : 如 果 g 受 阻 ,那么 g 一 "wmong。 
证 明 ; 对 g 的 结构 进行 归纳 。 
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情况 : g = true, false, 或 0 
不 可 能 发 生 ( 我 们 假定 g 受阻 )。 

情况 : g=i 计 glithengzelsegs3 
由 于 g 受阻 ,g 必定 是 范式 (和 否则 E 开 通用 )。 显 然 ,g 不 可 能 为 tmue 或 false( 和 否则 有 IPimue 
或 下 IFalse 中 的 一 个 会 适用 且 g 不 会 受阻 )。 考 虑 到 剩余 的 情况 : 

子 情况 : 9 = ifgll then gl2 else gl13 ， 


因为 g 是 范式 而 显然 不 是 值 , 它 会 受阻 由 归纳 假设 可 求 得 各 一" wmong。 由 此 ,我 们 能 够 
构造 推导 g 必 "if wrong then && else 名。 如 需要 的 那样 ,增加 一 个 规则 忆 迁 Wrong 的 最 终 实 
例 生 成 g 全” wrongo 

子 情 况 : gl = succ gll 


如 果 妈 是 一 个 数值 ,那么 g 是 一 个 badbool, 而 且 规 则 卫 全 Wrong 立即 生成 gwrong。 理 
则 ,根据 定义 g 受阻 ,由 归 归 纳 假设 可 得 g 一" waong。 从 这 一 推导 ,我 们 创建 了 一 个 推导 
gg 全 让 wrong then 多 else 吕 。 增 加 一 个 规则 E- 自 Wrong 的 最 终 实例 生成 g 全 wrongo 

其 他 子 情况 : 
类 似 。 

情况 : 9 = succ 9 

由 于 g 受 阻 ,我 们 (由 值 定义 ) 得 知 & 必须 是 范式 而 不 是 一 个 数值 。 有 两 种 可 能 :要 么 g 
是 tmue 或 false, 要 么 g 自身 不 是 值 ,那么 受阻 。 在 第 一 种 情况 ,规则 E-Succ-Wrong 直接 生成 
g 一 "wrong; 在 第 二 种 情况 ,归纳 假设 得 出 中 "wrong, 按 以 前 那样 继续 下 去 。 

其 他 情况 : 
类 似 。 
引 理 (A.3) 和 引 理 (A.4) 一 起 给 命题 (A.2) 的 “ 仅 当 ”( 一 ) 这 部 分 证 明 。 对 另 一 半 ,需要 证 

明 在 被 扩充 的 语义 中 "将 要 出 错 "的 项 在 初始 的 语义 中 受阻 。 


A.5 引 理 :如 果 在 被 扩展 的 语义 中 5- 下 t 和 t 将 wrong 作为 一 个 子 项 包含 在 内 ,那么 g 在 
初始 的 语义 中 受阻 。 
证 明 : 在 (已 讨论 的 ) 求 值 推导 中 直接 归纳 。 

与 引 理 (A.3) 结 合 ,可 证 命题 (A.2) 的 “ 当 是 ”和 ) 的 一 半 ,证 明 结束 。 


3.5.17 解答 :分 别 在 命题 (A.7) 和 命题 (A.9) 中 论证 了 “ 当 生 仅 当 ”两 个 方向 ,对 于 每 一 种 
情况 ,我们 由 技术 引 理 开始 建立 了 一 些 有 用 的 多 步 (或 单 步 ) 的 求 值 性 质 。 


A.6 引 理 :如 果 8->" 那么 ft then b elseb->* it then tb elset( 对 于 其 他 项 构造 子 这 
也 是 类 似 的 )。 

证 明 : 简 单 归 纳 。 

A.7 命题 :如 果 tbv 那 么 上 >"v 
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证 明 : 根 据 归 纳 于 tj v 的 推导 ,对 最 后 规则 中 进行 情况 分 析 。 
情况 B-VALUE: 上 =v 


立即 可 证 。 
情况 B-IFTRUE: 上 = 计 tl thentzelset3 
tl 业 Lrue 
七 2 业 V 


根据 归纳 假设 ,6 一 ”bme。 根 据 引 理 (A.6): 

if tl then tz else ta 一 "iftrue then tz else t3. 
根据 FE-HEue ,if tmue then tp else 已- 一 b。 根据 归纳 假设 ,b 一 "”v。 结 果 可 从 -> 的 转换 得 出 。 
类 似 。 
A.8 引 理 :如 果 : 

Tiftl then tz else t3 一 ”V， 
于 是 要 么 8 一 ”tme 且 b- vv, 要 么 6 一 false 且 b->”v。 此 外 ,5 和 b 或 t 的 求 值 序列 肯 
定 会 比 给 出 的 求 值 序列 短 ( 对 于 其 他 项 构造 子 也 是 类 似 的 )。 
证 明 : 根 据 归 纳 于 已 给 定 的 求 值 序列 长 度 。 由 于 一 个 条 件 不 是 值 , 故 至 少 存在 一 步 求 值 。 
通过 在 这 一 步 的 最 后 规则 中 的 情况 分 析 ( 注 意 必须 有 一 个 开 规 则 ) 可 知 : 

情况 E-IF: ifti then tz elset3 一 iftithentzelseta 一 "v 

tl 一 ti 

根据 假设 归纳 ,要 么 攻 一 ”tue 和 bb 一 v 要 么 1 一 false 和 byv。 将 最 初 的 步 双 
6 一 攻 加 和 人 到 (一 tmue 或 或 4 一 false 的 推导 中 产生 想 要 的 结果 。 很 容易 检查 出 最 后 的 
求 值 序列 比 原来 的 短 。 ， 

情况 E-IFTRUE: if true then tz elsetz 一 tz 一"v 
立即 可 证 。 

情况 E-IFFALSE: if false then tz elset2 一 ta 一 "v 
立即 可 证 。 
A.9 命题 :如 果 t->"v 那 么 tv 成 立 。 
证 明 :根据 归纳 于 在 给 定 的 Fr> ”* v 推导 中 小 步 求 值 的 步骤 数 。 

如 果 在 0 步 >” v, 那 么 t=v 且 由 了 Value 得 出 结果 。 否 则 "于 5 的 情况 分 析 可 知 ， 

情况 : t=1iftithentzelsets 
根据 引 理 (A.8) ,或 者 (1)b 一 "tmue 和 b~"v 或 者 (2)6 一 "false 和 b~*v。 两 种 情况 的 讨 
论 是 相似 的 ,所 以 假定 有 情况 (1)。 引 理 (A.8) 也 告诉 我 们 6 一 * bme 和 b->*v 的 求 值 序列 
比 + 给 出 的 短 , 所 以 应 用 归纳 假设 ,得 出 mtime 和 ba 册 v。 以 此 ,我 们 能 使 用 规则 B-Ifrme 
来 推导 tv。 

对 于 其 他 的 项 构造 子 都 是 相似 的 。 


| 一 一 -一 一- 
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4.2.1 解答 :每 次 eval 调用 它 自身 , 它 增 加 一 个 tr 句柄 到 调用 堆栈 。 由 于 每 步 求 值 都 有 
一 个 递归 调用 ,堆栈 最 终 会 溢出 。 其 实 ,在 一 个 tr 中 将 递归 调用 包装 到 eval 中 意味 着 没 
有 尾 调 用 ,尽管 它 看 起 来 相像 。 比 较 好 (但 不 易 读 ) 的 eval 版 本 是 ; 


1et frec eval 芯 = 
1et t'opt = try Some (evall t) with NORuUTeApp1tfes 一 None in 
match t"opt with 
Some(t') 一 eval t" 
上 None 一 七 


s.2.1 解答 : 


or 一 和 Ab AcC. b tru ci; 
not 王 Ab. b fls tru; 


5,2.2 解答 : 

SCC2 mm An. AS。 AZ. n SS zZ)]; 
s.2.3 解答 ， 

tinmes2 = Am。An，AS。 AZ，m (Cn S) Zi; 
或 者 ,更 简洁 地 ; 


times3 = Am。AXn， AS. mm (Kn 5S); 


5.2.4 解答 ;再 次 ,有 多 种 方式 来 做 : 


powerl = Am、An. mi (times n) Cl; 
Power2 = Am。An。 用 ni; 


S$.2.5 解答 : 


Subtractl = Am，An.n prd m; 
sS.2.6 解答 : 求 值 prd co 需要 0O(n) 步 ,由 于 prd 使 用 nm 来 构造 mn 个 数 序 对 序列 ,那么 选择 
这 一 序列 最 后 一 对 的 第 一 个 分 量 。 
s.2.7 解答 :这 是 一 个 简单 的 解答 ， 


equal = An。 An. 
and (iszro (人 m prd nm)7) 
(iszro Cn prd m)7); 


5.2.8 解答 :这 是 我 的 想法 : 


nil es Ac，AMn。n; 
cons 一 Ah. At. AC，An. Ch (tc n); 
head = A1. 1 《Ah.At.h)y fls; 
tai] mA] . 
fst (1 (AMx. Ap- pair (snd p) (cons xX (snd p))) 
Cpair ni1 ni17); 
Jsni1 。XA1.， 1 (Ah.At.f1s) trui; 


还 有 一 个 不 同 的 方法 : 
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nil = pair tru trui 
cons = AMh，At， pair fls (pair h t); 
head = AZ. fSt (Snd Z) ; 
tail = AZ，Snd (Snd ZJ) ; 
isni3 = fsti; 
s.2.9 解答 :我 们 使 用 计 而 不 是 test 来 阻止 条 件 句 的 两 个 分 支 总 是 被 求 值 ,因为 它 会 
factorial 发 散 。 当 使 用 test 时 ,为 了 防止 这 种 发 散 ,需要 通过 将 它们 包装 在 虚拟 lambda 抽 
象 中 来 保护 两 个 分 支 。 由 于 抽象 是 数值 , 值 调用 的 求 值 策略 看 起 来 不 受 它们 的 支配 ,而 是 
逐 字 地 将 它们 传送 到 test 中 , 供 test 选择 一 个 并 把 它 返回 。 我 们 于 是 将 整个 test 表达 式 应 
用 到 一 个 虚 参 数 , 例 如 wm 来 强制 选择 分 支 的 求 值 : 
ff = Af，An， 
teSt 
(iszZro h) (AMX。，c1) (AX。 (人 (times n (f (prd n)J))) coi 


factorial = fix ff; 
equa1l c6 (factorial c3) ; 


* (AX- AyY，X) 


S.2.10 解答 :这 里 有 一 个 递归 函数 来 完成 这 一 工作 ， 


cn = Af. AMm， if iszero mm then co else SCC (f (pred mm) ; 
churchnat = fix Cn; 


它 进行 的 快速 检查 为 


equal (churchnat 4) c4; 
* (AX，AY。X) 


S.2.11 解答 : 


ff = Af. 和 1. 
test (isni1 1) 
(AxX， co) (AMAX. (pl1us (head 1) (f (tai1 1)))J co; 
Sum1iist = fix 咎 f; 


1 一 Cons c2 (〔〈cons c3 (cons c4 nji17)]; 
equa1 (Sum1ist 1) co9; 
* (AX，AY。X) 
一 个 列表 求 和 函数 当然 也 可 以 不 使 用 fx 来 写 : 


Sum1ist' = A1， 1 plus co; 
equal1 (Sum1iist 1) co9; 


* 〔《AX。AY。X) 
s.3.3 解答 :根据 对 t 的 长 度 归 纳 。 假 定 项 的 期 望 值 小 于 t, 必须 证 明 t 自身 ;如 成 功 ,能 
够 总 结 出 对 所 有 + 这 种 值 者 支持。 这 里 有 三 种 情况 需要 考虑 : 

情况 上 = x 
直接 ;HAY(D1 = Ilxl=1=sze(b。 

情况 t 上 = Ax.tl 
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根据 归纳 假设 ,1 太 ()1ssize( 人 th)。 现在 计算 如 下 ; YL=TYG) AI 
1FY( ssizelb)<size(t)。 
情况 : t 上 = tlt2 
根据 归纳 假设 :1 FY()1Tssize 人 ) 和 TY()Issie( 人 bp)。 现 在 计算 如 下 1EY(OD1 = 
1FVYGD)U FJ)ESTEFTYOGD)IL+TEY(5)ISsize(n)+size(b)<size(tb。 
s.3.6 ”解答 :对 于 完全 ( 非 确定 性 的 ) 归 约 , 规 则 是 : 
tl 一 tt 


tltz 一 tt 4E-App1) 
t2 一 七 2 
tl t2 一 tl t9 (E-App2) 
(CAx.tl2) t2 一 [X 一 t2]tl2 (E-AppAbs) 
(注意 : 值 的 语法 范畴 没有 被 使 用 ) 。 
对 于 规范 序 的 方法 ,一 种 书写 规则 是 : 
nal 一 nal 
nal tz 一 na1 t2 《E-App1) 
t2 一 t2 
nanfl t2 一 nanfl t》 《FE-App2) 
tl 一 ti 
AX.tl 一 AX.t' 《EAbs) 
(CAX,tlz) tz 一 [X 一 t2]tl2 (E-AppAbs) 
其 中 范式 的 语法 范畴 , 非 抽 象 范式 和 非 抽 象 被 定义 如 下 : 
nf := 范式 : 
AX.nf 
nanf 
nanf :一 非 抽象 范式 : 
X 
nanf nf 
na ::= 非 抽 象 : 
X 
亡 1 立 2 


( 比 起 其 他 定义 ,这 个 定义 有 些 难 理解 。 规 范 序 归 约 可 以 这 样 来 定义 “除非 选择 最 左 或 最 
外 的 约 式 , 它 就 类 做 于 全 有 归 约 ”)。 
懒惰 策略 定义 值 为 任意 的 抽象 一 一 与 值 调用 相同 。 求 值 规则 为 : 
ti 一 ti 


下 让 一 放 训 (E-Appl) 


(CAx.ti2) t2 一 [X 一 tz]ti2 (E-AppAbs) 
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S.3.8 解答 ; 
AX. 蕊 少 入 X. 蕊 
tl 4 AX. 蕊 12 t2 由 V2 [x 一 vzjtizyv 
亡 ! 七 2 业 V 
6.1.1 解答 ; 
co 王 和 人 入， A， 0; 


cz = AAA 1 (1 0); 
plus =XA. AM.AX.A.31(201); 
fix = A. (AM. 1 (AM. (1 1) 0)) (AMA. 1 (AMA，(1 1) 077; 
foo = (A.(A. 0)) CA，0) |; 

6.1.5 ”解答 ;两 个 函数 可 以 被 定义 如 下 : 


remOWe12QT1ESF(X) = 工 中 最 右边 的 x 的 索引 


remOueranmesr( 和 x.b ) = 入 . renmiouenamey ,(b ) 


TemOueicmmesr (hb 已 ) = 7emOUePnCN1Esr,x( 恒 ) rerzouertaresr ,(b) 
remiobenarmesr(k ) = 工 中 第 k 个 名 字 
7estiorenamiesr (入 , 蛋 ) = 入 .restorernamiesr (it ) 
其 中 x 是 不 属于 dom(P) 中 的 第 一 个 名 字 
Testoreria1iesr (tl 所 ) = restorertarmesrx(b ) restorenamaesr (bb ) 
renouenanmes 和 restorenames 要 求 的 特性 可 直接 通过 对 项 的 结构 归纳 来 证 明 。 
6.2.2 解答 : 
1. 入 .入 .1(0 4) 
2. 入 .03(XMO14) 
6.2.S 解答 : 
[0 一 1] (0 (入 .入 .2)) 一 1(A.A,. 3) 
即 ，a (AX. Ay, al) 
[0 一 1(A.2)] (0 (CA.I)) = (1CA.2)) (A. (2 (A.3)7) 
即 ，(a (Az.a)) (Ax.(a (AZz.a])) 
[0 一 1] (AAA. 027 一 和 A.02 
即 ，Ab. b a 
[0 一 1] (AAA, 10) 一 A,.20 
即 ，Aa' .aa 


6.2.8 解答 ;如 果 工 是 一 个 命名 上 下 文 ,将 工 中 的 索引 x 的 索引 写 为 PF(x) ,从 右边 计算 。 
现在 ,我 们 所 希望 得 到 的 性 质 是 ; 


remouenamtesr([x F~ sjt) = [FPCx)F= Temzouerymnesr( 5) ] ( remouertamiesr (t)) 


可 通过 使 用 定义 (5.3.5) 和 定义 (6.2.4) ,一 些 简 单 计 算 和 一 些 关于 remonenames 简单 引 理 坎 
及 其 他 项 上 的 基本 操作 ,来 对 + 进行 归纳 。 对 于 抽象 情况 ， 约定 ($.3.4) 起 到 了 关键 作用 。 


6.3.1 解答 ;一 个 索引 为 负 的 惟一 方式 ,是 标 为 0 的 变量 是 否 出 现在 移 位 项 中 任何 地 方 。 
但 是 这 不 可 能 发 生 ,因为 我 们 为 变量 0 执行 了 一 个 代 换 (既然 已 用 变量 0 进行 了 代 换 , 变 
量 0 代 换 的 项 已 经 向 上 移 位 了 ,那么 它 显然 不 可 能 包含 变量 0 的 任何 实例 )。 
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6.3.2 解答 :使 用 索引 和 层 的 描述 等 价 性 的 证 明 能 在 Lescanne 和 Rouyer-Degli(1995) 中 找 
到 。de Brmuijn 层 被 de Brmuijn(1972) 和 Filinski(1999 ,5.2 节 ) 讨 论 过 。 


8.3.5 解答 : 否 : 除 去 这 一 规则 打破 了 进展 性 质 。 如 果 我 们 真 的 反对 定义 0 的 前 驱 , 需 要 
另 一 种 方式 处 理 它 一 例如 ,如果 程 序 尝 试 它 , 则 引发 一 个 异常 (参见 第 14 章 ) ,或 者 通过 
改进 pred 类 型 来 使 它 只 能 被 合法 用 于 正 数 , 可 能 使 用 交叉 类 型 (参见 第 15.7 节 ) 或 依赖 类 
型 (参见 30.5 节 )。 


8.3.6 解答 :这 里 有 一 个 反例 :项 (if false then tme else 0) 是 一 个 不 良 类 型 ,但 可 求 值 为 良 
类 型 项 0。 

8.3.7 解答 :大 步 语 义 的 类 型 保持 性 质 与 我 们 给 小 步 语义 的 性 质 类 似 :如 果 和 良 类 型 项 求 
值 到 一 些 最 终 值 ,那么 这 个 值 和 初始 项 有 相同 的 类 型 。 证 明 与 已 经 给 出 的 相似 。 从 另 一 
方面 ,进展 性 质 现在 做 出 了 更 强 的 声明 :每 一 个 良 类 型 项 可 以 被 求 值 到 最 终 值 一 也 就 是 
说 ,对 良 类 型 项 求 值 总 会 终止 。 对 于 算术 表达 式 , 这 碰巧 会 发 生 ,但 对 于 更 有 趣 的 语言 ( 包 
括 普通 递归 的 语言 ,参见 11.11 节 ) 它 常常 不 是 真 的 。 对 于 这 些 语 言 ,我们 没有 进展 性 质 ; 
事实 上 ,很 难说 清楚 到 达 错 误 状 态 和 失败 终止 之 间 的 不 同 。 这 就 是 语言 理论 家 们 通常 喜 
爱 小 步 形 式 的 一 个 原因 。 

一 个 不 同 的 选择 是 给 出 明显 的 wong 转换 的 大 步 语义 (如 在 练习 8.3.8 的 形式 中 )。 这 种 
形式 在 Abadi 和 Cardelli 的 对 象 演算 的 操作 语法 中 (Abadi 和 Cardeli ,1996,p.87) 使 用 过 。 
8.3.8 解答 :在 扩充 的 语义 中 根本 没有 受阻 状态 ,每 一 个 非 值 项 或 者 以 通常 方法 求 值 为 
其 他 项 ,或 者 直接 为 wrong( 当 然 这 必须 被 证 明 ) ,所 以 进展 性 质 是 平凡 的 。 另 一 方面 ,主题 
归 约 定理 现在 告诉 我 们 更 多 一 些 。 既 然 wrong 没有 类 型 ,那么 一 个 良 类 型 项 只 能 求 值 到 
改 一 个 良 类 型 项 和 说 明 ,尤其 是 ,一 个 良 类 型 项 不 可 能 一 步 到 wrong。 实 际 上 , 老 的 进展 定 
理 的 证 明 将 成 为 新 的 保持 证 明 的 一 部 分 。 


9.2.1 解答 :因为 类 型 表达 式 集 为 空 (类 型 语法 中 不 存在 基本 情况 )。 


9.2.3 解答 :一 个 这 样 的 上 下 文 是 : 

T = f:Boo]1~~Boo1 一 Boo1, x:Bool, y:Boo1. 
通常 , 任 一 个 形 为 : 

IT = 下:S 一 T 一 Boo1,Xx:S,y:T 
的 上 下 文 ,其 中 $S 和 T 是 任意 类 型 ,都 可 达到 这 一 要 求 。 这 种 推理 是 对 第 22 章 中 研究 的 
类 型 重 构 算 法 的 核心 。 
9.3.2 解答 :假设 项 x x 没有 类 型 T。 于 是 ,根据 逆转 引 理 , 左 端子 项 (x) 必 定 有 类 型 T -> 了 
而 且 右 端子 项 (同样 是 z) 必 定 有 类 型 中 。 使 用 逆转 引 理 的 变量 情况 ,我 们 发 现 x :了 一 全 和 
x :T 必定 都 来 自 中 的 假设 。 既 然 对 工 中 的 x 只 存在 一 个 绑 定 ,这 意味 着 工 -=T。 
但 这 是 不 可 能 的 ,所 有 类 型 都 有 有 限 的 长 度 , 所 以 一 个 类 型 不 可 能 作为 它 自身 的 子 语 出 
现 , 由 此 相互 矛盾 。 
注意 ,如 果 类 型 允许 无 穷 大 ,那么 我 们 能 说 明 等 式 了 -> 了 = 了 成 立 。 在 第 20 章 详细 地 谈 
到 这 些 。 
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9.3.3 解答 :假定 FFt:S 和 TFt:T。 我 们 对 FF tbT 推 导 进 行 归纳 ,得 出 S$=T。 


情况 TVAR: 七 =X 
有 x:TET 


根据 逆转 引 理 (9.3.1) 的 情况 (1), FF ts 的 任何 推导 的 最 终 规则 都 必须 也 是 工 Var 上 且 
S= 了 T。 
情况 T-ABS- tt= Ay:Tz.ti 
T= Tz-Ti 
T,y:T2zHFtl :Ti 
根据 北 转 引 理 的 情况 (2),PF t :S 的 任何 推导 的 最 终 规则 都 必须 也 是 下 vabs, 而 且 这 个 
推导 必 有 在 S = 开 一 S 下 结论 为 工 ， y: 卫 广 世 : 9， 的 子 推导 。 根据 对 结论 为 (T,y : 卫 上 广 ti : 
T ) 的 子 推导 进行 归纳 假设 ,我们 得 到 S = 了 ,从 中 直接 得 出 S= T。 
情况 T-ApP, T-TRUE, T-FALSE, T-IF: 
类 似 。 
9.3.9 解答 :根据 对 下 F ttT 推 导 归 纳 。 归 纳 中 的 每 一 步 ,假设 所 需 的 性 质 满 足 所 有 子 推 
导 ( 邑 ,如 果 下 FF s:S 和 ss' ,那么 PHF s' :S, 只 要 下 F s:S 是 由 当前 的 子 推导 证 明 的 ) 且 
通过 对 推导 中 用 到 的 最 后 规则 进行 情况 分 析 可 得 出 
情况 T-VAR: tt=x  x:JeTr 
不 可 能 发 生 (没有 一 个 将 变量 作为 左 端的 求 值 规则 ) 。 
情况 T-ABS: 七 =Ax:TIi.t2 
不 可 能 发 生 。 
情况 T-APP: tt= 地 1 七 2 [Htl :TIlI 一 TI2 [FFtz :Tii 
T=Ti>2 
查看 图 9.1 左 端 有 应 用 的 求 值 规则 ,我 们 发 现存 在 三 个 可 以 推导 出 上 > 的 规则 :E-Appl， 
E-App2 和 E-AppAbs。 对 每 种 情况 分 别 考 虑 。 
子 情 况 FE.ApP1: tl 一 tl tt=titz 
由 T App 情况 的 假设 ,得 到 一 个 结论 为 Fa:Ti 一 Ta 的 初始 的 类 型 化 推导 的 子 推导 。 可 
以 对 这 个 子 推导 中 应 用 归纳 假设 得 到 下 Fit: 一 Th 。 把 它 和 (也 来 自 代 App 情况 的 假 
设 )F bc:T 结 合 起 来 ,可 以 应 用 规则 T-App 得 出 和 FTo。 
子 情 况 E-App2: tl=vi (etiisavaue) 


t2 一 七 2 
ft' = V1 t2 
类 似 。 
子 情 况 E-ApPABS; tl = Ax:Til.ti2 
t2 = V2 


t' = [X 一 Vz]tlz 
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利用 逆转 引 理 ,我 们 可 以 析 构 jx :To 的 类 型 化 推导 ,生成 下 ,xz :Ti 广电 :Ta。 由 此 根据 
代 换 引 理 (9.3.8) ,得 到 下 Ft:Tu。 

这 些 情 况 对 布尔 常数 和 条 件 表 达 式 与 在 定理 (8.3.3) 中 的 是 相同 的 。 

9.3.10 解答 :项 (ix : Bool.xy: Bool) (true tue) 是 不 良 类 型 ,但 可 归 约 为 良 类 型 的 ()y : 
Bool.y)。 

9.4.1 解答 :T-True 和 T-False 是 引入 规则 。T-TE 是 消去 规则 。T-Zero 和 TSuce 是 引入 规 
则 。T-Pred 和 T-Iszere 是 消去 规则 。 决 定 suce 和 pred 是 引入 还 是 消去 形式 要 求 一 些 思 


考 ,因为 它们 既 可 创造 数字 又 可 使 用 数字 。 关 键 在 于 , 当 pred 和 suee 相遇 时 ,它们 产生 一 
个 约 式 。 对 iszero 是 类 似 的 。 


11.2.1 解答 : tt = (CAx:Unit.x) unit 
t+l1 = (CAf:Unit 一 Unit. fCfCunit))) (Ax:Unit.ti) 
11.3.2 解答 : 
了 Tt2 :T2z (CTWideand) 
TFX :Ttz :TI~Tz 0 
(CA-:Til.tl2) Vvz 一 tl12 (T Wildcard) 


这 些 规则 的 证 明 是 缩写 中 推导 出 的 ,与 定理 (11.3.1) 十 分 相似 。 


11.4.1 解答 :第 (1) 部 分 容易 :如 果 我 们 使 用 规则 tasT= (xx :T.x)t,x 化 简 归 属 , 那 么 可 
直接 检查 出 归属 的 类 型 和 求 值 规则 能 直接 从 抽象 和 应 用 的 规则 中 推导 出 。 

如 果 我 们 归属 的 求 值 规则 改 为 一 个 迫切 的 版 本 ,那么 需要 一 个 更 精炼 的 化 简 方 式 , 它 可 以 
延迟 t 的 求 值 , 直 到 归属 被 抛 掉 。 例 如 ,可 以 使 用 : 


tasT 后 (CAx:Unit-T. x unit) (Ay:Unit. t) where y is fresh. 


当然 ,这 里 的 Unit 选择 是 不 重要 的 :任何 类 型 都 可 以 。 

这 里 的 微妙 之 处 是 ,尽管 化 简 是 正确 的 ,但 是 没有 给 出 定理 (11.3.8) 的 确切 性 质 。 原 因 是 
高 阶 规则 E-Aseribe 一 步 执行 ,一 个 化 简 的 归属 需要 两 步 来 求 值 到 消失 。 但 是 ,这 不 会 使 
我 们 吃惊 :我 们 可 以 把 这 个 化 简 当 做 一 个 简单 编译 形式 ,而 且 观 察 到 几乎 每 个 高 阶 构造 的 
编译 形式 需要 对 源 语言 中 的 每 个 原子 归 约 ,在 目标 语言 中 进行 多 步 求 值 。 于 是 我 们 所 
要 做 的 是 降低 定理 (11.3.1) 的 要 求 ,规定 每 个 高 阶 求 值 步骤 应 该 由 一 些 低 阶 步 双 序列 
来 匹配 : 

这 臣 一 Et then e(t) 一 ”et') 

最 后 的 微妙 在 于 另 一 个 方向 。 也 就 是 说 ,一 个 化 简 项 的 归 约 总 能 被 “ 回 射 "到 原来 项 的 
归 约 一 一 精确 说 明 时 需 稍 加 注意 ,因为 消除 一 个 化 简 归 属 需要 两 步 , 而 且 在 第 一 步 之 后 
低 阶 项 不 会 对 应 对 原始 高 阶 归属 项 的 化 简 或 已 经 消去 的 项 的 化 简 形 式 。 事 实 是 ,尽管 
化 简 项 的 第 一 次 归 约 总 是 能 通过 多 步 到 达 另 一 高 阶 项 的 化 简 来 “完成 ”。 正 式 地 ,如 果 


e( 世 一 5 那么 sS 一 ”ee(), 有 pt 
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11.5.1 解答 :这 是 你 需要 加 的 : 


let rec evall ctx t = match t with 


| TmLet(Cfi,x,v1,t2) when isval ctx v] 一 
termSsubstTop v1 t2 

| TmLet(Cfi,x,tl,t2) 一 
let tl1'′ = evall ctx tl in 
TmLet(fi，x，tl'，t2) 


1et rec typeof ctx 蒂 = 
match 七 with 


| TmLet(fi ,x,t1,t2) 一 

let tyT1 = typeof ctx tl in 

let ctx: = addbinding ctx x (VarBind(CtyT1)) in 

(typeof ctx”t2) 
11.5.2 解答 :这 个 定义 作用 不 大 。 第 一 , 它 改 变 了 求 值 的 顺序 :规则 ELetV 和 规则 ELet 
说 明了 一 个 按 值 调用 的 顺序 ,其 中 let x=t 已 中 的 必须 允许 将 它 代 换 为 x, 并 作用 于 
b 之 前 归 约 为 一 个 值 。 第 二 ,尽管 类 型 化 规则 下 Let 的 有 效 性 仍 被 保持 一 一 这 直接 可 从 置 
换 引 理 (9.3.8) 得 出 (项 的 不 良 类 型 性 质 不 被 保持 )。 例 如 ,不 良 定义 类 型 项 : 


let x = unitCunit) in uniit 


解释 成 良 定义 类 型 项 unit: 由 于 x 没 有 出 现在 unit 主体 中 ,不良 定义 类 型 子 项 unit(unit) 就 
消失 了 。 

11.8.2 解答 :图 A.1 给 出 了 一 个 建议 :增加 类 型 到 记录 模式 。 对 于 概 化 的 let 结构 的 类 
型 化 规则 ,T-Let, 提 到 一 个 单独 的 “模式 类 型 ”关系 (从 算法 上 看 ) 采 用 了 一 种 模式 和 类 型 
作为 输入 ,如 果 成 功 ,返回 一 个 模式 中 给 变量 一 个 适当 的 绑 定 的 上 下 文 。T-Let 在 主体 
的 类 型 检查 中 将 这 个 上 下 文 添加 到 当前 上 下 文 工 中 (我 们 假定 记录 模式 不 同 字 段 轩 变量 








集合 是 不 相交 的 )。 

- 1 1et p 闵 沪 汉 扩展 17.8 
AR 5 
本 和 人 PVAR) TFtITI 沽 提 光 

[, 回 -=-tz:T2 


FF iet 髓 -tintz : Tz TS 





-RCD) 





图 A.1 类 型 化 的 记录 模式 


注意 只 要 我 们 愿意 ,稍微 改进 一 下 记录 模式 类 型 规则 ,让 模式 提 到 的 字段 比 要 匹配 的 值 实 
际 提 供 的 字段 少 : 
fi ET [= {ky JeLm} 
V sl. 本 Jslm. 1 =kjand FFp:Ti>Ai (P-Rcd” ) 
FF- {Ti=pi ea] E {kj:Ti 了 AT 
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如 果 采 用 这 个 规则 ,可 将 作为 原 语 结构 的 记录 投影 形式 除去 ,因为 它 现 在 能 如 语法 修饰 那 
样 处 理 ， 


t,1] 钳 Tet{fl=xj=tinx 


证 明 扩 展 系统 的 保持 几乎 和 证 明 简 单 类 型 化 lambda 演算 的 保持 一 样 。 惟 一 需要 扩充 的 是 
将 模式 类 型 关系 与 运行 时 的 匹配 操作 联系 起 来 的 引 理 。 如 果 是 一 个 代 换 , 目 A 是 一 个 与 
5 有 同样 范围 的 上 下 文 ,那么 PH cFA 表 示 对 每 一 xE dom(A) ,我 们 有 PPF c(x):A(n)。 
引 理 :如 果 F tT 和 FF p:T 一 A 人 ,那么 matop(p,b) =c, 且 FoFA。 
这 里 提出 的 额外 的 符号 还 需要 标准 代 换 引 理 (9.3.8) 对 其 进行 稍微 的 概括 。 
引 理 :P,AFt:T 和 TFoFA, 那 么 下 F ct:To。 
对 于 这 里 C-ELet 规则 的 保持 证 明 可 按 以 前 同样 的 方式 得 出 ,只 要 根据 C-Let 情况 运用 这 些 
引 理 。 


11.9.1 解答 : 
Boo1 具 Unit+Unit 
true 插 in1 unit 
fa1se 性 inrunit 


if to then tl else t2 Casetoofinl1xli>tli1|linrxz>>t2 


where xl and xz are fresh. 


11.11.1 解答 : 


equa1 = 
下 ix 
(Aeq:Nat 一 Nat 一 Boo1 ， 
Anm:Nat，An:Nat。 
1f 1szero mi then iszero n 
el1se if iszero n then false 
el1se eq (pred m) (pred n)); 


宣 


equal : Nat 一 Nat 一 Boo1 


plus = fjix (Ap:Nat 一 Nat 一 Nat ， 
Am:Nat，An:Nat- 
计 iszero mi then n else succ (p (pred m)] n]7)7; 


本 


plus : Nat 一 Nat 一 Nat 


times = fix (At:Nat 一 Nat 一 Nat . 
Am:Nat。 An:Nat. 
if iszero m then 0 else plus n (t Cpred m) n7); 


> times : Nat 一 Nat 一 Nat 
factorial = fix (CAf:Nat 一 Nat。 


Am:Nat。 
让 iszero mi then 1 else times m (f (pred m))); . 


里 


factorial : Nat 一 Nat 


factorial 5; 
> 120 : Nat 
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11.11.2 解答 ; 


]etrec plus : Nat 一 Nat 一 Nat = 
Am:Nat。 An:Nat . 
jf iszero m then n else Succ (plus (pred m) n) in 
1etrec times : Nat 一 Nat 一 Nat = 
Am:Nat。 An:Nat 
if 15zero mi then 0 else plus n (times (pred nm) n] in 
]etrec factorial : Nat~-Nat = 
Am :Nat ， 
if 1szero m then 1 el1se times 站 (factorial (pred m)) in 
factorial 5; 


”120 : Nat 
HL.12.1 解答 :奇怪 ! 实际 上 ,进展 定理 不 支持 。 例 如 ,表达 式 head[TJnilfT] 受 阻 一 一 
没有 求 值 规则 应 用 于 它 ,但 它 不 是 值 。 对 于 一 个 成 熟 的 程序 语言 ,这 种 状况 应 由 head[T] 
pi[ 玉 提 升 一 个 异常 而 不 是 受阻 来 处 理 ; 在 第 14 章 考 虑 异常 。 
11.12.2 解答 :不 能 全 部 删除 :如 果 我 们 抹 除 了 mil 的 注释 ,那么 就 失去 了 类 型 的 惟一 性 
定理 。 操 作 上 , 当 类 型 检查 器 看 到 nil 就 知道 必须 对 T 赋 予 类 型 List T, 但 是 不 采用 一 些 猜 
测 形式 , 它 就 不 知道 如 何 选 择 T。 当 然 ,更 复杂 的 类 型 算法 如 OCaml 编译 器 使 用 能 精确 地 
进行 这 种 猜测 。 在 第 22 章 谈 到 这 一 点 。 
12.1.1 解答 :对 应 用 情况 进行 分 析 。 假 设 试 图 说 明 hb 是 规范 的 。 我 们 知道 根据 归纳 
假设 5 和 都 是 规范 的 , 设 和 m 为 它们 的 范式 。 根 据 类 型 关系 引 理 (9.3.1) 的 逆转 引 
理 ,我 们 知道 w 对 某 Ti 和 T 有 类 型 Ti 一 Ts。 所 以 ,根据 典型 形式 引 理 (9.3.4),w 必 有 
形式 ix :Ti tp。 但 是 归 约 hb 为 (ix :Tue)m 没 给 出 一 个 范式 ,由 于 这 里 应 用 已 AppAbs 
规则 ,生成 [x r 到 ji ,要 完成 证 明 , 必须 证 明 该 项 是 可 规范 化 的 。 但 这 里 我 们 受阻 了 , 因 
为 这 一 项 可 能 (大 体 上 ) 比 原始 项 6b 大 (因为 代 换 造成 的 w 的 副本 与 已 中 x 出 现 的 次 数 
一 样 多 )。 


12.1.7 解答 :定义 (12.1.2) 可 用 两 个 附加 语句 来 扩展 : 
e@ Rau(b 当 且 仅 当 + 停 止 
e Ra xna(b 当 且 仅 当 + 停止 ,Rr (t1), 且 Ra (t.2) 
引 理 (12.1.4) 的 证 明 可 用 一 个 附加 的 情况 来 扩展 ， 
e 假定 对 于 某 卫 和 有 ,有 T=T x 和 。 对 于 “ 仅 当 "方向 () 我 们 假定 妨 (O 且 必须 说 明 
Ar ) ,其 中 tt。 我 们 知道 Cat1 和 Ro (t.2) 来 自 Rr xz 的 定义 。 但 是 求 值 规则 
Projil 和 下 Poj2 告诉 我 们 41 一 臣 工 和 t2> 上 .2, 所 以 根据 归纳 假设 ,有 Rr (Cr.1) 
和 Ra (t .2)。 据 此 ， Rn x 卫 的 定义 产生 Rn x 人 人 (t)。 “ 当 旦 "方向 是 类 似 的 。 


最 后 ,我 们 为 引 理 (12.1.5) 的 证 明 需 要 补充 一 些 情 况 (每 一 种 情况 对 应 着 一 条 新 的 类 型 
规则 ): 
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情况 T-IF: t= iftli thentz elseti THtl : Bool] 
FHFt2z :T FFt3:T 
WhereT = X1:TI，,,,，Xn2Tn 


设 s= [x 一]…[m rm]。 根 据 归纳 假设 ,我 们 有 Ra (ci ),Rr(oe) 和 Rr(os)。 根 据 
引 理 (2.1.3),o ,ob 和 ob 都 是 规范 的 ;让 我 们 将 它们 的 值 写 为 we 和 m。 引 理 (2.1.4) 
给 出 Raus(vm),Rr(e) 和 Rr(s)。 同 样 ,ct 自身 明显 是 规范 的 。 
我 们 对 了 继续 归纳 ; 
e 如 果 T=A 或 T= Bool, 那 么 Rir(cb) 直 接 根据 ot 是 规范 的 事实 得 出 。 
e 如 果 T= 中 一 卫 , 那 么 必须 说 明 任意 的 se Rs 有 Rn ct s。 所 以 假设 se Rr 。 接 着 ， 
根据 寺 表 达 式 的 求 值 规则 ,我 们 知道 或 者 ct s~ ”vs 成 立 ,或 者 aot s~ 下 s 成 立 ， 
全 依赖 m 是 tme 还 是 filse。 但 我 们 由 Ra -as 的 定义 知道 Ra (wm s) ,Ra (wm s) 还 有 
及 只 和 有 rm3 的 事实 。 通 过 引 理 (12.1.4), 有 人 (cot s)。 


情况 T-TRUE: tt= true  T=Booi 
直接 可 证 。 
情况 T-FALSE: t= false  T=8Bool] 
直接 可 证 。 
情况 T-PAIR: t=t{tftitz] TFrti:TI Thtz:Tz T=TxTz 
根据 归纳 假设 ,对 于 i= 1,2 有 Rr (ci)。 令 v 为 对 每 个 m 的 范式 。 注 意 , 由 引 理 (12.1.4) 
有 Rr (vi)。 
对 第 一 投影 和 第 二 投影 应 用 求 值 规则 有 io ,ob .i ->” w, 由 此 根据 引 理 (12.1.4) ,得 到 
Ra (io ,op1 .iD。Ra xn 的 定义 生成 Rr sa (iot ,cb 上 , 即 为 Re sn (alb bl)。 
情况 T-PRoJI: t=to.1 ThFto:TIxTz T=Ti 
直接 从 Ri va 的 定义 得 到 。 


13.1.1 解答 ; 
a= ({，,\ b= 忒 ij} 
/NA 则 
CO Co) Q) 


13.1.2 解答 : 否 ,用 任意 索引 号 来 调用 lookup 而 不 是 update, 这 将 会 造成 发 散 。 关 键 在 于 
在 用 新 的 郴 数 重 写 a 之 前 要 保证 能 找到 a 中 存放 的 值 , 否 则 当 我 们 开始 查找 时 ,只 能 找到 
新 函数 ,而 找 不 到 原来 的 函数 。 


13.1.3 解答 :假设 语言 提供 了 一 个 原 语 free, 它 将 引用 单元 作为 参数 ,释放 它 的 存储 以 便 
引用 单元 的 下 一 次 分 配 能 得 到 同样 的 内 存单 元 。 那 么 程序 ; 
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left r 一 ref 0 in 
]et s = in 

free 『; 

et te ref true in 
t := 一 false; 

Succ 〔!S) 


将 求 值 为 受阻 项 suee fse。 注 意 别名 在 出 现 的 问题 中 起 到 了 一 个 关键 的 作用 ,因为 如 果 
变量 z 自 由 出 现在 表达 式 的 其 余部 分 , 它 就 会 产生 非法 的 Gee r, 这 样 会 妨碍 我 们 检测 无 交 
的 回收 。 

这 种 例子 在 类 似 这样 的 手工 内 存 分 配 管理 的 语言 中 容易 模仿 (ref 构造 子 对 应 于 C 的 
malloc, 这 里 的 fee 是 对 C 中 free 的 简化 版 )。 


13.3.1 解答 :一 个 简单 的 垃圾 收集 计算 应 为 这 样 : 


1. 通过 使 位 置 集 C 有 限 来 模仿 内 存 的 有 限 性 。 

2. 在 存储 中 定义 位 置 的 可 达 性 。 将 t 所 在 的 位 置 集 写 为 jocations(D 。 对 位 置 1 ,上 和 
存储 ,如 果 Ze 1ocotions(P(D)) ,那么 在 关中 ,1 可 一 步 到 达 卢 。 如 果 存 在 位 置 的 
有 限 序 列 开始 于 / 终止 于 疙 ,那么 上 是 ! 可 以 到 达 的 ,而 且 每 一 步 都 是 可 以 从 前 一 
步 到 达 的 。 最 后 ,定义 可 以 从 存储 呈 中 的 项 t 为 可 达 的 位 置 集 , 记 为 reachable (t， 
,作为 上 中 从 7ocauions(b 可 达 的 位 置 集合 。 

3. 用 关系 He t 玉 模拟 垃 级 收集 行为 ,其 中 该 关系 由 以 下 规则 来 定义 : 

人 =/ 限制 到 (ft 包 


[rz 的 定义 域 就 是 reachabie(t,p) ,在 这 个 域 的 每 个 位 置 的 值 都 和 上 的 一 样 ]。 


4. 将 求 值 序列 定义 为 求 值 与 垃圾 收集 交错 进行 的 序列 ;- 鱼 * = (一 U->。) ,注意 我 
们 不 是 仅 加 入 规则 GC 到 普通 一 步 求 值 关系 中 , 仅 在 “最 外 层 " 执 行 垃圾 回收 是 很 
重要 的 ,这 里 我 们 能 看 到 整个 项 都 被 求 值 。 如 果 人 允许 垃圾 收集 发 生 在 一 个 应 用 的 
左 端 求 值 “ 内 部 ”, 例 如 ,我 们 可 能 错误 的 重复 使 用 了 在 应 用 中 右 端 实际 用 到 的 位 
置 ,因为 通过 查看 左 端 ,我 们 看 不 出 它们 仍然 为 可 存 取 的 。 

5. 还 需要 判断 一 下 对 估 值 规则 定义 的 修改 除了 会 消耗 内 存 外 ,不 会 对 最 终结 果 产 生 
影响 ; 

(a) 如 果 tu-” 世上 那么 t 一 下 | ,对 这 样 一 些 允 有 上 以 有 比 凤 大 的 域 ,在 
它们 被 定义 处 一 致 。 
(b) 如 果 tp 全 人 ,那么 或 者 : 


i te ,对 一 些 必 , 必 有 比 凡 小 的 域 , 且 在 六 被 定义 处 与 上 瑚 一 致 
iii, tlu 的 求 值 溢出 内 存 , 即 到 达 状 态 儿 1y, 当 求 值 的 详 下 一 步 需 要 分 配 一 个 
新 空间 ,但 由 于 reachabze( 它 , 几 ) = 工 而 没有 空间 可 用 


这 个 简单 的 垃圾 收集 处 理 忽略 了 真实 存储 的 几 个 方面 ,例如 存储 不 同 值 分 别 要 求 不 同 长 
度 的 存储 空间 , 像 一 些 更 高 级 语言 特性 那样 ,例如 终结 器 (一 段 代 码 ,运行 系 统 要 将 垃圾 回 


(E-GC) 
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收 附 在 这 段 代码 上 的 数据 结构 时 热 行 它 ) 和 弱 指 针 ( 不 作为 一 个 数据 结构 的 “真实 引用 ”的 
指针 ,因此 该 数据 结构 能 够 被 垃圾 收集 ,即使 指向 它 的 弱 指 针 仍然 存在 )。 在 操作 语义 中 
一 个 更 复杂 的 垃圾 收集 处 理 能 在 Momrisett 等 (1995) 中 找到 。 


13.4.1 解答 : 
let rl = ref (Ax:Nat.0) in 
1et rz = ref (Ax:Nat.(CirrJx) in 
Crl := 〔(AX:Nat.Ctirz)Xx)7; 


r2); 
13.5.2 解答 :让 成 为 具有 单独 位 置 ; 的 存储 : 
HA = (=Ax:Unit. (1)(x))， 


工 为 空 上 下 文 。 根 据 以 下 两 种 存储 类 型 上 是 良 类 型 的 : 


2 = 1:Unit 一 Unit 

zx， = 1:Unit 一 (Unit~Unit). 
13.5.8 解答 :在 非 强 规范 化 的 系统 中 存在 良 定 义 类 型 项 。 练 习 13.1.2 给 出 了 一 个 。 这 
是 另 一 个 : 


tl = Ar:Ref(〈Unit-unit) 
(Pr := (AX:Unit，(CIr)X); 
(CILr) unity) ; 

t2 = ref (AX:Unit，Xx); 


将 计 应 用 到 世 产 生 了 一 个 (和 良 定义 类 型 ) 发 散 项 。 
更 概括 地 ,我 们 能 利用 以 下 几 步 通过 使 用 引用 来 定义 任意 递归 函数 (这 一 技术 实际 上 被 应 
用 于 一 些 函 数 语言 的 实现 )。 
1. 分 配 一 个 ref 单元 而 且 用 一 个 有 适当 类 型 的 虚 函 数 来 初始 化 : 
factrer = ref (AMn:Nat.0); 
” factref : Ref (Nat 一 Nat) 


2. 定义 我 们 感 兴趣 的 机 数 体 , 利 用 递归 调用 的 引用 单元 的 内 容 ; 


An:Nat . 
计 iszero n then 1 else times n〈(!factrer)(pred n)); 


>” factbody :; Nat 一 Nat 
3. 通过 存储 实体 到 引用 单元 “回填 ”， 
factref 到 factbody ; 


4. 抽出 引用 单元 的 内 容 并 按照 要 求 使 用 : 


fact = 1factreri 
fact 5; 


*” 120 : Nat 
14.1.1 解答 :用 emor 想 要 的 类 型 注释 它 将 会 破坏 类 型 保持 性 质 。 例 如 ,一 个 良 定义 类 


型 项 ， 
(AX:Nat.xX) ((AY:Boo1,.5) (Cerror as Boo1)) ， 
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(这 里 error as 了 是 异常 的 类 型 注释 语法 ) 将 一 步 求 值 到 一 个 不 良 定义 类 型 项 : 

(Ax:Nat,xX) (error a5 Boo1)7; 
当 求 值 规则 将 一 个 eror 从 它 出 现 的 那 一 点 传送 至 程序 的 最 高 层 , 我 们 可 以 将 它 视 为 有 不 
同类 型 (T-Error 规则 具有 灵活 性 允许 我 们 这 样 做 )。 
14.3.1 解答 :标准 ML 的 定义 (Milner, Tofte, Harper 和 MacQueen, 1997; Milner 和 Tofte， 
1991b) 形 式 化 了 ex 类 型 。 一 个 相关 的 处 理 可 以 在 Harmper 和 Stione(2000) 中 被 找到 。 


14.3.2 解答 :参看 Leroy 和 Pessaux(2000) 。 
14.3.3 解答 ;参看 Harmper 等 (1993)。 


15.2.1 解答 : 
一 一 一 一 一 一 3RCDPERM -一 一 一 一 9-RCDWIDTH 
{fx:Nat,y:Nat,Z:Natj fy:Nat,x:Nat,z:Natl 
<: :Nat,Xx:Nat,Z:Nat <: fy:Nat 
y x ]} {y:Nat} STRANS 


{x:Nat,y:Nat,z:Nat} <: {y:Nat} 


15.2.2 解答 :有 很 多 同样 结论 的 其 他 推导 。 这 是 一 个 


S-RCD-WIDTH “一 一 一 一 -REFL 














Rxy <: Rx Nat <: Nat 
一 一 一 一 -一 一 ARROW 
上 咎 : Rx 一 Nat Rx 一 Nat <: RXy 一 Nat 
一 一 TSUB 
上 于 ; Rxy 一 Nat FF xy : Rxy 
一 一 一 一 TAPP 
上 于 xy : Nat 
这 是 另 一 个 : 
S-RCDWIDTH S-REFL 
: Rxy <: RX : 
一 一 TRCD 一 一 一 一 TRANS 
F Xy : Rxy RXxy <: RX 
一 -一 一 TUB 
广 千 :有 RXx 一 Nat 上 XY : RX 
一 一 一 一 T-APP 
六 个 Xy Nat 


实际 上 ,如 第 二 个 例子 建议 的 ,在 这 个 演算 中 对 任何 可 推导 的 语句 实际 上 都 有 无 限 多 类 型 
化 推导 。 
1S.2.3 ”解答 : 
1. 有 6 个 :ila:Top,b:Topj,| b:Top,a:Top|l ,| a:Top| ,| b:Top| , 什 和 Top。 
2. 例如 , 令 : 

S = 并 

S = |a:Top} 

S$ = |a:Top,b:Top| 

S = |a:Top,b:Top,c:Topj 

等 等 。 
3. 例如 , 令 站 =S 一 Top,T =S~>Top 了 =S 一 Top, 等 等 。 
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15.2.4 解答 :(1) 否 。 如 果 存 在 一 个 , 它 必 将 或 者 是 一 个 箭头 类 型 或 者 是 一 个 记录 类 型 
(显然 它 不 可 能 是 Top)。 但 是 一 个 记录 类 型 不 可 能 是 任何 箭头 类 型 的 子 类 型 ,反之 亦 然 。 
(2) 再 次 否 。 如 果 有 这 样 的 箭头 类 型 代 ~ 呈 , 它 的 定义 域 类 型 了 将 是 每 一 其 他 类 型 S 的 
子 类 型 ;但 我 们 刚 看 到 这 是 不 可 能 的 。 


15.2.5 解答 ;如 果 我 们 想 要 保持 存在 的 求 值 语 义 , 增 加 这 个 规则 将 不 是 好 方法 。 新 的 规 
则 允许 我 们 去 推论 ,例如 :Nat x Bool <: Nat, 这 将 表明 受阻 项 (succ($,tme)) 将 是 良 定义 类 
型 ,违背 了 进展 定理 。 这 个 规则 在 一 个 “ 强 追 语义" 中 是 安全 的 (参见 15.6 节 ) ,尽管 对 子 
类 型 的 检查 会 产生 算法 困难 。 


1S.3.1 解答 :通过 增加 伪造 序 对 到 子 类 型 关系 ,我 们 能 够 打破 保持 和 进展 。 例 如 , 增 
加 公理 : 

{x:{flj<: {x:Top 一 Topl 
允许 我 们 推导 了 下 Ht:Top, 其 中 t= ( 枯 = 站 Ho 和 。 但 是 t 一 用 是 不 可 类 型 化 的 一 一 违 
反 了 保持 规则 。 或 者 , 若 增加 公理 : 

{} <: Top 一 Top 

于 是 冒 生 项 是 可 类 型 化 的 ,但 这 一 项 受阻 而 不 是 值 一 一 违反 进展 定理 。 
另 一 方面 ,从 子 类 型 关系 中 取出 序 对 是 没有 危险 的 。 在 进展 性 质 陈 述 中 提 到 类 型 关系 的 
惟一 位 置 是 在 前 提 中 ,所 以 限制 子 类 型 关系 ,进而 类 型 关系 只 能 使 进展 人 性质 更 容易 获得 。 
关于 保持 性 质 的 情况 ,特别 地 ,我 们 担心 抛弃 传递 性 规则 将 引起 麻烦 。 直 觉 上 ,不 能 的 原 
因 是 由 于 它 在 系统 中 的 作用 实际 上 不 是 关键 的 ,因为 包含 规则 TSub 可 以 替代 传递 性 规 
则 ,例如 ,不 用 ; 








S<:U U<:T 
一 一 一 一 一 一 一 S-TRANS 
TIhFtEes S<:T 


THFtiT 


TSuB 
可 写 为 : 


TFt:S 9S<: 二 


T-SuB 
工 F-FtEyuU U <: 下 
一 一 一 一 一 TSUB 
THFt3iT 





15$.3.2 解答: 
1. 根据 归纳 于 子 类 型 化 推导 。 通 过 检查 图 15.1 和 图 15.3 的 子 类 型 化 规则 ,在 推导 S$ <: 
T~~ 了 中 得 最 终 规 则 显然 是 S-Refl,S-Trans 或 S-Arow。 
如 果 最 终 规则 是 S-Refl, 那么 结果 可 直接 得 出 (由 于 在 这 种 情况 中 S= 人 一 卫 , 我 们 可 
以 通过 自 反 性 推导 出 全 <:T 和 卫 <: 工 )。 
如 果 最 终 规 则 是 S-Tians ,那么 对 一 些 类 型 U 我 们 有 结论 为 S <:U 和 TU <:Ti 一 卫 的 子 推 
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导 ,通过 对 第 二 个 子 推导 归纳 假设 ,我 们 看 到 U 有 形式 Di 中 其 中 荆 <:U 和 U <:T。 
现在 ,既然 我 们 知道 U 是 一 个 箭头 类 型 ,我 们 可 以 应 用 归纳 假设 到 第 一 个 子 推导 来 得 
到 满足 U <:S 和 S <:U 下 的 S=Si 一 S。 最 终 ,可 以 使 用 S-Trans 两 次 来 重新 组 织 我 
们 已 经 建立 的 事实 ,得 到 站 <:S (从 下 <:U 和 U <:S) 和 S <: 王 (从 S <:U 和 
U， <: 开 ) 。 

如 有 果 最 终 规则 是 S-Arow, 那 么 S 有 理想 的 形式 且 直 接 子 推导 正 是 我 们 所 需要 的 关于 $ 
部 分 的 事实 。 

2. 根据 归纳 于 子 类 型 推导 。 再 次 检查 子 类 型 规则 ,揭示 $ <: 1, :Ti<+2" | 中 的 推导 最 终 

规则 必定 是 SRefl,S-Trans,S-RedWidth ,S-RedDepth ,或 者 SRedPemm。 对 S-Refl 的 情况 是 
平凡 的 。 对 SRcdWidth,S-Redpepth 和 S-RcdPermm 的 情况 都 直接 可 证 。 
如 果 最 终 规则 是 S-Trans, 那 么 我 们 对 一 些 类 型 I 有 结论 为 S<:U 和 <: 1L:TEL| 
的 子 推导 。 应 用 归纳 假设 到 第 二 个 子 推导 ,我 们 看 到 U 对 于 每 个 1 = u 有 形式 |u ， 
U | 其 中 是 和 ?Su 和 TU。 <:T。 现 在 既然 知道 口 是 一 个 记录 类 型 ,我 
们 能 够 应 用 归纳 假设 到 第 一 个 子 推导 来 得 到 对 于 每 个 u = 区 有 S= 1:S7e1 | 其 
中 ju 1Sjk 关 和 Si <:U。 通 过 重新 整理 事实 ,可 根据 集合 包含 的 传递 性 得 
到 1 ES k 关 | 和 通过 S-Trans 对 于 每 一 个 1 = 有 S <:T, ,由 于 每 一 个 T 中 
的 标签 必须 同时 在 U 中 (或 者 说 1 对 某 些 ae 来 说 必须 等 于 u ) ,以 及 接 下 来 我 们 知道 
S <:U。 和 U。 <:Ti( 这 里 关于 元 变量 名 的 艰难 选择 是 无 法 避免 的 :这 里 没有 足够 的 罗 
马 字符 随处 可 用 )。 


15.3.6 解答 :两 部 分 都 可 根据 对 类 型 化 推导 进行 归纳 。 我 们 仅 显 示 第 一 部 分 的 证 明 。 
通过 对 类 型 化 规则 的 检查 ,在 推导 F v:Ti~ 习 中 的 最 终 规则 显然 是 工 Abs 或 TSub。 如 果 
是 TAbs 那么 我 们 希望 的 结果 直接 来 自 规则 的 前 提 , 所 以 假设 最 终 规则 是 了 Sub。 

根据 TSub 的 前 提 , 有 H v:S 和 S <:Ti 了。 从 逆转 引 理 (15.3.2) ,知道 $ 有 形式 SS,。 
结果 可 以 从 归纳 假设 中 推出 。 


16.1.2 解答 :第 (1) 部 分 是 对 结构 $ 的 直接 归纳 。 
对 于 第 (2) 部 分 ,根据 第 (1) 部 分 首先 注意 到 ,如 果 存 在 关于 $ <:T 的 任何 推导 ,那么 必 存 
在 一 个 无 自 反 的 推导 。 我 们 现在 根据 归纳 于 $ <:T 的 无 自 反 的 推导 长 度 继续 讨论 。 注 意 
到 我 们 对 推导 的 长 度 来 归纳 ,而 不 是 像 我 们 过 去 那样 只 对 它 的 结构 。 这 是 必要 的 ,因为 在 
箭头 和 记录 情况 中 ,我 们 对 未 以 原始 的 子 推导 形式 出 现 的 新 构造 的 推导 进行 归纳 。 
如 果 推 导 中 的 最 后 规则 为 除了 S-Trans 外 的 任何 规则 ,那么 结果 可 以 从 归纳 假设 中 直接 得 
出 ( 换 句 话说 ,通过 归纳 假设 ,所 有 最 终 规则 的 子 推导 能 被 不 包括 传递 性 的 推导 替换 ;因为 
最 终 规则 自身 也 不 是 可 传递 的 ,整个 推导 现在 都 是 无 传递 性 的 )。 所 以 假设 最 终 规 则 是 
S-Trans。 换 句 话说 ,我 们 得 到 了 对 一 些 类 型 U 含 结论 S <:U 和 TU <:T 的 子 推导 。 接 下 来 
考虑 在 这 两 种 子 推导 中 的 最 后 规则 序 对 的 情况 : 

情况 ANY/S-ToP: T= Top 
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如 果 右 端 推 导 结 束 于 S-Top ,那么 结果 是 直接 的 ,由 于 S <: Top 能 从 S-Top 推导 出 ,无 论 $S 
是 什么 。 

情况 S-ToP/ANY: U= Top 
如 果 左 端 推 蜡 结 束 于 S-Top ,我 们 首先 注意 到 ,通过 推导 假设 ,可 以 假定 右 端子 推导 是 无 传 
递 性 的 。 现 在 ,通过 检查 子 类 型 化 规则 ,可 看 到 这 个 子 推导 的 最 后 规则 一 定 是 S-Top( 我 们 
已 经 取消 自 反 性 ,而 且 所 有 其 他 规则 要 求 U 或 是 箭头 或 是 记录 )。 结 果 通 过 S-Top 得 出 。 

情况 S-ARROW/S-ARROW: S=S-~Sz U=U-U T=TI-T2 

Ui <: Si 9S2> <: U2 
Ti <: 出 U2z> <: T2 
使 用 S-Trans 可 以 从 给 出 的 子 推导 构造 卫 <:S 和 <:T 的 推导 。 此 外 ,这 些 新 的 推导 是 
严格 地 小 于 原来 的 推导 ,所 以 归纳 假设 能 被 应 用 以 得 出 无 传递 的 了 <:S 和 SS <: 工 的 推 
导 。 把 这 些 和 SArow 结合 ,可 得 到 无 传递 的 S 一 S <:Ti 一 下 的 推导 。 
情况 ”S-Rcd/S-Red: 
类 似 。 
其 他 情况 : 

其 他 组 合 方式 (S-Armrow/S-Red 和 S-Red/S-Arow) 是 不 可 能 的 ,由 于 它们 在 1 的 形式 上 加 上 
了 不 相 容 的 约束 。 
16.1.3 解答 :如 果 我 们 增加 Bool 类 型 ,那么 引 理 (16.1.2) 的 第 一 部 分 需要 被 修改 一 下 ， 
它 现在 应 该 读 做 “不 使 用 S-Refl,S <:S 能 对 任何 类 型 $ 都 是 可 推导 的 , 除 Bool 类 型 外 ?或 
者 另 一 -种 方法 ,我 们 可 以 增加 一 个 规则 ; 

Bool1 <: Boo1 
到 子 类 型 定义 中 , 而 接着 显示 S-Refl 能 从 扩展 系统 删除 。 
16.2.5 解答 :根据 对 声明 性 类 型 化 推导 进行 归纳 。 然 后 分 析 推 导 中 的 最 终 规则 的 情况 。 

情况 T-VAR: 二 =X T(x) =T 
通过 TA-Var 直接 得 出 。 

情况 T-ABS t= Ax:Ti.tz Tx:Tirt2:Tz T=T-Tz 
通过 归纳 假设 ,对 一 些 S <: 王 有 TFT,x:T hb:S。 由 TAAbhs 有 Pr-t:T 一 忆 。 由 
S-Armrow 有 Ti 一 S <:Ti 一 习 ,如 要 求 的 那样 。 

情况 T-ApP: t=titz Thti:Ti-Tz FIhtz:Ti T=Ti2 
通过 归纳 假设 ,对 于 一 些 S <:Ti 一 T 有 PP rt:S$ 且 对 于 一 些 S <:Ti 有 Pr-b:S。 通 
过 子 类 型 关系 的 逆转 引 理 (15.3.2) ,对 一 些 S: 和 Su 有 上 且 Ti<:S 和 Sa<:T: , 必 有 形式 Si 一 
S:。 根 据 传 递 性 ,有 S <: Su。 根据 算法 子 类 型 的 完备 性 ,有 ~ S <:Si。 现 在 由 TA-App， 
T ru:bp:So, 这 个 情况 讨论 结束 (因为 我 们 已 有 So<:T， )。 
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情况 TRcp， t = {flisti'er FFti :IT 对 每 个 ;1 
T 一 {fTi :TI 4 
直接 可 证 。 
情况 T-PROJ: 上 = 上 tl.1/ THFtl :Tc:T er T=T/ 
与 应 用 情况 类 似 。 
情况 T-SUB: tt:S SS<:T 
根据 归纳 假设 和 子 类 型 化 传递 性 。 
16.2.6 解答 :根据 声明 性 规则 ,项 )Xx: ja; Natl .x 轻 有 类 型 la:Natj 一 ja :Nat| 又 有 
|a :Nat| 一 Top。 但 没有 S-Arow, 这 些 类 型 就 无 法 比较 (而 且 没 有 存在 于 它们 两 者 之 下 的 
类 型 )。 
16.3.2 解答 : 先 给 出 算法 的 互 递 归 序 对 声明 (而 在 下 面 将 会 显示 ) ,分 别 计 算 类 型 S 和 T 
序 对 的 合 类 型 ] 和 交 类 型 M。 第 二 个 算法 仍 将 会 失败 ,表示 为 S 和 T 没 有 交 。 
Boo1 丰 S=T=Bool 
Mi 一 ]> 让 LS=S1 一 S2 T=T 了 Ti 一 T2 


SIATI=M S$SzvTz=]2> 


SvT = {:]1754] 于 3 = {kj:SJ Am] 


T= {13:Ti ee 
{ 于 lel14} 荆 {ky 4c1m 人 {T) 1 
SvT=J 对 每 个 天 = 所 = 
Top 其 他 情况 

S$ 丰 T = Top 

T 让 9 = Top 

Boo1 让 LS=T=Bool 

Ji 一 M2 厂 $ = SI 一 52 T=TI~Tz 

SivYvTI=] 9 A 人 Tz=M 
5 和 T _ {mi :M Is14] 证 S 一 {ky:S/ JELm} 


T={i :Ti 4 
fmj ia: = TU Te 
SATI= 册 对 每 个 m = kj = 1 


M = 9) 在 mi = kj occurs only in S 
册 =Ti 认 mi = 1 occurs only inT 
Ai 其 他 情况 


在 第 一 个 算法 的 箭头 情况 中 ,对 第 二 个 算法 的 调用 会 导致 失败 ;这 种 情况 中 第 一 个 算法 转 
变 为 最 后 一 种 情况 且 结 果 为 Top。 例 如 Bool 一 Top v 佬 一 Top=Top。 

很 容易 检查 出 Yv 和 和 ^ 是 全 函数 ( 换 句 话说 :从 不 发 散 )。 注 意 ,$S 和 T 的 中 总 长 度 在 递归 调 
用 中 总 是 减少 。 而 且 ^ 算法 , 当 它 的 输入 被 如 下 界定 时 不 会 失败 ; 

A,10 引 理 : 对 一 些 M, 如 果 LL<:S 和 L<:T, 那 么 S 和 AT= M。 


证 明 :根据 对 S( 或 等 价 的 中 的 长 度 进行 归纳 ,结合 对 S 和 了 T 的 形状 进行 分 析 的 情况 。 如 
果 S 或 了 是 Top, 那么 定义 中 的 头 两 个 中 的 一 个 可 应 用 , 且 结 果 分 别 是 T 或 者 S。S 和 T 有 
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不 同形 状 的 情况 不 可 能 发 生 , 因为 子 类 型 关系 的 道 转 引 理 (15.3.2) 将 会 在 工 形 状 上 做 出 
不 一 致 的 要 求 ;例如 ,如 果 S$ 是 一 个 箭头 类 型 ,那么 工 一 定 是 ,但 如 果 工 是 一 个 记录 ,那么 
L 也 是 。 所 以 我 们 剩 下 三 种 情况 : 
如 果 S 和 T 都 是 Bool, 那 么 定义 中 的 第 三 种 情况 可 应 用 , 则 证 明 结 束 。 
假设 S=S 一 SS 和 T=T 一 了 卫 。v 算法 完整 性 告诉 我 们 第 一 个 递归 调用 返回 某 类 型 
J。 同 样 通过 闭 转 引 理 ,L 必须 有 形式 站 一 也 且 L <:S 和 了 L <: 王 。 也 就 是 ,L 是 S 和 
的 公共 下 界 , 所 以 可 用 归纳 假设 来 告诉 我 们 & 和 ^ 也 没有 失败 ,反而 返回 一 个 类 型 M 。 
所 以 S^AT= 析 一 M。 
最 后 ,假设 S= 15: 守 ”1 和 T= fu:T "|。 通 过 逆转 引 理 ,L 必须 是 一 个 其 标签 包 
括 所 有 出 现在 S 和 T 的 标签 的 记录 类 型 。 而 且 , 对 S$ 和 T 中 的 每 一 个 标签 , 道 转 引 理 告诉 
我 们 世 中 的 对 应 字段 是 S 和 T 字 段 的 共有 子 类 型 。 这 给 我 们 保证 对 有 共有 标签 的 ^ 算法 
的 递归 调用 都 能 成 功 。 
现在 让 我 们 证 实 这 些 定义 计算 合 类 型 和 交 类 型 。 这 个 讨论 被 分 为 两 部 分 :命题 (A.11) 显 
示 这 个 交 类 型 计算 的 是 $S 和 T 的 下 界 而 合 类 型 是 上 界 ; 命 古 (A.12) 显 示 被 计算 的 交 类 型 比 S 
和 了 T 的 每 个 公共 下 界 都 大 ,而 合 类 型 则 小 于 每 个 公共 上 界 。 
A.1L 命题 : 


1. 如 果 SvT=J, 那 么 S<:J 和 T<:J 
2. 如 果 S$AT=M, 那 么 M<:S 和 M<:T。 


证 朋 : 直 接 归纳 于 SAT=M 或 SvT=jJ 的 “推导 "长度 ( 即 对 计算 M 或 J 而 定义 的 ^ 利 v 
的 递归 调用 次 数 )。 

A.12 命题 : 

1. 假设 SvT=J 且 ,对 某 U, 有 S<:U 和 Te<:U, 那 么 J<:U。 

2. 假设 S^AT=M 且 ,对 某 上 ,有 L<:S 和 L<:T, 那 么 L<:M。 

证 明 : 根 据 归 纳 于 S 和 T 的 长 度 , 这 两 部 分 一 起 证 明 ( 实 际 上 ,对 任何 东西 归纳 都 可 以 )。 
给 定 $ 和 了 ,我 们 依次 考虑 这 两 部 分 。 

对 于 第 (1) 部 分 ,考虑 形式 U 的 情况 。 如 果 TU 是 Top, 那 么 证 明 完 成 ,因为 无 论 J 是 什么 ， 
有 J<:Top。 如 果 U = Bool, 那 么 逆转 引 理 (15.3.2) 告 诉 我 们 S 和 T 必定 也 是 Bool ,那么 J= 
Bool 证 毕 。 其 他 的 情况 更 有 趣 。 

如 果 U=U-> HU ,那么 ,通过 逆转 引 理 ,S= S 一 人 和 T= 卫 一 了 ,其 中 U， <:S ，,Ui <: 卫 ,和 
<:U, ,和 工 <:U2。 根据 归纳 假设 ,Si， 和 了 的 交 类 型 M， 高 于 Ui ,人 和 工 的 合 类 型 开 , 低 
于 已 。 由 S-Arow, 有 M 一 <:UI 一 U。 

如 果 末 是 一 个 记录 类 型 ,那么 ,通过 道 转 引 理 ,S 和 T 也 如 此 。 而 且 ,S$ 和 的 标签 是 U 标 
签 的 超 集 , 且 U 中 每 个 字段 的 类 型 是 S 和 T 的 对 应 字段 的 超 集 。 由 此 ,S 和 了 T 的 合 类 型 将 


中 ”严格 地 说 , 引 理 (15.3.2) 无 法 解决 Bool。 对 Bool 的 增加 情况 仅 说 明 Bonl 的 惟一 子 类 型 是 Bool 本 身 。 
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至 少 包括 U 的 标签 ,而 且 ( 通 过 归纳 假设 ) 合 类 型 的 字段 将 是 的 对 应 的 的 子 类 型 。 由 
S-Recd, 有 J<:U。 


对 于 第 (2) 部 分 ,我们 再 次 讨论 $S 和 了 T 的 形式 。 如 果 一 个 是 Top, 那 么 交 类 型 是 另 一 个 ,而 
且 结 果 直 接 可 证 。S 和 T 有 不 同 ( 非 Top) 形 状 的 情况 不 可 能 发 生 , 像 我 们 在 证 明 (A.10) 中 
看 到 的 。 如 果 两 者 都 是 Bool ,那么 结果 又 是 直接 可 证 的 。 剩 余 情 况 (S 和 T 都 是 箭头 或 者 
都 是 记录 ) 更 有 趣 。 
如 果 S$=S 一 S& 和 T=T 一 了 ,那么 根据 道 转 引 理 , 必 定 有 L=EL 一 了 ,其 中 S <:L,T <: 
D ,L <:S% 和 L <:T。 通 过 归纳 假设 ,S 和 中 的 合 类 型 上 低 于 世 ,同时 & 和 呈 的 交 
类 型 M 高 于 卫 。 由 S-Arow, 有 了 工 一 L <: 本 ->W 。 
如 果 S 和 了 T 是 记录 类 型 ,那么 根据 道 转 引 理 ,L 也 一 样 。 更 进一步 ,必定 有 S 和 T 的 所 有 
标签 (可 能 更 多 ) ,对 应 的 字段 肯定 符合 子 类 型 关系 。 现 在 ,对 每 个 S 和 T 的 交 类 型 M 中 
的 每 个 标签 m ,有 三 种 可 能 。 如 果 m, 存在 于 $ 和 T 中 ,那么 它 在 M 中 类 型 是 它 在 S 和 T 
中 类 型 的 交 类 型 ,而 且 根 据 归 纳 假设 ,在 工 中 的 对 应 类 型 是 在 M 中 类 型 的 子 类 型 。 另 一 
方面 ,如 果 m; 只 存在 于 S$, 那 么 在 M 中 的 相应 类 型 和 在 $ 中 的 一 样 ,而 且 我 们 已 经 知道 工 
中 的 类 型 小 一 些 。m; 只 在 T 中 出 现 的 情况 是 类 似 的 。 


16.3.3 解答 :这 一 项 的 最 小 类 型 是 Top:Bool 和 村 的 合 类 型 。 但 是 ,这 一 项 是 可 类 型 化 的 
事实 应 该 被 视 为 语言 的 缺点 ,因为 很 难 想像 程序 员 真 的 想 写 这 个 表达 式 。 毕 竟 , 在 类 型 
Top 的 值 上 没有 操作 能 被 执行 ,所 以 在 第 一 位 计算 几乎 没有 意义 ! 对 这 一 弱点 有 两 个 可 
能 的 回答 。 一 个 是 简单 地 从 系统 中 移 走 Top, 而且 将 v 作为 一 个 部 分 的 操作 。 另 一 个 是 
保留 Top, 但 只 要 当 它 遇 到 最 小 类 型 为 Top 的 项 时 ,类 型 检查 器 产生 一 个 警告 。 


16.3.4 解答 :处 理 Ref 类 型 是 直接 的 。 我 们 仅 增 加 一 个 子 句 到 交 类 型 和 合 类 型 算法 ; 


SVT = | Ref(T1I) 这 S= Ref(Si),T= Ref(Ti), Si <: Tiand Ti <: 91 


S AT 


上 


| Ref(T1) 这 S = Ref(Si)， 芽 = Ref(T1 )， 9 芯 : Ti1， and Ti1 <。 Si 


然而 , 当 用 Source 和 Sink 构造 子 来 改进 Ref 时 ,会 遭遇 到 一 个 主要 困难 : 子 类 型 关系 不 再 
有 合 类 型 (或 交 类 型 )! 例如 ,类 型 Refifa:Nat,b;Booll 和 Refla:Nat } 同 时 是 Sourecela;Nat | 
和 Sink fa:Nat,b:Bool| 的 子 类 型 ,但 这 些 类 型 没有 公共 下 界 。 

有 不 同 的 方式 来 解释 这 个 困难 。 可 能 最 简单 的 是 增加 一 个 Souree 或 Sink ,但 不 能 二 者 同 
时 加 到 系统 中 。 对 很 多 应 用 领域 ,这 就 饮 了 。 例 如 ,对 18.12 节 中 的 被 修改 的 类 的 实现 ， 
仅 需 要 Source。 另 一 方面 ,在 具有 通道 类 型 的 并 发 语言 中 (参见 第 15.5 节 ) ,我 们 倾向 于 
Sink ,因为 这 将 给 定义 一 个 服务 器 进程 的 能 力 , 而 且 在 它 的 存 取 通 道上 仅 传递 “发 送 能 力 ” 
(接收 能 力 仅 服务 器 进程 自身 需要 )。 

仅 有 Souree 类 型 , 合 类 型 算法 经 过 如 下 改进 仍然 保持 完备 (从 上 面 看 ,我 们 仍然 需要 Ref 
语句 ;类 似 语句 被 加 到 交 类 型 算法 ); 
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Source(]jl1) 主 S$=Ref(SI) T=Ref(TI) 


SivTI=Jl 
Source(]ji) 让 S= Source(SI) T= Source(T1) 
_ SIvTI=Jl 
5SYT= 1 Source) 让 S= Ref(S) T= Source(Ti) 
SI vVTI=]l 
Source(]1) 让 S= Source(S1) T= Ref(T1) 


SIlvTI=Ji 


(Hennessy 和 Riely 1998 年 建议 的 ) 一 个 不 同 的 解决 是 改进 Ref 类 型 构造 子 ,这 样 不 用 一 个 
参数 ,而 采用 两 个 :Ref ST 的 元 素 是 能 用 于 存放 类 型 $ 的 元 素 及 检索 类 型 T 的 元 素 的 引 
用 单元 。 新 的 Ref 是 在 它 第 一 个 参数 中 的 逆 变 式 和 它 第 二 参数 中 的 协 变 式 。 现 在 Sink S 
能 被 定义 为 一 个 Ref S Top 的 缩写 ,而 Source T 能 被 定义 为 Ref Bot T 的 缩写 。 


16.4.1 解答 :对 ; 
THFtli:Ti Ti = Bot 
ThFt2:Tz Thta:Ta  TzvTa=T (TA-If) 


TFTFHFiftithent2zelseta :T 


可 替换 为 规则 ; 
TFtl:Ti Ti = Bot 
ThFtz:Tz Thrta:Ts (TA-I) 
TH jiftithentzelset3i :; Bot 


且 是 安全 的 (由 于 Bot 为 空 ,ba 的 求 值 永远 不 可 能 产生 一 个 常规 结果 ) ,但 这 个 规则 将 一 些 
类 型 赋 给 项 ,因为 这 些 项 不 能 由 声明 性 类 型 规则 赋予 类 型 ;选择 它 将 破坏 定理 (16.2.4)。 


17.3.1 解答 :这 个 解答 仅 需 要 练习 16.3.2 中 的 算法 。 


et rec join tyS tyT = 
match (〈tyS,tyT) with 
(TyArrCtySl,tyS2) ,TYArrCtyYT1,tyT2)7) 一 
(try TyArr(Cnmeet tyS1 tyT1，join ty92 tyT2) 
with Not_found 一 TyTop) 
| 《TyBoo1 ,TyBoo1) 一 
Ty8oo1 
| 〈《TyRecord(CfS) ，TyRecordCfT)) 一 
1et 1abe155 = List.map (fun (11,，_) 一 1i1) fs in 
1et 1abe1sT = List.map (fun (11，) ~ 1i) fT in 
1et commonLabe15s = 
List,find_al1 (fun 1 一 List,mem 1 1abe1sT) 1abe1ss in 
1et commonFie1d5s = 
List.map (fun 1i 一 
1et tySi = 一 上 List.assoc ]1 fS in 
1let tyTi = List.assoc 11 fT in 
(11，join tySi tyTi7) 
CommonLabe1s in 
TyRecordCcommonFie1ds) 
1 _- -~ 


TyTop 
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and meet tyS tyT = 
match (ty9S ,tyT) with 
《TYArrtyS1L,ty92) ,TYArrCtyT1,tyT2)) 一 
TyArr(join tyS1L tyT1，meet tyS2 tyT2) 
| 〈《TyBoo1,TyBoo]1) 一 
TyBoo1 
| (CTyRecord(CfS) ，TyRecordCFfT)) 一 
iet 1abe1sS = (List,map (fun (11，) ~ 11) fs in 
1et labelsT = List.map (fun (11,，_) 一 11) fT in 
?et al1Labe1s = 
List.append 
1abe1sS 
《List .find_all 
(fun 1 一 not (List.mem 1 1abe1sSJ) ]abe1sT) in 
Tet ai1Fie1ds >= 
List.map Cfun 11 一 
if List.mem 1i al1Labels then 
1et tySi = List.assoc 11 fS in 
let tyTi = List.assoc 11 fT in 
(1i，meet tySi tyTi) 
elTse if List.mem 11 1abe1sS then 
(1j1，List.assoc 11 fS) 
e15se 
《1i，List.assoc 11 fT)) 
aliiLabels in 
TyRecord(al11Fie1ds) 
| _ -~ 


raise Not_found 


1et rec typeof ctX 蕊 一 
match t with 


| TmTrueCfi) 一 
TyBool 
1 TmFalse(fi) 一 
TyBoo1 
| TmIf(Cfi ti,t2,t3) 一 
放 subtype (typeof ctx tlL) TyBoo1 then 
join (人 typeof ctx t2) (typeof ctx t3) 
else errofr fi "guard of conditional1 not a boolean'" 


17.3.2 解答 :参见 rcssubbot 的 实现 。 


18.6.1 解答 : 


DecCounter = {get:Unit 一 Nat，inc:Unit 一 Unit，reset:Unit-uUn 让 ， 
dec:Unit 一 Unitj; 


decCounterC1ass = 
Ar:CounterRep 
1et Super = resetCounterC1ass mr in 
{get “= SuUper ,get， 
inc = Super,inc， 
reset = Super.reset， 
dec 一 人 人 :Unit， r.x:=predCICr.x))]; 
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18.7.1 解答 : 


BackupCounter2 = {fget:Unit-Nat，inc:Unit 一 Unit， 
reset:Unit-Unit，backup: Unit 一 nit， 
reset2:Unit-Unit，backup2: Unit~Unit}; 

BackupCounterRep2 = {x: Ref Nat，b: Ref Nat，b2: Ref Nat}; 


backupCounterC1ass2 = 
Ar:BackupCounterRep2 ， 
1et Super = backupCounterC1ass r in 
{fget = Super.get，inc = Super.inc， 
reset = Super.reset，backup = Super .backup， 
reset2 = 人 A_:Unit. r.x:sitCr.b2)， 
backup2 = A_:Unit。r.b2z:=ICr.x)]; 


18.11.1 解答 : 


instrCounterClass = 
Ar:InstrCounterRep . 
ASself: Unit 一 InstrCounter ， 
A_:Unit. 
let Super = SetCounterC1ass 六 self unit in 
{fget = 和 _:Unit. (ra:=SuccCiCr,a)); Super.get unit)， 
set = Ai:Nat，(r.a:=SuUCcCCICr.a));i Super.set )， 
inc = Super.inc， 
accesses = A_:Unit，、!Cr.a)ji; 


ResetInstrCounter = {get:Unit 一 Nat，set:Nat 一 Unit， 
inc:uUnit 一 Unit，accesses :Unit 一 Nat， 
reset:Unit 一 Unitl 


resetInstrCountefrC]1asSs = 
Ar:InstrCounterRep . 
ASe1lf: Unit 一 ResetInstrCounter , 
A_:Unit， 
let super = instrCounterC1ass r Se1f unit in 
{fget = Super ,get， 
set = Super .set， 
inc = 5uper.inc， 
习 CCeSSes = Super.acCcesSses， 
reset = 和 A_:Unit， rm,.x:=0}; 


BackupInstrCounter = {oget:Unit 一 Nat，set:Nat 一 Unit， 
inciUnit~Unit，accesses :Unit 一 Nat ， 
backup:uUnit~Unit，reset:Unit 一 Unitl; 


BackupInstrCounterRep = {x: Ref Nat，a: Ref Nat， 日 : Ref Natj; 


backupInstrCounterC1ass = 
Ar:BackupInstrCounterRep . 
ASse1f: Unit 一 BackupInstrCounter 。 
A_i:Unit . 
1et Super = resetInstrCounterC1ass rr Self unit in 
{get = Super.get， 
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set = Super.set， 
1nc = Super.inc， 

accesses = Super,accesses， 
reset = AM_:Unit。 Fr.xi=!ICr.b)， 
backup = A_:Unit，Pr.b:=!Cr.x)]; 


newBackupInstrCounter = 
A_:Unit. let mr = {xsref 1，a=ref 0，b=ref 0} in 
fix (backupInstrCounterC1ass Pr) unit; 
18.13.1 解答 ;一 种 恒 等 测 试 的 方法 是 使 用 引用 单元 。 我 们 以 类 型 Ref Nat 的 实例 变量 
这 扩展 我 们 对 象 的 内 部 表示 : 


IdCounterRep = {x: Ref Nat，1id: Ref (CRef Nat)j}， 
而 且 一 个 记 方 法 仅 返 回 id 字段 ， 
IdcCounter = {fget:Unit-Nat，inc:Unit-Unit，id:Unit 一 (Ref Nat])j}; 
idCounterC1ass = 
Ar: IdCounterRep . 

{get = A_:Unit. !Cr.x)， 
inc = 和 A_iUnit.『.xX:=SuUCCCICr-x))， 
id = 和 :Unit，!Cr.id)1; 


现在 ,sameObject 本 数 采用 带 id 方法 的 两 个 对 象 ,并 检查 也 方法 返回 引用 是 否 相同 。 


sameObject = 
Aa:fid:Unit 一 (Ref Nat)}. Ab:fid:Unit 一 (Ref Nat)]}. 
((Cb.id unit) := 荆 ; 
(a.id unit) := 0; 
Tszero (!(b.id unit)7); 


这 个 技巧 是 使 用 别名 来 检查 两 个 引用 单元 是 否 相同 ;我 们 确定 第 二 个 为 非 零 , 给 第 一 个 赋 
值 零 ,检查 第 二 个 来 查看 它 是 否 变 为 零 。 


翅 .4.1 解答 :由 于 每 个 声明 必须 包括 extends 子 名 ,而 且 由 于 这 些 子 名 不 允许 循环 ,从 每 
个 类 的 extends 子 句 链 必须 最 终 以 Object 结束 。 


19.4.2 解答 :一 个 明显 的 改进 将 把 三 个 强制 转换 (casting) 类 型 化 规则 联合 为 一 个 ; 
[to :D 
FTF (COto :CC 


并 且 删 除 轴 赛 转型 。 另 一 个 可 忽略 构造 子 ,因为 它们 什么 都 不 做 。 


19.4.6 解答 : 
1. 厅 接 口 的 形式 是 常规 的 。 
2. 假定 我 们 声明 了 以 下 接口 : 


Tnterface A {] 
interface B {f} 
interface 5C extends A,B {1 
interface D extends A,B 人 夺 


于 是 C 和 D 同 时 有 A 和 了 3 共同 作为 公共 上 界 , 但 没有 最 小 上 界 。 


(T_Cast ) 
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3. 不 采用 条 件 表达 式 的 标准 算法 规则 : 
T rt :boolean Tt :上 > THF-t3 :FE3- 
ThFti?tz :it3a:E2VEFEsy 
java 使 用 以 下 严格 的 规则 : 
T F tl : boolean TF-tz:E2 [THF-t3:E5 THF Ex <: E3 
THFti?t :it3:E3 
ThFtli:iboolean [FFtz :E2 THFt3a3 : E3 工 F E3 <: E2> 
THFty?yt :ta :FEF2 

这 直觉 上 是 合理 的 ,但 它们 对 用 于 现 的 操作 化 语义 的 小 步 方式 影响 很 小 
质 实 际 上 失败 (很 容易 举 一 个 例子 来 说 明 这 一 点 )1 
19.4.7 解答 :奇怪 ,处 理 super 比 处 理 sef 难 , 因 为 我 们 需要 某 个 方法 来 记 住 "当前 执行 的 
方法 体 " 来 自 哪 个 类 。 这 里 至 少 有 两 种 方式 来 完成 它 : 
1. 用 一 些 super 引用 应 被 查找 的 指示 来 注释 项 。 
2, 增加 整个 类 表 被 重 写 的 预 处 理 步骤 ,利用 "“ 拆 分 的 ”名 字 来 说 明 它 们 来 自 哪 个 类 ,将 

super 引用 改 为 this 引用 。 
19.$.1 解答 :在 给 出 主要 证 明之 前 ,我 们 讨论 一 些 必 要 的 引 理 。 和 通常 一 样 ,关键 的 一 
个 引 理 (A.14) 与 类 型 化 和 代 换 有 关 。 
A.13 引 理 :如 果 mpe(m,D) = C 一 Oo ,那么 对 于 所 有 C <:D 有 motpe(m,C) = CCo。 
证 明 : 通 过 直接 归纳 于 推导 C <:D。 注 意 ,无 论 辐 是 否 在 C7(C) 中 定义 , motype(m;C) 应 和 
msytypefm;,E) 相 同 ,其 中 C7T(C) = class C extends 下 | … 上 | 。 
A,14 引 理 [ 项 代 换 保持 类 型 化 ]: 如 果 T,z:BHFtD 和 TrFs:A, 其 中 A<:B, 那 么 对 于 一 
些 C<:D 有 TH [XF=sjt:C。 
证 明 :根据 归纳 于 PP,z:BF t:D 推导 。 直 觉 与 带子 类 型 化 的 lambda 演算 十 分 相同 ;细节 当 
然 有 一 些 变化 。 最 有 趣 的 情况 是 最 后 两 个 ; 

情况 T-VAR: t=Xx  x:DET 
如 果 x EX 那么 结果 是 显然 的 ,因为 [Fr~ 引 x= x。 另 一 方面 ,如 果 x=x 和 D=B,, 那 么 ， 
由 于 [Xr~ 引 x= si, 令 C=Ai 这 种 情况 证 毕 。 

情况 T-FIELD;，， t=to. 有 T,X:EHFto:Dpo fieldsDo)=Cf D=Gi 
通过 归纳 假设 ,有 某 满足 FF [Er=slo:G 和 GQ <:Do 的 Q。 对 某 Dg 容易 检查 jeliu(co ) 
= (jiei 邮 (Do),Dg)。 因 此 ,由 TField, 有 PHF [Erab).f:Ci。 


情况 T-INVK: 七 =to-m(Ct) 
T,X:BFti: 5 


通过 归纳 假设 ,存在 C 和 5C 满足 : 


Trrxmslto:Cco Co<:p TFIx-gSsft:Ec CE<:5. 








类 型 保持 性 


T,X:BFto :Do mitype(m,Do) = E~D 
5 <: 下 
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通过 引 理 (A.13), mytype(m, Co) = 下 -~D。 而 且 根 据 <: 的 传递 性 有 C <: E。 因 此 ,根据 
TInwrk,PFIEr-so mL rslb:D。 

情况 TNEw: t=newDGE) feias(D) =5f TX:EFEt:IC E<:5 
通过 归纳 假设 ,对 巨 满足 E<:C 的 有 PF[z Fr- 引 i:E。 根 据 <: 的 传递 性 有 五 <:D。 因 此 ， 
通过 人 Nen,PF(ODLE r=- sj:D。 

情况 T-UCAST:， t= (D)to  TX:EHto:C C<:D0 
通过 归纳 假设 ,有 开 满 足 FHtz 一 tn: 王 和 了 <:C。 我 们 根据 <: 的 传递 性 有 了 <:D, 这 由 
T-Ucast 生成 了 Fr(D)([ ms]to):D。 

情况 T-DCAST: t= (D)to TX:BEHto:C D<:C Dr*C 
通过 归纳 假设 ,有 某 下 上 满足 PHF[g rslb:E 和 了 <:C。 如 果 下 <:D 或 者 D <: 节 ,那么 分 别 
根据 工 Ucast 或 TDcast 有 了 FF(D)([ rsjbo):D。 另 一 方面 ,如 果 有 D 关 E 和 FE 大 D, 那 么 
根据 TScast 有 PPF(D)(Lz rr- 引 o):D( 带 一 个 轧 警 告 )。 

情况 T-SCAST: t=(D)to TX:EHFto:C DK4C CCKD 
通过 归纳 假设 ,存在 了 满足 P-L rab:E 和 E<:C。 这 表示 天 D( 要 理解 这 --- 点 , 注 
意 每 一 个 末 中 的 类 仅 有 一 个 超 类 。 由 此 产生 ,如果 有 下 <:C 和 下 <:D, 那 么 或 者 C <:D 或 
者 D <:C)。 所 以 根据 TScast, 有 THF(D)([z Fr~sjo):D( 带 一 个 思 夺 警告 )。 
A.1S 引 理 [弱化 ] :如 果 TF t:C, 那 么 T,x:DHF tC。 
证 明 : 直 接 归 纳 。 
A,16 引 理 : 如 果 mtope(m,Co) =D-D 和 mbody(m,G)= (ztb ,那么 对 某 D 和 某 
C<:D, 有 CQ <:Du 和 zf#z:D,this:Du 广 tC。 
证 明 : 根 据 归 纳 于 mbody(m, Co ) 推 导 。 基 本 情况 (m 被 定义 在 CQ 之 处 ) 是 简单 的 ,因为 
目 被 定义 在 CT(CQ ) 及 一 个 良 形式 的 类 表 暗 示 我 们 一 定 根据 工 Method 推导 出 元 :T,this: 
CQF t:C。 这 个 归纳 步骤 也 是 直接 的 。 


我 们 现在 准备 好 给 出 类 型 安全 定理 的 证 明 。 
定理 (19.5s.1) 的 证 明 : 根 据 +- 一 《的 推导 归纳 ,还 有 最 终 规则 的 情况 分 析 。 注 意 在 TDCast 
从 结尾 处 算 起 的 第 二 个 子 情 况 中 会 产生 多 人 么 蚌 囊 的 警告 。 

情况 E-PROJNEw: t=newCo(v.f tt=v fields(co) = 
从 上 的 形状 可 看 出 PRF 8C 推导 的 最 终 规则 必 为 工 Felq, 其 中 对 某 DB 有 前 提 下 F-_ new CGO):D， 
且 可 看 出 C = D;。 类 似 地 ,推导 耻 F new Co(5):Du 的 最 后 规则 必 是 下 New, 其 中 前 提 为 
PFC 和 C<:D, 旦 Do = Co ,特别 地 ,THF vi:C, 由 于 Ci <:D; 证 毕 。 


情况 E-INVKNEW: tt= (Cnew Co(V)J .mo t' = [UV/X new Co(V) /this]to 
Mbpody(m Co) = (Xto) 


推导 了 ft:C 的 最 终 规则 必定 是 TInvk 和 了 New, 前 提 是 ， 
ITrnewCcoCvJ :CO TF5:Cc CEC<: 5 mbpelmCo) = 5 一 C. 
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根据 引 理 (A.16) ,对 某 pm 和 8 我 们 有 :xz:D,this:Do F b:B, 其 中 Co <:Do 和 B<:C。 根 据 
引 理 (A.15),T,xz:D,this:Do F b:B, 接 着 根据 引 理 (A.14) ,对 某 下 <:B, 有 下 FF [ 庆 rc 一 二 ,this 
Fr~ new Co(5)] hb:E。 通 过 <: 的 传递 性 ,得 到 E <:C, 令 C' = 了 ,这 一 情况 证 毕 。 

情况 E-CASTNEw: tt 上 = (D) Cnew Co(Vv)) Co <: D t” = new Co(V) 
FL (D)(aew Ce):C 的 证 明 必 须 结 束 于 TUCast, 因 为 结束 于 工 SCast 或 TDCast 将 与 假 
设 C <:D 矛盾 。 前 提 TUCast ,给 我 们 得 出 下 FF new Qtr):C 和 了 D= C, 这 一 情况 证 毕 。 
同一 规则 的 情况 很 简单 。 我 们 仅 说 明 一 个 : 

情况 RC-CAST: t= (CD)to 嫌 =(D)te to 一 to 
根据 最 后 类 型 规则 应 用 有 三 种 子 情 况 。 

子 情 况 T-UCAST: Thto:Co Co<cD 0D=( 
根据 归纳 假设 ,对 某 Ci<:Q 有 PTF:Ci。 根 据 <: 的 传递 性 ,有 Co <: C。 因 此 ,根据 
TUcast 有 TF(Cc):C( 没 有 附加 的 蚌 检 警 告 ) 。 

子 情况 T-DCAST: ThHto:Co D<:Co  D=(C 
根据 归纳 假设 ,对 某 CI<: C 有 THF :CC 。 如 果 C<:C 或 C<:G! ,那么 根据 TUCast 或 
T-DCast, (不 带 任何 附加 愚 愉 警告 ) 有 TF(C)0:C。 另 一 方面 ,如 果 Ci 大 C 和 C 大 CI ,那么 
根据 TSCast 有 带电 大 警 告 的 了 下 F(C)0:C。 

子 情 况 T-SCAST: ThFto:co DYco Ca 大 D D=C 
根据 归纳 假设 ,对 某 Ci<:Co 有 TFt:Co。 那 么 ,同时 有 CIxC 和 C 大 CGI。 因 此 ,有 含 遇 
春 警 告 的 结论 PHF(C)tU :C。 


20.1.1 解答 


Tree = HX，、<1eaf:Unit，node:{fNat,X,Xj>; 
Teaf = <1eaf=-unit> as Tree; 


1eaf : Tree 


w 


node = An;Nat，Atl:Tree，At2z :Tree，<node={tn,ti,t2j> as Tree; 


时 


node : Nat 一 Tree 一 Tree 一 Tree 
is1eaf = AT:Tree. case 1 of <]eaf=u> > true | <node=<p> ”= false; 


is1eaf ; Tree 一 Bool1 


是 


labe1 = A1:Tree. case 1] of <leafeu> ”> 0 | <node=p> > p.1; 


1abe1 : Tree -Nat 


本 


ieft = A1:Tree。case 1 of <leaf=u> ”> leaf | <node=p> > p.2; 


left : Tree 一 Tree 


村 


right = A1:Tree. case ] of <jeaf=-u> >” 1eaf | <node=p> > p.3; 


村 


right : Tree 一 Tree 
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append = fix (Af:NatList 一 NatList 一 NatList， 
A11:NatList，A12:NatList， 
if isnil1 11 then 12 else 
Cons (hd 11) (人 Cf (tl1 11) 1277); 


append : NatList 一 NatList 一 NatList 


里 


preorder = fix (Af:Tree 一 NatList. At:Tree. 
if isleaf t then ni1 else 
cons 〈]1abe1 t+t) 
(append Cf (Cleft t)) (Cf (Cright t)77)7; 


村 


preorder : Tree 一 NatList 


tl = node 1 leaf 1eaf; 
t2 = node 2 leaf jeaf; 
t3 = node 3 tl t2; 

t4 = node 4 t3 t3; 

1 = preorder t4; 

hd 1; 


”4 : Nat 
hd (tl1 1); 
* 3 : Nat 
hd (tl (tl1 1)); 
> 1 : Nat 
20.1.2 解答 ， 


fib = fix (Af: Nat 一 Nat 一 Stream。 Am:Nat，、AXAn:Nat，AXA_:Unit. 
fn， fn (plus mn)) 0 1; 


* fib : Stream 


20.1.3 解答 ; 


Counter = HC， {fget:Nat，inc:Unit-C，dec:Unit 一 (人 ， 
reset:Unit 一 C，backup:uUnit 一 C}; 

C = et Create = 

fix (AcCr: {fx:Nat,b:Nat} 一 Counter， As: {x:Nat,b:Nat]. 
{9et 二 S.X， 
Tnc = A_:Unit. cr {x=succ(s.x),b=s.bl， 
dec = A_:Unit。cr {x=pred(s.x) ,b=s.bl， 
backup = A_:Unit，cr {x=s,x,bss,.xl， 
reset = 一 人 A_:Unit. cr {fx=s.b,b=s.b} 了 ) 
in create {fx=0,b=0]} ; 


”C : Counter 


20.1.4 解答 : 
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D = HX，<nat:Nat，boo1:Boo1，fn:X 一 X>; 


1am = Af:D~D。 <fn=f> as D; 
ap = Af:D，Aa:D. 
case 千 of 
<nat=n> > divergep unit 
| <boo1z=sb> = divergep unit 
| <fn=f> > 后 ai 
ifd = Ab:D. At:D，Ae:D. 
case b of 
<nat=n> > divergep Unit 
( <bootz=b> > (if b then t else e) 
| <fn=f> ”> divergep unit; 
tru = <boo1=true> as D; 
fls = <boo1=false> as D; 
ifd fls one Zroi; 


宇 


<nat=0> as D : D 


1fd fls one fs; 


” <boo1=false> as D : D 


关注 这 个 系统 中 能 编码 不 良 类 型 项 的 读者 应 该 注意 到 我 们 已 经 做 的 是 构造 一 个 数据 结 
构 ,用 来 在 有 递归 类 型 的 简单 类 型 lambda 演算 的 元 语言 中 表示 无 类 型 项 的 对 象 语言 。 这 
种 做 法 与 (我 们 已 经 应 用 于 全 书 章节 实现 中 ) 将 多 种 类 型 项 及 无 类 型 项 lambda 演算 表示 
为 ML 中 的 数据 结构 的 做 法 一 样 令 人 吃惊 。 


1am = Af:D-D， <fn=f> as D; 
ap = Af:D， Aa:D. case f of 
<nat=n> ”= divergep unit 
| <fnz=f> => 个 a 
| <rcder> 忆 divergep unit; 


rcd = Afields:Nat 一 D，<rcd=fie1ds> as Di; 
prj = Af:D， An:Nat， case f of 
<natsn> > djvergep unit 
<fnzsf> > divergep unit 
| <rcd=r> > FF ni 
myrcd = rcd (CAMn:INat. jif fs5zero 0 then zro 
else if iszero (pred nm) then one 
else divergep unit) i 


20.2.1 解答 :这 是 一 些 在 同 构 递 归 形 式 中 更 有 趣 的 例子 : 


Hungry = HA，Nat 一 人 ; 

f = fix (Af: Nat 一 Hungry. An:Nat. fo1d [Hungry] f) |; 
ff = fold [Hungry] 下 ; 

ffl = (unfo1d [Hungry] ff) 0; 

ff2 = (unfoid [Hungry] ff1) 2; 


fixT7T = 
Af:T 一 下 ， 
(CAx:CHA.A-T). 下 (Cunfo1d [HA.A-T] x) x)) 
(fo1d [HA.A-T] (CAX: (HUA.A--T)，f (Cunfo1d [UA.A-T] x) x))) 


| 一 -一 一 一 一 一 一 一 
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D = HNX，、X-X; 
1am = Af:D~-D. fo1d [D] f; 
ap = Af:D， Aa:D、 (unfo1d [D] f) ai 


Counter = HKC.{get:Nat，inc:uUnit 一 Cy; 
c = let create = fix (Acr: {x:Nat}y~Counter. AS: {x:Nat]， 
fo1d [Counter] 
{get = S.X， 
inc = A_:Unit，cr {fxs<Succ(Cs.x)}j}) 
in Create {fx=0]; 
clL = (unfoid [Counter] c) .inc unit; 
《Cunfo1d [Countefr] C1) .get; 


21.1.7 解答 : 
FEz(C) = faq) Ez(ab) = [acl 
FEz((aqj) = {qj Ez((acjj = ftab 
FEz({p) = [al FEz(fbci) = [at 
Fz(ftcj) = {aq 世 E2(tap ci = {Qbci 


克 闭 包 是 je 和 lo,bcl。 已 一致 是 C,l el 和 | cb,cl。 已 最 小 不 动 点 是 ;ef。 最 大 
不 动 点 是 | ac,b,cil。 
21.1.9 解答 :要 证 明 对 自然 数 一 般 归纳 原则 ,我 们 如 下 进行 。 根 据 如 下 式 子 定义 函数 
FeP(N) 一 了 (N): 
F(X) = {f0jufi+llieX}. 

现在 ,假设 我 们 有 一 个 谓词 ( 即 一 个 数 集 ) 己 使 P(0) 和 P(i) 来 表示 P(i+1)。 那 么 ,从 下 的 
定义 ,很 容易 看 出 F(P)SP, 即 已 是 严 闭 包 。 根 据 归 纳 原理 有 AP SP, 但 xz 是 自然 数 的 
整个 集合 (确实 ,这 能 被 作为 自然 数 集合 的 定义 )。 所 以 ,对 所 有 neN 有 ?P(n)。 

对 字典 序 归 纳 ,定义 Fe2(N xN) 一 2(NxN) 为 : 

FIX) = fmlvn nm) < (nn (mn) EX] 

现在 ,假定 我 们 有 一 个 谓词 ( 即 一 个 自然 数 序 对 的 集合 )P, 其 中 P(m' ,mm) 对 所 有 
(Cnm 1 ) < (mn) 仍 然 有 PCm,n)。 像 以 前 一 样 ,从 下 的 定义 中 ,很 容易 看 出 RU(P)EP， 
即 忆 是 下 闭 包 。 根 据 归 纳 法 原理 ,PEP。 为 了 结束 说 明 ,必须 检查 nzF 确实 是 自然 数 
序 对 的 集合 (这 是 这 一 讨论 中 惟一 的 微妙 点 )。 这 能 被 放 于 两 步 讨 论 。 首 先 ,标记 N x N 是 
尺 闭 包 ( 这 可 从 下 的 定义 直接 得 出 ); 其 次 ,说 明 没 有 合适 的 N x RN 的 子 集 是 正 闭 包 , 或 者 
说 ,N xN 是 最 小 的 下 闵 包 。 要 理解 这 一 点 ,可 假定 有 一 个 较 小 的 正 闭 包 了 ,并 令 (my,n) 
是 最 小 的 不 属于 了 的 序 对 ;然后 根据 屎 的 定义 ,得 到 F(YZD)EY, 即 了 不 是 闭 包 ,矛盾 。 
21.2.2 解答 :定义 一 个 树 为 一 个 部 分 函数 Te 11,2 上 三 一 { 一 ,x ,Topl 且 满足 于 以 下 
约束 : 

e@ 7T(') 有 定义 

@ 如 果 T(r,ac) 有 定义 的 ,那么 FT(r) 也 有 定义 


注意 , 树 节点 上 符号 -, x ,Top 的 存在 完全 是 自由 的 ,例如 一 个 有 Top 的 节点 能 有 非凡 的 
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子 节点 ,等 等 。 就 像 在 21.2 节 中 ,我 们 重 载 了 符号 一 , x ,Top 仍 作为 树 上 的 操作 符 。 

所 有 树 的 集合 是 全 集 谱 ,产生 函数 玉 是 基于 类 型 的 熟悉 的 语法 

P(X) = (LTop} 
uU fxmlmmeA 
U 全 -~- 歼 1mTP ee 从. 

从 了 和 1 的 定义 中 可 以 看 出 和 < 了 ,所 以 在 利益 均等 中 比较 集合 是 合理 的 , 开 = ;正和 
了 =AF。 它 接 下 来 要 检查 等 式 为 真 的 。 
根据 共 归 纳 原 则 , 工 < 双 司 从 开 是 了 一致 中 推导 出 来 。 要 得 到 ,PST ,需要 检查 对 任何 
Te ,定义 (21.2. 蕊 中 的 最 后 两 个 条 件 。 这 能 采用 归纳 于 r 的 长 度 来 完成 。 

根据 IT7 是 下 闭 包 这 一 事实 中 的 归纳 法 原则 可 得 出 kwP SET。 要 得 到 IT crP ,归纳 于 
了 的 长 度 , TeT7 隐 含 TepF(7eTr 的 长 度 能 被 定义 为 最 长 序列 re 11,2 全 的 长 度 ,使 
7T(r) 有 定义 )。 
21.3.3 解答 :(Top,Top xTop) 序 对 不 在 vs 中 。 为 理解 这 一 点 ,根据 $ 的 定义 可 知 这 个 
序 对 对 于 任何 下 都 不 在 8S(X) 中 。 所 以 这 里 没有 任何 $ 一 致 集合 包含 这 个 序 对 ,特别 是 
13 (为 8 一 致 ) 不 包含 它 。 
21.3.4 解答 :用 与 vS 而 不 是 kwS 关联 的 树 类 型 序 对 为 例 , 我 们 能 对 任何 无 限 类 型 T 采 用 
(T,T) 序 对 。 考 虑 序 对 集合 尺 = {(7(Cz),7(r))1refl,2 作 |。 对 5 定义 检查 很 容易 得 
出 尺 SS( 及 ) ,而 应 用 共 归 纳 原则 得 出 六 SS。 那 么 由 于 (T,T)eR 有 (TiT)ewS。 另 一 方 
面 ,因为 k&S 只 与 有 限 类 型 关联 ,有 (T,T) 笑 AS 这 可 以 通过 将 尺 作 为 所 有 有 限 类 型 序 对 
的 集合 来 建立 ,并 根据 归纳 原则 得 到 pwS < 尺 。 
只 与 Sr 相关 联 而 与 Sr 无 关 的 有 限 类 型 序 对 (S,T) 是 不 存在 的 ,因为 这 两 个 不 动 点 是 一 
致 的 。 这 可 由 以 下 事实 得 出 ,对 于 任何 S,TeTr,(S$,TDevs 有 ($,T)eps( 由 于 了 T 是 有 限 
树 ,后 一 个 语句 可 对 了 进行 归纳 得 出 。 还 需要 考虑 T 为 Top,T x 呈 ,了 一 开 的 情况 ,检查 
Sr 的 定义 , 且 使 用 等 式 (Sr) = 3 和 SnS) =ASr)。 
21.3.8 解答 : 先 定义 树 类 型 的 恒 等 关 系 :7= {(T,T)ITe 王 |。 如 果 我 们 能 够 显示 了 是 $ 
一 致 , 接 着 共 归 纳 原 则 将 会 告诉 我 们 7 cs, 也 就 是 说 ,8 是 自 反 的 。 要 显示 了 的 8 一 
致 ,考虑 一 个 元 素 (T,T)e 7, 然后 考虑 了 形式 的 情况 。 首 先 ,假定 T= Top。 那 么 (T,T) = 
《Top,Top) ,而 (Top, Top) ,根据 定义 ,在 S(7) 中 。 接 下 来 ,假定 T= 了 x 且 。 那 么 由 于 
(了 ),( 王 有 )e7,S 的 定义 给 出 (了 x 下 ,人 xm)eS(C)。 对 于 T= 了 一 了 情况 是 类 
似 的 。 
21.4.2 解答 :根据 共 归 纳 原 则 ,有 1 x 人 4 是 F 一 致 ,或 者 说 ,U xuSFa(Uxt)。 假 定 
(z,y)s 尽 xu。 选任 意 zs。 那么 (*,z),(z,y)e 让 xu ,因此 ,根据 严 的 定义 ,同样 可 
得 到 (x,y)e FUxt)。 
21.5.2 解答 :要 检查 可 逆 人 性 ,我 们 仅 检查 % 和 8 的 定义 ,以 确定 每 个 Cos 集合 至 多 包 
含 一 个 元 素 。 
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在 S 和 3 的 定义 中 ,每 个 子 名 明确 指 定 一 个 可 支持 元 素 的 形式 和 它 所 支持 集合 的 内 容 ， 
所 以 写 下 spports 和 sports 是 容易 的 [与 定义 (21.8.4) 中 的 S。 的 支持 函数 做 对 比 ]。 


21.5$.4 解答 : 
7 Q C 了 妈 e 了 9 


2 9g 9 

下 Q 妈 e 疡 C 矿 9 

21.5.6 解答 : 否 , 一 个 xc hp 不 一 定 导 致 在 支持 图 中 的 一 个 循环 : 它 同样 能 导致 一 

个 无 穷 链 。 例 如 :考虑 被 F(T) = 10lUln mn+leTi 定 义 的 FeP(N) 一 PIN)。 那 么 

APF=iI0I 及 双 =N。 同 样 ,对 任何 me \ AP, 即 对 任意 m> 0,support(n)=ln+l 且 产 

生 一 个 无 穷 链 。 

21.5.13 解答 :首先 ,考虑 部 分 正确 性 。 根 据 对 算法 运行 时 的 递归 结构 归纳 来 对 每 一 部 

分 进行 证 明 。 

1. 从 多 的 定义 ,很 容易 看 出 网 () 返 回 tne 有 两 种 情况 。 如 果 因 为 奈 = @ 而 使 得 饮 (T) 
= inle ,我 们 有 天 SRF。 另 一 方面 ,如 果 因 为 狗 (suppor(T)) = lure 而 使 得 旋 () = 
ine ,那么 ,根据 归纳 假设 , sport(X)SpR ,由 此 , 引 理 (21.5.8) 生 成 于 cpnP。 

2. 如 果 因 为 yport() 不 而 使 得 赂 (T) = 训 pse ,那么 根据 引 理 (21.5.8) 有 大 和 天 。 否 则 ， 
如 果 因 为 态 (support( 引 ) = Jolse 而 得 久 (X) = lse ,同时 ,根据 归纳 假设 法 ,suppor(X) 
&p, 由 引 理 (21.5.8) 可 得 XCpxF。 

接 下 来 ,我 们 将 要 描述 产生 函数 严 的 特点 , 狗 保证 了 下 可 以 对 所 有 有 限 的 输入 终止 。 对 

于 此 ,一些 新 的 术语 是 很 有 帮助 的 。 对 于 一 个 给 定 的 有 限 状 态 产生 函数 FeP(TD)-> 

P(L) ,部 分 函数 ieigpreV-N( 或 者 仅 是 iete 赋 ) 是 最 小 的 满足 以 下 条 件 的 部 分 函数 ， 








0 这 Support(x) = 纪 
heightr(x) = 1 0 让 Support(x) 1 
1 +JMax{heighnt(y) | 7 E SUPPport(xX)} 还 support(x) * 纪 


(注意 ,如 果 x 本 身 参与 可 达 循 环 或 者 依赖 于 该 循环 中 的 一 个 元 素 , heigiu (xz) 就 是 无 定义 
的 ) 如 果 peigjhrr 是 一 个 全 函数 ,那么 产生 函数 屎 就 被 认为 是 有 限 高 度 的 。 容 易 检查 到 ， 
如 果 ye support(xz) 且 peiBgi(xz) 和 heizgi(y) 有 定义 ,那么 leigi(y) < jeigi(x)。 

现在 ,如 果 亚 是 有 限 状 态 和 有 限 高 度 ,那么 态 ( 如) 对 任何 有 限 的 输入 集合 了 < 忆 都 可 终 
止 。 为 了 理解 这 一 点 ,知道 由 于 严 是 有 限 状态 ,对 由 原始 调用 态 ( 如 产生 的 每 一 个 递归 
调用 风 ( 六 ,集合 了 上 是 有 限 的 。 由 于 正 是 有 限 高 度 , 姑 (7) = max | peiepi(y)1ye 玖 是 良 定 
义 的 。 因 为 产 ( 切 随 着 每 一 个 递归 调用 而 减少 , 且 总 是 非 负 的 , 它 将 作为 大 的 终止 手段 。 
21.8.5 解答: 5, 的 定义 与 8。 的 _ 样 ,除非 最 后 一 个 子 句 中 不 包含 条 件 了 zzX 和 TTp。 
为 了 判断 $; 不 是 可 逆 的 ,可 知 集合 CIX.JDp ,ApY.Tp ) 包 含 了 两 个 产生 集合 |(Thp ,poY.Tp)1 
和 1|(AX.Top,Top) (比较 函数 S。 的 该 集合 中 的 内 雁 )。 


中 ”这 种 定义 height 的 方法 也 可 以 改 为 表示 部 分 函数 关系 的 单调 函数 的 最 小 不 定点 形式 。 
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因为 %; 和 ,的 所 有 子 句 (除了 最 后 一 句 ) 都 是 一 样 的 , 且 $, 的 最 后 一 句 是 9, 的 最 后 一 
句 的 约束 , 则 包含 xy。Ss >vS, 是 显而易见 的 。 另 一 个 包含 3S，S 3 ,能 用 共 妇 纳 原 则 及 下 
面 的 引 理 来 证 明 ,这 个 引 理 可 建立 xS, 是 $, 一 致 的 。 

A.17 引 理 :对 任意 两 种 关 类 型 S,T, 如 果 (S,T)ev3, ,那么 (S,T)eS(vSsy)。 

证 明 概 略 : 根 据 施 归纳 于 大 = 广 pe (S)。 这 个 归纳 法 证 实 了 这 一 非 正 式 的 思想 : 即 
(S,T)e ww, 的 任 一 推导 都 可 转变 为 同样 情况 中 的 另 一 个 推导 , 而 恰巧 为 ($,T)e 5。 的 推 


导 。 在 左 岂 折 春 规则 中 的 限制 要 求 被 转变 的 推导 有 这 样 的 性 质 , 即 每 一 个 上 折 杰 规则 的 
应 用 的 序列 都 从 一 个 左 折 亚 序 列 开始 ,然后 接着 是 一 个 右上 折 释 序列 。 


21.9.2 解答 : 








SET SET2 
TEST SETIxT2 SETIxT2 
SETi SET2 SE[X=mAHX.T]T 
SET 一 Tz SETi 一 T2 SEAHX.T 


(注意 ,作为 有 趣 的 一 点 ,产生 函数 7 与 我 们 这 里 通 篇 考虑 的 产生 函数 是 不 同 的 : 它 是 不 
可 逆 的 。 例 如 ,BE AxB->BxC 被 两 个 集合 |BSEAxBl 和 fBEBxC+i 所 支持 ,任意 一 个 
都 不 是 另外 一 个 的 子 集合 )。 
21.9.7 解答 :所 有 关于 BD 的 规则 都 与 在 练习 21.9.2 中 解答 中 给 出 的 关于 写 的 规则 
是 相同 的 ,除了 开始 于 一 个 呈 绑 定 器 的 类 型 规则 外 ， 
SX 荆 
[EX 一 AX.Tjs < HUX.T 


21.11.1 解答 :这 里 有 许多 。 一 个 平凡 的 例子 是 ,对 几乎 任意 一 个 T, 有 JIX.T 和 [X r~ 
必 .T]。 更 有 趣 的 一 点 是 /以 .Natx (NatxX) 和 jX.Natx 。 


22.3.9 解答 :这 里 是 主要 的 算法 约束 产生 规则 : 
T(X) = 


FTFFx:T IF 弛 《CTYVar) 
LT x:TiHFFrt2z:Tz IFC xcgkdom(T) 
TFFAx:Ti.tz :TI-T [PC 《CTAbs) 
THFFtli:T IF Cl THFPt2z:Tz |FP Cz2 下 ”= XE 
(CT-App) 


THFFrtit2:X lp CucCzufTI =Tz 一 X} 
剩 下 的 规则 是 相同 的 。 原 始 规则 的 等 价 性 和 算法 的 表现 形式 叙述 如 下 : 
1. (可 靠 性 ) 如 果 下 FrtTirC 且 在 和 +t 中 提 到 的 变量 没有 出 现在 严 中 ,那么 下 F ti 
TlrvrCo 
2. (完备 性 ) 如 果 了 F t:T1;C ,那么 在 X 中 存在 一 个 名 称 置 换 严 使 得 了 Frt:Tie C。 


这 两 部 分 都 可 用 归纳 导出 直接 证 明 。 对 于 第 (1) 部 分 中 的 情况 应 用 , 以 下 的 绰 理 是 
有 用 的 : 
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如 果 在 PR 和 t 中 提 到 的 类 型 变量 没有 出 现在 下 中 , 且 TFrtTirc, 那 么 在 PF 和 C 中 提 到 
的 类 型 变量 不 会 在 严 \ 严 中 。 

对 于 第 (2) 部 分 中 相关 的 情况 ,下 面 的 引 理 可 用 ; 

如 果 PFrtTirC, 那 么 PFretTlirec, 其 中 C 是 任何 一 个 新 变量 名 字 的 序列 。 


22.3.10 解答 :通过 将 约 东 集合 表达 为 一 个 类 型 序 对 的 列表 , 约束 产生 算法 可 以 为 
练习 22.3.9 的 解答 中 的 推论 规则 的 直接 副本 : 


]et rec recon ctx nextuvar t = match t with 

TnmvVarCfi,i,_) -~ 
Tet tyT = getTypeFromContext fi ctx 1 in 
(tyT，nextuvar，[]) 

TmAbs(fi ，x，tyT1L，t2) 一 
]et ctXx' = addbinding ctx x (VarBind(CtyT1)] in 
let 〈《tyT2 ,nextuvar2,constr2) = recon ctx:' nextuvar t2 in 
(TyArrCtyT1，tyT2)，nextuvar2，constr2) 

TmApp(fi,t1l,t2) 一 
]et (tyT1,nextuvar1,constrl1) = recon ctx nextuvar ti jn 
1et (〈tyT2 ,nextuvar2 ,constr2) = recon Ctx nextuvarl1 t2 in 
let NextUVar(tyX,nextuvar') = nextuvar2()] in 
1et newconstr = [(tyT1,TyArrCtyT2,TyIdCtyxJ]))] in 
(CTyIdCtyX) ) ，nextuvar : ， 
List.concat [newconstr; constr1L; constr2]) 

TmZzero(Cfi) 一 (TyNat，nextuvar，[]) 

TmSucc(Cfi ,tl) 一 
Tet (tyT1,nextuvarl,constrl) = recon ctXx nextuvar tl in 
(TyNat ，nextuvar1，(tyT1,TyNat) : :constrl) 

TmPred(Cfi ,tl1) 一 
let (tyTl,nextuvarl,constrl) = recon ctXx nextuvar tl in 
(TyNat ，nextuvarl，(tyT1L,TyNat) : :constrit) 

TmISZero(Cfi ,tt) 一 - 
1et (tyTl,nextuvarl,constrl1) = recon ctx nextuvyar tl jn 
(TyBoo1，nextuvar1，(tyT1,TyNat) : :constr1) 

TmTrue(Cfi) ~ 一 (〈TyBoo1，nextuvar，[]) 

TmFalse(Cfi) 一 (TyBoo1，nextuvar，[]) 

TmIf(Cfi ,tl,t2,t3) 一 
1et (tyTL,nextuvarl,constrti) = recon ctx nextuvar tl in 
]et (tyT2 ,nextuvar2 ,constr2) = recon Ctx hextuvarl t2 in 
let 《tyT3 ,nextuvar3 ,constr3) = recon ctx nextuvar2 t3 jn 
et newconstr = [(tyT1,TyBoo1); (tyT2,tyT3)] in 
(tyT3，nextuvar3， 
List.concat [newconstr; constr1; constr2; constr3]1) 


22.3.1t 解答 :关于 fx 表达 式 的 一 个 约束 产生 规则 可 直接 从 图 11.12 中 的 类 型 化 规则 工 


Fix 推导 出 来 : 
ThFrtilT lx CI  X 不 等 于 XiT 或 ti 


TFTfixti:X xu CIfTI =X-X} 
这 个 规则 重 构 了 6 的 类 型 ( 称 它 为 了 ) ,确定 T 对 一 些 新 的 X 有 形式 X~>X, 上 且 生 成 一 个 X 
作为 人 ix 世 的 类 型 。 


(CT-Fix) 
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关于 lehrec 表达 式 的 约束 产生 规则 及 一 个 导出 式 的 letree 定义 ,可 以 按 顺 序 从 这 个 规则 中 
推导 出 来 。 


22.4.3 解答 : 
{X = Nat,Y = X 一 Xj [X 一 Nat,Y 一 Nat 一 Nat] 
{Nat 一 Nat = X 一 Y)} [X 一 Nat,Y 一 Nat] 
{X 一 Y = Y 一 Z,Z=U-Wl [XU-wW,Y 一 U 一 WiZ 一 岂 一 W] 
{Nat = Nat 一 Y} 不 可 合 一 
fy= Nat-~Y} 不 可 全 一 


和 [ 


22.4.6 解答 :这 个 练习 所 需要 的 主要 数据 结构 是 一 个 代 换 的 形式 。 这 有 几 种 选择 ;最 简 
单 的 一 个 是 重用 练习 22.3.10 中 的 constr 数据 类 型 :一 个 代 换 仅 是 一 个 约束 集合 ,整个 集 
合 的 左 端 都 是 合 一 变量 。 如 果 我 们 定义 一 个 函数 substinty 来 将 类 型 代 换 为 单一 
类 型 变量 ， 


1et substinty tyX tyT tyS = 
let rec f tyS am match tyS with 
TyArr(CtyS1,tyS2] 一 TyArr(Cf tyS1，f tyS2) 
| TyNat 一 TyNat 
| Ty8Bool1 一 TyBoo1 
| TyId(s) ~ if s=tyX then tyT else TyId(Cs) 
in 下 tyS 


那么 对 于 一 个 类 型 的 整个 代 换 的 应 用 可 以 定义 如 下 ， 


Tet app1ysubst constr tyT = 
List.fo1d_1eft 
(fun tyS (TyIdCtyX) ,tyC2) 一 Substinty tyX tyC2 tyS) 
tyT (List.rev constr) 


这 个 合 一 函数 仍然 需要 能 够 在 某 约 束 集合 中 将 一 个 代 换 应 用 到 所 有 类 型 : 


]et Substinconstr tyX tyT Constr = 
LiSst .map 
(fun (tyS1l,tyS2)] 一 
(substinty tyX tyT tyS1，substinty tyX tyT tyS2)) 
CorSstr 


重要 的 仍然 是 检测 循环 依赖 的 “发 生 检验 ”， 


1et Ooccursin tyX tyT = 
Tet rec 0 tyT = match tyT with 
TYyArrCtyT1,tyT2) ~ 0 tyTL || o tyT2 
| TyNat 一 false 
| TyBool1 一 fal1se 
1 TyId(s) 一 〈s=tyX) 
in oO tyT 


这 个 合 一 函数 现在 是 图 22.2 中 给 出 的 伪 代 码 的 一 个 直接 副本 。 与 通常 一 样 , 当 合 一 失败 
时 , 它 将 一 个 文件 位 置 和 字符 串 作 为 附加 的 参数 出 现在 打印 错误 信息 中 。 
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一 ”ww 


jet unify fi ctx msg constr = 
let rec U constr = match constr with 
[ - [ 
| (tyS,TyIdCtyX)) :: rest ~ 
if tyS = TyIdCtyX) then uU rest 
else if occursin tyX tyS then 
error fi (msg A“": Circular constraints") 
e]se 
List.append (u (substinconstr tyX tyS Prest)]) 
[CTyIdCtyX) ,tyS)] 
| 〈TyIdCtyX) ,tyT) :: rest 一 
if tyT = TyIdCtyX) then U rest 
else if occursin tyX tyT then 


error fi (msg ^“": circular constraints' 
el1se 
List.append (u (substinconstr tyX tyYT rest)) 


[CTyIdCtyX) ,tyT)] 
| (CTyNat ,TyNat) :: rest 一 U rest 
| 〈TyBoo1,TyBoo1) :: rest ~ U rest 
| CTYArr(CtySl,tyS2),TyArrCtyT1,tyT2)) :: rest 一 
uU(〔〈(tySl,tyT1) :: (tyS2,tyT2) :: rest) 
| 《tyS,tyT) : :rest 一 
error fi “Unso1vab1le constraints'" 
in 
uU constr 


这 个 合 一 的 教学 版 本 在 打印 有 用 的 错误 信息 时 的 工作 并 不 很 有 效 。 实 际 上 ,“ 解 释 ” 类 型 错 
误 是 在 为 具有 类 型 重 构 功 能 的 语言 设计 编译 器 时 最 复杂 的 部 分 之 --。 参 考 Wand(1986)。 


22.5.6 解答 :通过 扩展 类 型 重 构 算法 来 处 理 记 录 并 不 是 直接 的 ,尽管 可 以 做 到 。 主 要 的 
困难 在 于 不 清楚 记录 投影 需要 产生 什么 样 的 约束 。-- 个 简单 的 最 初 尝试 为 ， 
TFt3:T IxeC 
ThFrt.l:XxX ixutx CufT= {1r:X}) 
但 这 并 不 令 人 满意 ,因为 实际 上 ,这 条 规则 说 明了 1, 字段 只 能 被 包含 了 1; 字段 而 没有 其 
他 字段 的 记录 所 有 映射 。 
Wand(1987) 提 出 了 一 种 理想 的 解决 方案 ,后 来 又 被 Wand(1988,1989b)， Remy(1989 ,1990) 
和 其 他 人 深入 研究 了 。 我 们 提出 一 种 新 的 变量 类 型 叫做 行 变 量 ,其 范围 并 不 涉及 类 型 而 
是 涉及 到 字段 标签 和 相关 联 的 类 型 的 < 行 " 上 。 利用 行 变 量 ,关于 字段 投影 的 约束 产生 规 
则 可 被 写成 ， 
[Hto:T IxC 

Trto.1:X lxuxcpl CUuIT=tfpjp=1:Xer] 
当 c 和 p 是 行 变量 且 操 作 符 包 含 了 两 行 (假设 它们 的 字段 是 不 可 连接 的 )。 对 项 t.1 ,如 果 
t 共 有 带 字 段 p 的 记录 类 型 ,其 中 po 含 字段 1 :X 及 其 他 字段 ", 则 t.1 的 类 型 为 X。 
这 个 改进 算法 的 生成 约束 比 具有 原始 重 构 算法 的 合 一 变量 类 型 之 间 的 简单 等 式 集 要 复杂 


得 多 ,因为 新 的 约束 集合 仍然 包括 可 结合 交换 的 操作 符 。 寻找 这 种 约束 集合 的 解决 方案 
需要 一 种 简单 的 等 式 合 一 模式 。 


(CE-Proj) 
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23.4.3 解答 :这 里 使 用 辅助 的 append 的 标准 解答 : 


append = AX，(fix (NAapp:(List X) 一 (List X) 一 (List X) . 
A11L1:List X.。A12:List X， 
if isnil [X] 11 then 12 
e1se Cons [X] (人 (head [X] 117) 
(Capp 《tail [X]J 11) 12727; 


* append : VX，List X 一 List X 一 ListX 


reverse = 
AX. 
(fiXxX (Arev:(List X) 一 《LiSst X) 
A1: 《List X) , 
if isnil1 [X] 1 
then ni1 [XI] 
else append [Xj Crev (tail [X] 17) 
《cons [X] (head [X] 1) (Cni1 [XJ7)777; 


* Preverse : VX，List X 一 LiSst X 


23.4.5 解答 : 
and = Ab:CBoo1. Ac:CBoo1 . 
AX，At:X。Af:X. b [X] (CCc [X] t f) 于; 
23.4.6 解答: 


iszro = An:CNat.n [Boo1] (Mb:Boo1. false) true' 


23.4.8 解答 : 


pairNat = Anl:CNat，An2:CNat . 

AX。Af:CNat 一 CNat 一 X. f n1 n2; 
fstNat = Ap:PairNat，PpP [ECNat] (AnI:CNat， An2:CNat. nl); 
sndNat = Ap:PairNat，p [CNat] (CAn1:CNat. An2:CNat，n2); 


23.4.9 解答 : 
zzZ = pairNat Co Co; 
f = Ap:PairNat. pairNat (sndNat p) (cplus c1 (CsndNat p]7; 
prd = Am:CNat，.， fstNat (nm [PairNat] 下 zz) ; 


23.4.10 解答 ; 


vpred = An:CNat.，AX. AS:X 一 X. 
AZ:X。 
Cn [(CX-X) 一 X] 
(CAp: (X 一 X) 一 X。，Aq: (CX 一 X) . q《pP S)) 
(AX:X 一 X，Z77) 
(CAX:X，X); 


” Vvpred : CNat 一 CNat 
感谢 Michael Levin 让 我 理解 了 这 个 例子 。 


23.4.11 解答 ; 


head = AX。Adefauit:X，A1:LiSt X， 
] fxX] CAhd:X，At1:X。hd) defau1ti 
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23.4.12 解答 ;这 个 练习 最 困难 的 部 分 是 拥 人 枯 数 。 这 个 解答 是 将 给 出 的 列表 ! 应 用 到 
一 个 可 以 构建 两 个 新 列表 的 函数 中 ,两 个 列表 一 个 与 原来 的 相同 , 另 一 个 包含 了 e。 对 于 
攻 从 右 到 左 ) 中 的 每 一 个 元 素 hd, 这 个 函数 被 传 给 hd 和 已 为 hd 右边 元 素 构建 的 列表 序 
对 。 新 的 列表 序 对 通过 将 e 与 hd 对 比 来 构造 :如 果 e 小 一 些 或 二 者 相等 , 则 它 属于 第 二 
个 结果 列表 的 开始 部 分 ;于 是 ,我 们 通过 在 第 一 个 列表 的 前 端 (还 不 包含 e 的 列表 ) 添 加 一 
个 e 来 建造 第 二 个 结果 列表 。 另 一 方面 ,如 果 e 比 hd 要 大 ,那么 它 属 于 第 二 个 列表 的 中 
间 某 个 位 置 , 且 我 们 通过 简单 地 将 hd 添加 到 已 经 构建 好 第 二 个 列表 中 来 生成 一 个 新 的 第 
二 个 列表 : 
Tinsert = 
AX，A1eq:X 一 X 一 Boo]，A1:List X，Xe:X， 
]et res = 
1 [Pair (List X)] (List X)] 
(CAhd:X，Aacc: Pair (List X) (LiSst X)， 

jet rest = fst [List X] [List X] acc in 

et newrest = Cons [X] hd rest in 

Tet restwithe = Snd [List X] [List X] acc in 

1et newrestwithe = 

if leq e hd 
then cons [fX] e (cons [X] hd rest) 
else cons [X] hd restwithe in 
pair [List X] [List X] newrest newrestwithe) 
(pair fList X] [List X] (nil [X]》 (cons [X] e Cni1 [XI))) 
in snd [List X] [List X] res; 

>” insefrt : VX。，(X-X-Boo1) ~ List X ~ X -。 List X 


接 下 来 ,我 们 需要 一 个 关于 数字 的 比较 函数 ,由 于 使 用 原始 数字 ,我 们 需要 用 多 来 写 它 
(可 以 在 这 里 用 CNat 替代 Nat 来 避免 使 用 fx)。 


]eqnat = 
fix (Af:Nat 一 Nat 一 Boo1，Xm:Nat.， NMn:Nat， 
if iszero m then true 
else if iszero n then false 
else 下 (pred m) Cpred n]); 


” ]eqnat : Nat 一 Nat 一 8oo1 


最 后 ,我们 通过 按照 顺序 将 列表 中 的 每 一 个 元 素 插入 一 个 新 的 列表 来 构建 一 个 排序 函数 : 


Sort = AX， A1eq:X-X 一 Boo1]，A1:List X， 
1 [LTst X] 
(Ahd:X.、 Arest:List X， insert [X] 1eq rest hd) 
Cni1 [X]); 


*” Sort ; YX.、(X 一 X 一 Boo1) ~ List X 一 List X 
为 了 检测 sort 是 否 正确 ,我们 构建 一 个 无 序列 表 : 


1 = cons [Nat] 9 
《cons [Nat] 2 《cons [Nat] 6 (cons [Nat] 4 (ni1] [Nat]7)7) ; 


对 它 排序 : 


1 = SOrt [Nat] leqnat 1; 
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并 且 读 出 内 容 : 
nth = 
AX。Adefau1t:X. 
fix (CAf: (List X) 一 Nat 一 X，AX1:List X，An:Nat . 
1f 1Szero n 
then head [X] default 1 
else f (tai1 [X] 1) Cpred mn)) ; 


”nth : VX. X 一 ListX 一 Nat 一 X 
nth [Nat] 0 1 0; 
”2Z : Nat 
nth [Nat] 0 1 |; 
*” 4 : Nat 
nth [Nat] 0 1 2; 
* 6 : Nat 
nth [Nat] 0 1 3; 
”9 : Nat 
nth [Nat] 0 1 4; 
”0 : Nat 
一 个 良 定义 排序 算法 可 以 在 了 系统 中 实现 ,该 示范 就 是 Reynolds(1985) 的 不 朽 之 作 。 他 的 
算法 与 这 里 讨论 的 有 一 些 不 同 。 
23.5.1 解答 :证 明 的 结构 与 定理 (9.3.9) 中 的 几乎 完全 一 样 。 对 于 类 型 应 用 规则 
E-TapTabs ,我 们 需要 一 个 附加 的 代 换 引 理 ,与 引 理 (9.3.8) 并 列 。 
IT,X,AFt:TthenT,[X 一 SAFI[IXm~St:[X 一 S]T. 
为 了 得 到 一 个 有 足够 能 力 的 归纳 假设 ,这 里 需要 一 个 额外 的 上 下 文 A; 如 果 它 被 忽略 ， 
T-Abs 就 会 出 现 错误 。 
23.5$.2 解答 :再 次 ,这 个 证 明 的 结构 同 关 于 入 .进展 的 证 明 [ 定 理 (9.3.5)] 非 常 相 似 。 规 
范 的 形式 引 理 (9.3.4) 可 用 一 个 附加 的 情况 扩展 ， 
如 果 "是 类 型 VX.T: 的 一 个 值 ,那么 v= MX.Ta。 
这 被 应 用 在 主要 证 明 的 类 型 应 用 情况 中 。 
23.6.3 解答 : 当 需 要 更 多 地 了 解 来 观察 如 何 将 各 部 分 凑 在 一 起 并 得 到 一 个 矛盾 时 ,所 有 
的 部 分 ,除了 最 后 一 个 ,都 可 直接 归纳 和 /或 可 计算 的 证 明 。Pawel Uryezyn 建议 的 证 明 结 
构 如 下 : 


(1) 对 + 直接 归纳 ,使 用 关于 类 型 化 的 逆转 引 理 。 
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(2) 根据 归纳 于 外 部 类 型 抽象 和 应 用 ,有 ， 
如 果 t 对 于 Y,B 有 形式 XY.(r[B])( 其 中 r 不 必 被 揭示 ) ,同时 如 果 erase(t) =m 且 
FF tb:T, 那 么 存在 一 些 形 式 为 s= 和 X.(u[A]) 的 类 型 s, 且 erase(s) = m 和 TF s:T, 更 
进一步 的 是 u 被 揭示 。 
在 基础 的 情况 中 ， 并 个 存在 外 部 类 型 抽象 或 应 用 , 即 "自身 是 被 揭示 的 ,这 样 证 明 

结束 。 

在 归纳 法 情况 中 ,r 的 外 部 构造 子 是 一 个 类 型 抽象 或 者 一 个 类 型 应 用 。 如 果 它 是 一 个 
类 型 应 用 , 即 m[R] ,我们 将 R 加 入 到 序列 B 中 且 应 用 归纳 假设 。 如 果 它 是 一 个 类 型 
抽象 , 即 XZ.rn ,那么 这 里 就 有 两 种 子 情况 来 考虑 ; 


(a) 如 果 应 用 B 序 列 是 空 的 ,那么 我 们 可 以 将 Z 加 入 到 抽象 的 序列 立 中 并 应 用 归纳 
假设 。 

(b) 如 果 了 是 非 空 的 ,可 将 + 写 为 ， 
t=AY.((AZ. rl) [Bo] [B]) 
其 中 8B= BB'。 但 这 一 次 包括 了 一 个 R-Beta2 的 约 式 , 约 简 这 些 约 式 得 项 ; 
tf =AY. ([Bo 一 Zrl [ 相 ]) 
其 中 [R 一 Z]nm 包含 了 比 * 少 的 外 部 类 型 抽象 和 应 用 。 更 深入 的 是 ,主题 归 约 
定理 告诉 我 们 ! 与 4 有 相同 的 类 型 。 最 终 的 结果 可 以 通过 应 用 归纳 假设 得 到 。 


(3) 直接 可 从 逆转 引 理 得 出 。 

(4) 从 (1),(3) 和 (2)[ 两 次 ] 直 接 计算 。 

(S$) 直接 可 从 (2) 和 逆转 引 理 得 出 。 

《6) 根据 归纳 于 了 长 度 。 在 基本 情况 中 ,当下 是 一 个 变量 ,这 个 变量 必须 来 自 又 马 , 否 


则 我 们 将 有 : 

[XIX2 mAlVY.T) = YYW = YYzZ. (YY.W) 一 ([X 一 BIT2>)， 

但 并 不 是 这 种 情况 ( 左 端 没 有 箭头 且 右 端 至 少 有 一 个 )。 另 一 些 情 况 可 直接 从 归纳 假 
设法 中 得 出 。 


(7) 假设 ,对 于 一 个 矛盾 ,omega 是 可 类 型 化 的 。 那 么 ,根据 (1) 和 (3) ,存在 揭示 项 。= su, 其 中 ; 


eraSe(5) = AX.X X erase(u) = Ay. yy 
THFs :UV THFu :HU. 


根据 (2) ,存在 项 s' = 遂 .(s[E]) 和 u=)XV.(uw[ 了 ), 其 中 % 和 mo 为 揭示 的 , 且 ， 
erase(s0) = AX. XX erase(uo) = Ay.yy 

THFSs 1: U-V THFu' :1U. 

因为 s 包 含 一 个 箭头 ,R 必须 为 空 。 同 样 ,由 于 s 和 um 为 揭示 的 ,它们 必须 从 抽象 开 

始 , 所 以 正和 下 仍然 是 空 的 , 且 我 们 有 : 

SS 由 

so (AMV. uo) 

CAxX:Tx. w) (AV. Ay:Ty. Vv)， 


OO 
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其 中 erase(w) =xx, 且 erase(v) =yy 。 根 据 首 转 引 理 ,U =T., 且 ， 
T,x:TxFwi:W T,Vy:TyhFv:P. 

将 (4) 应 用 到 其 中 的 第 一 个 ,那么 ; 

(a) T, = VX.X 

(b) T = V 允 叉 T 一 开 且 对 于 某 及 和 瑟 [又 允 AT =[ 芭 一 BCVZT->T)。 


根据 (5) ,T, 必须 有 第 二 种 形式 ,于 是 ,根据 (6) ,T, 最 左边 的 时 子 为 Xe 又 X。 
现在 ,应 用 (4) 到 类 型 化 T,V,y:T,F v:P 中 ,将 有 : 


(a) T, = VYT.Y: 

(b) T = VY 世 到.S-S , 且 对 于 一 些 C 和 C,[YE 一 C]S =[Y =D](VZ.S->S)。 

在 前 一 个 情况 中 ,直接 得 出 T, 最 左边 的 叶子 是 YieY。 在 后 一 个 情况 中 ,可 以 用 (6) 

来 再 次 得 到 T, 最 左边 的 叶子 是 YisYiY,。 

但 是 ,从 o' 的 形状 和 逆转 引 理 中 ,得 到 : 

vvVTpyv= mm 
= YXIX2 .Ti 一 T2， 

所 以 ,特别 地 ,T, = 了 。 换 句 话 说,T 的 最 左边 的 叶子 与 T, 的 叶子 相同 。 总 之 ,我们 

有 T. = YX 入.(VY.S) 一 卫 , 旦 同时 有 lgirostriear(S) = XeE 世 元 和 jhmost-ieaf(S) 

=Yi EY。 由 于 变量 X 太 和 YY 被 绑 定 在 不 同 的 地 方 ,我 们 可 以 推导 一 个 邓 盾 ,我们 

最 初 假设 omega 是 可 类 型 化 的 一 定 是 错误 的 。 


23.7.1 解答 : 


1et Fr = AX。ref (AXx:X。Xx) in 
Cr[ENat] := (AX:Nat， SUCC Xx); 
(CCr[Boo1]7]) true) ; 


24.1.1 解答 : 包 p6 提供 了 一 个 常量 a 和 一 个 函数 也 但 这 些 分 量 的 类 型 所 允许 的 惟一 操 
作 是 多 次 应 用 f 到 a, 然后 抛 开 结果 。 包 p7 允许 我 们 用 f 来 产生 类 型 X 的 值 , 但 不 能 利用 
这 些 值 做 任何 事 。 在 包 pg 中 ,两 个 分 量 都 是 可 用 的 ,但 现在 已 经 没有 什么 隐藏 的 了 ,我 们 
也 能 够 同时 放弃 存在 的 包 。 


24.2.1 解答 


StackADT = 
{*List Nat， 
{fnew = ni1 [Nat]， 
push = An:Nat，As:List Nat，. cons [Nat] n s， 
top = As:List Nat，.， head [Nat] s， 
pop = AS5:LisSt Nat，tail1 [Nat] 5s， 
isempty = isni1 [Nat]jj} . 
as {3 了 Stack，{fnew: Stack，push: Nat 一 Stack 一 Stack，top: Stack 一 Nat， 
pop: Stack 一 Stack，isempty: Stack 一 Boo11}1; 


*” StackADT : {3Stack， 
{new:Stack,push:Nat 一 Stack 一 Stack,top:Stack 一 Nat， 
pop:Stack 一 Stack,isempty:Stack 一 Boo131} 
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1et {fStack, stackj = StackADT in 
Stack.top (stack.push 5 (stack.push 3 stack.new)); 


*” 3 : Nat 


24.2.2 解答 


COUnterADT = 
{*Ref Nat， 
{ftnew = A_:Unit， ref 1， 
get = Ar:Ref Nat。1r， 
inc = Ar:Ref Nat-. mr := SuccCIr)]} 
as {3Counter， 
{fnew: Unit 一 Counter ，get: Counter 一 Nat，inc: Counter 一 Unit}]l; 
* COounterADT : {3Counter， 
fnew:Unit 一 Counter,get:Counter 一 Nat， 
inc:Counter 一 Unit}} 


24.2.3 解答 : 


Fl1ipF1op = {3X，{fstate:X，methods: fread: X 一 Boo1， togg]1le: X 一 X， 
reSet: X 一 X}}] ; 
f = {f*Counter， 
{fstate = ZeroCounter ， 
methods = {fread = As:Counter. iseven (sendget s)， 
toggle = As:Counter. sendinc s， 
reset = AS:Counter， zeroCounterj}j} 
as Fl1ipF1lop; 
* 千 : F1ipF1op 


24.2.4 解答 : 


< = {*Ref Nat， 
{state = ref 5， 
methods = {fget = AX:Ref Nat。 1!1x， 
inc = AX:Ref Nat，(X := SuUccCIXDI ; xD]} 
as Counter; 


24.2.5 ”解答 :这 个 类 型 将 允许 用 union 方法 来 实现 集合 对 象 ,但 它 阻 止 我 们 使 用 它们 。 
为 了 调用 这 样 一 个 对 象 的 union 方法 ,需要 传 给 它 两 个 与 类 型 形式 非常 相似 的 类 型 值 。 
但 这 些 值 不 能 出 自 两 个 不 同 的 集合 对 象 ， 因为 为 了 得 到 这 两 个 状态 需要 打开 每 一 个 对 象 ， 
且 这 将 绑 定 两 个 不 同 的 类 型 变量 ;第 二 个 集合 的 状态 不 能 被 传 给 第 一 个 集合 的 uion 操 
作 (这 并 不 是 类 型 检查 器 的 个 强 所 致 :我 们 很 容易 看 出 将 一 个 集合 的 具体 的 形式 传 给 另 一 
个 集合 的 union 操作 是 不 合理 的 ,因为 第 二 个 集合 的 表示 形式 总 的 来 说 可 能 和 第 一 个 完 
全 不 同 )。 所 以 ,Natset 类 型 的 这 个 版 本 只 人 允许 它 自 身 之 间 进 行 集合 的 联合 操作 |! 


24.3.2 解答 :最 低 限 度 ,我 们 需要 说 明 类 型 化 和 计算 规则 由 翻译 所 保持 ,或 者 说 , 如果 我 
们 为 能 完成 所 有 这 些 翻译 的 函数 记 为 [一 ] ,那么 TH t:T 意味 着 [TFIEtI:TTI 日 
tt 上 意味 着 [~ Et 了 。 这 些 性 质 检查 起 来 很 简单 。 我 们 可 能 希望 发 现 , 反 过 来 也 是 
对 的 。 或 者 说 ,一 个 不 良 定义 类 型 项 在 有 存在 类 型 的 语言 中 ,总 能 够 通过 翻译 被 映射 到 一 
个 不 良 定义 类 型 项 ,上 且 一 个 已 受阻 项 对 应 一 个 已 受阻 项 ;遗憾 的 是 ,这 些 性 质 都 失败 了 ， 例 
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如 ,翻译 将 不 良 定义 类 型 (和 受阻 ) 项 (| * Nat,0} as | 了 X,XH)[Booljj 上 映射 到 一 个 良 定 义 类 
型 ( 非 受阻 ) 的 项 。 


24.3.3 解答 :我 不 知道 这 个 问题 从 有 娜 里 得 出 。 它 好 像 是 可 能 的 ,但 这 种 变换 不 会 是 局 部 
语法 修饰 一 一 它 需要 立即 被 应 用 到 整个 程序 中 。 


25.2.1 解答 :一 个 类 型 了 在 截 参 数 。 上 的 4 步 移 位 , 记 为 人 (T) ,定义 如 下 : 


K 认 K < c 
18 (k) 一 长， 让 帮 > C 
19(Ti-T2) = 19(T) 一 1dg(Tz) 
tvV.T) = V.idi(tl) 
1d (fa,Ti) = [ta 14 Ti) 


一 个 类 型 了 中 所 有 变量 在 截 参 。 上 的 vd 步 移 位 , 记 为 人 2(T) ,或 者 说 , 人 20T) 


25.4.1 解答 : 它 为 类 型 变量 X 提供 了 空间 。 鉴 于 原始 的 ww 的 定义 只 与 T 有 关联 ,用 避 
代 换 va 的 结果 在 T,X 形式 的 上 下 文中 被 假设 为 良 辖 定 的 。 


26.2.3 解答 :需要 全 下 .规则 的 一 个 地 方 在 Abaqdi ,Cardeli 和 Viswanathan( 1996) 的 对 象 编 
码 之 中 。 在 Abadi 和 Cardelli(1996) 中 也 有 描述 。 


26.3.4 解答 : 


sp1uszz = An:SZero。Am:SZero。 
AX、AS<:X。AMZ<;X，ASIX 一 S，AZIZ. 
n [X] [S] fzj s (Cm [X] [S] [Z] s ZD); 


spl1uspn = An:SPos，.， Am:SNat， 
AX。、AS<:X。AZ<:X，AS:X 一 S，AZ:Z， 
n fx]j [S] fx] s (Cm [X] [S] [Z] s z); 


* spluspn : Spos 一 SNat 一 SPos 


26.3.S 解答 : 


SBool1 VX，VYT<:X，VF<:X.。T 一 F 一 X; 
STrue VYX，YT<:X，VF<:X。T 一 F 一 T; 
SFalse = VX.VT<:X，VF<:X。， T 一 F 一 F; 


tru = 入 X。，AT<:X，AF<:X. At:T，Af:F. 七 ; 


* tru ; STrue 

fls = AX. AT<:X，AF<:X，At:T，Af:F. 于 ; 
* fs : SFalse 

notft = Ab:SFalse，、AX. AT<:X. 和 AF<:X， At:T. Af:F. b[X][F1I[ITJ ft 
”notft : SFalse 一 STrue 

nottf = AMb:STrue，AX，AT<:X，AF<:X，At:T。 Af:F， b[X][rF]jiT] ft; 


* nottf : STrue 一 SFalse 
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26.4,3 解答 :在 第 (1) 和 第 (2) 部 分 中 的 抽象 和 类 型 抽象 情况 中 及 第 (3) 和 第 (4) 部 分 中 
的 量词 情况 中 。 

26.4.5 解答 : 对 子 类 型 化 推导 归纳 讨论 第 (1 部分。 所 有 的 情况 或 者 是 立即 得 出 (S-Refl， 
S-Top) 或 者 是 归纳 假设 (S-Trans,S-Arow,S-Al) 的 直接 应 用 ,除了 S-TVar,S-TVar 更 为 有 趣 。 
假设 P,X<:Q,AF S<:T 的 推导 中 的 最 后 条 规则 是 S-TVar 的 一 个 实例 ,或 者 说 ,S$ 是 某 变 
量 Y,T 是 上 下 文中 Y 的 上 界 。 这 里 有 两 种 可 能 性 要 考虑 。 如 果 X 和 了 是 不 同 的 变量 , 那 
么 Y<:T 的 假设 仍 能 在 上 下 文 下 ,X <:P,A 中 找 出 ,结果 立即 得 出 。 在 另 一 方面 ,如 果 
X=Y, 那 么 T=Q; 为 了 完成 这 个 证 明 , 我 们 需要 显示 下 ,X <:P,AHF X<:Q。 通 过 S-TVar， 
我 们 有 了 T,X<:P,AF X<:P。 更 多 地 ,根据 假设 FF P<:Q, 那 么 ,根据 弱化 引 理 (26.4.2)， 
T,X<:P,AF P<:Q。 将 这 两 个 新 的 推导 结合 S-TVar, 就 可 以 得 出 想 要 的 结果 。 

第 (2) 部 分 是 常规 归纳 类 型 化 推导 ,使 用 第 (1) 部 分 作为 类 型 应 用 情况 的 子 类 型 化 的 前 提 。 


26.4.11 解答 :所 有 的 证 明 都 是 根据 直接 归纳 子 类 型 化 推导 的 。 通 过 推导 中 最 后 规则 的 
情况 分 析 只 说 明 第 一 个 。S-Refl 和 S-Top 的 情况 是 显而易见 的 。S-TVar 不 可 能 发 生 
(S-Tvar 结论 的 左 端 只 可 能 是 一 个 变量 ,不 可 能 是 一 个 箭头 ); 同样 ,S-Al 不 可 能 发 生 。 如 
果 最 后 规则 是 S-Amow 的 一 个 实例 ,那么 子 推导 就 是 我 们 想 要 的 结果 。 假 设 最 后 的 规则 是 
S-Trans 的 一 个 实例 ,或 者 说 我 们 对 某 U 有 THF SS 一 S <:U 和 FF U<:T。 根 据 归 纳 法 假 
设 , 或 者 是 Top[ 根 据 练 习 的 第 (4) 部 分 和 我 们 已 经 完成 的 工作 ,T 也 是 Top] 或 者 U 有 形 
式 U-U 其 中 PH U <:S 和 TFS <:U。 在 后 一 种 情况 中 ,我 们 将 归纳 假设 再 次 应 
用 到 原始 的 S-Trans 的 第 二 个 子 推导 中 来 得 到 ,或 者 T= Top( 我 们 已 完成 ) ,或 者 T 有 形 
式 了 一 呈 其 中 PPFT <:U 和 FU <: 王 。 传 递 性 的 两 个 应 用 告诉 我 们 FT <:S, 且 
DF S <:7 , 据 此 想 要 的 结果 可 从 S-Anrow 中 推出 。 


26.5.1 解答 : 
[FSl <: Ti IT , X<:S1 上 S2 <: T> 
IF- {3X<:91,S2} <: {f3Xx<:Ti ,T2} 


26.5$,2 解答 :没有 子 类 型 化 ,就 仅 有 4 个 : 


{*Nat，{fa=<5,b=7}} as {3Xx，fa:Nat,b:Nat]j; 
{s*Nat，{far5,b=7}} as {3X，{fa:X,b:Nat}]j; 
{*Nat，{fa=5,b=7j} as {3X，fa:Nat,b:Xl]; 
{*Nat，{fa=5,b=7}} as {3X，{fa:X,b:X]}]; 


(S-Some) 


结合 子 类 型 化 和 轿 量 词 , 那 就 确实 多 了 一 些 , 例 如 ， 


{*Nat，{fa=5,b=7j} as {3ax，{fa:Nat11; 
{*Nat，{fa=5,b=7}} as {3X，f{fb:X}j; 
{*Nat，{fa=5,b=7}} as {3X，{fa:Top,b:X1}1， 
{*Nat，{fa=<5,b=7}} as {3X，Topj; 
{*Nat，{a=5,b=7]j] as {3X<:Nat，{[fa:X,b:Xj]; 
{*Nat，{a=5,b=7}]} as {3X<:Nat，{fa:Top,b:X}j; 
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26.5.3 解答 :完成 本 题 的 一 个 途径 是 将 重 置 计 数 器 ADT 艇 套 在 计数 器 ADT 之 内 : 


CoOunterADT = 
{xNat ， 
{fnew = 1，get = Ai:Nat. 1，inc = Ai:Nat. succ(Ci)， 
PFCADT = 
{*Nat， 
{fnew = 1，get = Ai:Nat， i，inc = Ai:Nat. succCi) ， 
reset = AT:Nat。11} 

as {3ResetCounter<:;Nat， 


{fnew: ResetCounter ，get: ResetCounter 一 Nat， 
inc: ResetCounter 一 ResetCounter， 
reset: ResetCounter 一 ResetCounter]}} ]}} 
as {3Counter， 
{fnew: Counter ，get: Counter 一 Nat，inc: Counter 一 Counter ， 
rCADT : 
{3ResetCounter<:Counter， 
{fnew: ResetCounter ，get: ResetCounter 一 Nat， 
inc: ResetCounter 一 ResetCounter， 
reset:; ResetCounter 一 ReSsetCounterT jj}]l; 


” CounterADT : {3Counter， 
{new:Counter ,get:Counter 一 Nat,inc:Counter 一 Counter， 


rcCADT:{3ResetCounter<:Counter， 
{fnew:ResetCounter ,get:;ResetCounter 一 Nat， 
Tnc:ResetCounter 一 ResetCounter， 
reset:ResetCOounter 一 Re5etCounter1}jj}} 


当 这 些 包 都 被 打开 ,结果 就 是 用 于 检查 程序 中 剩余 部 分 的 上 下 文 将 包含 形 为 Counter <: 
Top , counter; | …| ,ResetCounter <: Counter, resetCounter: | … 的 绑 定 的 类 型 变量 : 


]et {fCounter ,Counter} = CounterADT jin 
Tet {ResetCounter ,resetCounterl = counter .rcADT in 
counter .get 


《Counter .inc 
(CresetCounter .reset (resetCounter .inc resetCounter .new)J7)] ， 





”2 : Nat 


26.5.4 解答 :所 有 需要 我 们 做 的 就 是 在 24.3 节 的 编码 中 的 显著 位 置 上 添加 界限 。 在 类 
型 的 层次 上 ,我 们 得 到 


{3x<:S,T} 全 YY. (YX<:S.T-Y) 一 YY 
在 项 的 层次 上 的 改变 可 从 这 里 直接 看 出 。 
27.1 解答 :这 里 有 一 种 方法 ; 


SetCounterC1aSS = 
AM<:SetCounter ，AR< :CounterRep . 
ASelif: Ref(CR 一 M) ， 
Ar: R。 
{get = A_:Unit，!Cr.x)， 
Set = Ai:Nat， ,X:=j， 
inc = A_iUnit，(!se]1f r).set (SuccCClself r).get unit)))}; 
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* SetCounterC1lass : VYM<:SetCounter ， 
VYR<:CounterRep . 
(Ref (R~M)) 一 R 一 SetCounter 


instrCounterC1asSs = 

AM< :InstrCounter . 

AR<:InstrCounterRep , 

ASe1f: RefCR 一 M) . 

Ar: R. . 
Tet super = SetCounterC1lass [M] [R] self in 

{get = (〈super r) .get， 
set = Ai:Nat.(r.a:=succCICr.a)); (super r)] .set 1)， 
inc = (Super r) .inc， 
acCCesses = 人 _:Unit. !Cr.a)j; 


* 1nstrCounterC1ass : VM<:InstrCounter ， 
VR<:InstrCounterRep ， 
(Ref (CR 一 MD)I) 一 R 一 InstrCounter 


hewInStrCounter = 
let mm = ref (CAr;InstrCounterRep error as InstrCounter] in 
et 和 ”= 
instrCounterC1ass [InstrCounter] [InstrCounterRep] m in 
(nm := 几 ; 
A_:Unit， 1et rr = {fx=ref 1，a=ref 0} in m' r)， 





*” mnewInstrCounter : Unit ~ InstrCounter 


28.2.3 解答 :在 了 Tabs 情况 中 ,我 们 添加 一 个 S-Ret 的 平凡 应 用 来 作为 SAll 的 额外 的 
前 提 。 在 下 Tapp 情况 中 , 子 类 型 逆转 引 理 ( 对 全 F。. ) 告 诉 我 们 N = VX <: N .N，，, 同 
时 下 F Ti<:N 且 T,X<:Tuir No<:Tz。 使 用 传递 性 ,可 以 得 到 下 FT <:Ti, 其 证 明了 
使 用 TA-Tapp 来 得 到 T 一 6[]:[XFT No。 可 像 以 前 一 样 利用 在 代 换 之 下 [ 引 
理 (26.4.8)] 的 子 类 型 化 的 保持 性 质 来 得 到 FF [X 王 卫 ]Nu<:[X Fr= 工 ]T。 =T, 并 以 此 
来 结束 。 


28.5.1 解答 :定理 (28.3.5)( 特 别 是 在 S-All 情况 中 ) 对 全 下。 是 无 效 的 。 


28.5.6 解答 :注意 ,首先 , 园 和 非 较量 词 不 应 该 被 混合 :必须 有 一 个 子 类 型 化 规则 来 比较 
两 个 赔 量 词 ,而 另 一 个 来 比较 非 辕 量 词 ,但 不 需要 上 比较 出 量词 和 非 较量 词 的 规则 。 否 则 我 
们 就 要 回 到 原 地 重新 开始 ! 

对 于 第 (1) 部 分 和 第 (2) 部 分 ,详情 请 看 Katiyar 和 Sankar(1992)。 对 于 第 (3) 部 分 ,答案 是 
否定 的 ;将 具有 广度 子 类 型 化 的 记录 类 型 加 入 到 被 限制 的 系统 中 将 使 它 再 次 变 为 不 确定 
的 。 问 题 出 在 空 的 记录 类 型 是 一 种 最 大 类 型 (在 记录 类 型 中 )。 而 且 在 使 用 Ghelli 例子 的 改 
进 版 本 的 子 类 型 化 检查 器 中 , 它 将 再 次 造成 发 散 。 如 果 T= VX <: 用 .~(a:VTY<:X. 一 T， 
那么 输入 2 <: la:T FF X <:ia:VXI <:Xo .一 X | 将 导致 子 类 型 检查 器 出 现 发 散 。 

Martin Hoftmann 帮助 我 们 解答 这 个 例子 。Katiyar 和 Sankar(1992) 也 做 出 了 相同 的 工作 。 
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28.6.3 解答 : 
1. 我 计算 出 了 9 种 公用 子 类 型 : 
VX<:Y 一 Z.Y 一 尼 VX<:Y 一 Z, Top 一 Z VX<:Y 一 Z. X 
VYX<:Y 一 Top.Y-Z VX<:Y 一 Top . Top 一 Z VX<:Y 一 Top.X 
YX<:Top.Y 一 Z YX<:Top. Top 一 Z YX<:Top。X. 


2. 不 仅 VX <:Y' 一 Z.Y 一 2Z' ,而 且 VX <:Y 一 2.X 是 S 和 T 的 下 界 , 但 这 两 种 类 型 并 没有 
同时 是 $ 和 了 子 类 型 的 公用 子 类 型 。 
3. 考虑 S->Top 和 T->Top( 或 者 VX <:Y' 一 Z.Y 一 7 和 VX<:Y 一 7Z.X.)。 


28.7.1 解答 :在 图 A.2 中 定义 的 函数 Rxr 和 ZLxr 将 类 型 分 别 映 射 到 它们 最 小 的 X-free 
超 类 型 和 最 大 的 X-free 子 类 型 中 (为 了 避免 散乱 ,省略 了 下 标 X 和 T)。 两 个 定义 有 不 同 
的 附属 条 件 ,因为 ,当世 出 现时 ,我 们 需要 检查 它 是 否 已 被 定义 ( 写 为 Z(T) 夭 ii) ,同时 尺 
总 是 被 定义 的 ,幸亏 有 了 Top 类 型 。Ghelli 和 Pierce(1998) 证 明了 这 些 定义 的 正确 性 。 
盖 人 


VY<:S. RT) VYY<:S,L(T) 


. 四 证 X & FVS 证 地 (T) :ai 
RCIVY<:S.T) = Top L(YY<:5.T) = 0 
让 Xe FWS) oil otherwise 
{3Y<:S,RIT)} {f3aY<:S.Z(T)} 
. _ 让 X& FVS) 让 工 (T) * je 这 
R(f3Yy<:S.T}) = Top L(f3aY<:S.T}) = andXe FVS) 
让 Xe FVWS) fail otherwise 
L(S) 一 ROT) R(S) 一 工 (TD 
_ _ 逊 工 (S) = 这 让 Z(T) = 区 
RS-T) Top LS 一 T) = 二 7az 
让 L(S) = jz 这 LT) = 记 
ROX) = T where X<:TEeF 工 (X) = jet 
R(Y) = Y whenY 六 X L(Y) = Y WhenYX 
R(Top) = Top LTop) -~ Top 


一 -一 一- vv 1 
图 A.2 一 个 给 定 类 型 的 最 小 X-free 超 类 型 和 最 大 X-free 子 类 型 


28.7.2 解答 :显示 全 困 存 在 类 型 的 不 确定 性 的 一 种 简单 方法 (根据 Gheli 和 Pierece,1998) 
是 从 全 下 .中 的 子 类 型 化 问题 中 给 出 一 个 翻译 E 一 1 到 只 有 存在 类 型 系统 的 子 类 型 化 问题 
中 ,使 得 当 且 仅 当 ETPF S <:T 了 在 有 存在 类 型 的 系统 中 是 可 证 明 的 ,PH S <:T 在 下。 中 也 
是 可 证 明 的 。 这 种 编码 在 类 型 上 可 以 被 定义 为 ; 

EX] = 其 [Top] 

[VXx<:Ti.Tz2] = ”~{t3x<:Ti,”ETz 了 + [Ti 一 T2] 
其 中 S= VX<:S.X。 通 过 [ XI <: 了 ，，,X <:T, 了 =X <:TT 了，…,X <:ET, 3 类 将 
它 扩 展 到 上 下 文 当 中 ,同时 通过 [ETPFS<:T=IPIF-IS<:IT], 将 它 扩展 到 子 类 型 
化 语句 中 。 


Top 
[Ti 一 [ET2z] 
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29.1.1 解答 :VX.X-X 是 一 个 合适 类 型 ,包含 元 素 如 多 .ix:X.x。 这 些 项 是 多 态 的 天 
数 , 当 用 一 个 类 型 了 实例 化 时 ,会 生成 一 个 从 T 到 了 的 函数 。 相 比 之 下 ,XX.X->X 是 一 个 类 
型 操作 子 一 一 一 个 函数 , 当 应 用 到 类 型 T 时 ,生成 适当 的 从 T 到 了 函数 的 类 型 了 >T。 

换 句 话说 :VX <:X-~>X 是 一 个 元 素 为 从 类 型 到 项 的 项 级 函数 的 类 型 ;实例 化 其 中 的 一 个 
(通过 将 其 应 用 到 一 个 类 型 中 , 写 做 LT]) 来 生成 一 个 箭头 类 型 T->T 的 元 素 。 另 一 方面 ， 
MX.X-~~X 自身 是 一 个 函数 (从 类 型 到 类 型 ); 通 过 一 个 类 型 了 T 来 实例 化 它 ( 写 做 (MX.X->X)T) 
生成 类 型 T>T 自身 ,而 不 是 它 的 一 个 元 素 。 

例如 ,如果 名 有 类 型 VX.X 一 X 且 0p= 和 .X 一 X, 那 么 血 IT] :T>T= OpT。 


29.1.2 解答 :Nat 一 Nat 是 一 种 (合适 的 ) 函 数 类 型 ,而 不 是 一 个 类 型 级 的 函数 。 


30.3 解答 : 引 理 (30.3.1) 被 应 用 在 T-Abs, T-Tapp, TEq 中 。 引 理 (30.3.2) 被 应 用 在 
TVar 中 。 
30.3.8 解答 :对 给 定 推导 的 总 体 长 度 进行 归纳 ,并 结合 两 者 的 最 后 规则 进行 情况 分 析 。 
如 果 有 一 个 推导 以 QR-Reh 结束 ,那么 另 一 个 推导 就 是 希望 得 出 的 结果 。 如 果 有 一 个 推 
导 以 QR-Abs,QR-Arow 或 QR-AH 结束 ,那么 根据 规则 的 形式 ,两 个 推导 都 必须 以 同样 的 规 
则 结束 , 且 结 果 可 得 出 。 如 果 两 个 推导 都 结束 于 QR-App, 那 么 结果 也 可 直接 通过 归纳 假 
设 得 出 。 剩 下 的 可 能 性 更 有 趣 。 
如 果 两 个 推导 都 以 QR-AppAbs 结束 ,那么 我 们 有 : 

S= (CAX::KI1.S12) S  T= [X 一 TzjTiz  U= [X=-Uz]uUl>， 


且 ， 
9312 鸣 Ti2 92 鸣 T2 3912 鸣 U2 392 史册 


通过 归纳 假设 ,有 V 利 V2> 9 型 如 2 
Ti2 想 Vi12 T2 路 V2 Ul2 守 Vi2 U> 驰 V2， 


通过 两 次 利用 引 理 (30.3.7) ,我 们 得 到 [X Fr- 呈 ]Toe[IXr-V]lVvs 和 [X FU]U, 中 
[x Fr- VjvVo ,也 就 是 ,TsV 且 Us V。 
最 后 ,假设 一 个 推导 (例如 第 一 个 ) 以 QR-App 来 结束 ,而 另 一 个 以 QR-AppAbs 结束 。 在 这 
种 情况 下 ,我 们 有 : 

S = (AX::KI1.S12) S2 T= (AX:KI1 .Ti2) T2 U= [Xr= 册 ]uUl>， 


其 中 Sa To,S 绿 卫 ,Se Us 且 S$ # 邮 。 还 有 ,根据 归纳 假设 法 ,有 Vs 和 内 型 如 
Ta 只 Va ,IT 只 V2 ,Uaz 史 Ve 且 U: 政 Va。 将 规则 QR-AppAbs 应 用 于 第 一 个 和 第 二 个 导出 。 
间 时 将 引 理 (30.3.7) 应 用 于 第 三 个 和 第 四 个 ,可 以 得 到 TV 或 Us V。 


30.3.10 解答 :首先 观察 到 我 们 可 以 重新 组 织 $ 名 *“T 的 任 一 个 推导 ,这 样 对 称 性 和 传递 
性 都 不 能 用 在 对 称 性 规则 的 一 个 实例 的 子 推导 中 ,也 就 是 说 ,我 们 可 以 利用 一 个 与 QR- 
Trans 结合 的 步骤 序列 来 从 S 到 了 中 得 到 , 当 每 一 个 步骤 都 由 一 个 单一 步 标的 归 约 组 成 ， 
且 可 能 其 后 跟随 着 一 个 单一 的 对 称 性 实例 。 这 个 序列 可 显示 如 下 ， 
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1 
SA 
SN 帮 
(从 右 指向 左 的 箭头 是 以 对 称 性 结束 的 归 约 ,同时 从 左 到 右 的 箭头 是 非 对 称 性 的 归 约 )。 


现在 利用 引 理 (30.3.8) 反 复 地 向 本 图 中 的 底部 添加 小 的 菱形 ,直到 我 们 达到 通常 的 S 和 T 
的 约 简 : 


同样 的 证 明 可 用 一 个 标准 的 归纳 形式 来 表示 ,不 需要 图 片 , 但 如 果 不 用 图 片 不 能 使 它 更 令 
人 信服 ,这 样 就 很 可 能 更 难于 理解 。 

30.3.17 解答 :如 果 添 加 第 一 条 奇怪 的 规则 ,进展 的 性 质 将 不 满足 ;然而 ,保持 性 质 能 满 
足 。 如 果 添 加 了 第 二 条 规则 ,不 但 进展 ,而 且 保持 都 会 不 满足 。 

30.3.20 解答 :将 你 的 解决 方案 和 fomega 检查 器 的 源 代 码 做 对 比 。 

30.5.1 解答 ;我 们 用 参数 化 类 型 簇 List Tn 代替 类 型 簇 RioatList n, 且 具有 以 下 操作 : 


ni] 2” VYVX, FloatListX0 

cons : VX.IIn:Nat.X~ FloatListX (Succ n) 
hd : VX, In:Nat. ListX(Csuccn)] 一 X 

ft] : VX,. IIn:Nat, ListX(Ssuccn) 一 ListXn 


31.2.1 解答 : 
IT FF A <: Id8 yes 
[IT FF IdA <: B Yes 
T FF AX.X <:  AX.Top Yes 
T FF AX. VY<IX.Y <: AX. VY<:Top.Y No 
T FF AMX.VY<:X.Y <: AX，VY<:X, X Yes 
IT FF FB <: B Yes 
T 8 <: FB No 
IT FF FB <: FB Yes 
IT FF VF<:(CAY.Top-Y). FA <: VF<:(AY,.Top-Y), Top-~-B Yes 
[ FF VF<:CAY.Top 一 Y), FA <: YYF<:CAY.Top--Y). FB Ao 
[T FF Top[*>=>*] <: Top[*>*>*] ANo 
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32.5.1 ”解答 :关键 一 点 是 Object M 是 一 个 存在 类 型 :Object 是 操作 子 : 
AM::* 一 *. {3X，{fstate:Xy, methods :MX]i 

的 缩写 。 当 我 们 将 此 应 用 于 M 时 ,可 得 到 一 个 约 式 , 该 约 式 可 约 简 为 存在 类 型 ， 
{3aX，{fstate:X,， methods :MX 

注意 ,这 个 转换 中 没有 包含 关系 (因为 没有 信息 丢失 )。 

32.5.2 解答: 


sendget = 
AM< :CounterM.Ao:0bject NM， 
et {X，blj = o in b.methods.getCb.state)] ; 


Sendreset = 
AM< :ResetCounterM.，Ao:Object M， 
let {X，bj = o in 
{*X， 
{state = b.methods .reset(b.state)， 
methods = b.methodsj} as Object Mi; 


32.7.2 解答 :最 小 的 类 型 化 属性 对 我 们 在 定义 它 时 采用 的 演算 是 错误 的 。 考 虑 这 个 项 ， 
{#x={fa=5,b=7]]. 


可 给 出 类 型 | # x:ja:Nat | 和 上 | #x:la:Nat,b:Natij ,但 这 些 类 型 是 不 可 比较 的 。 一 个 合理 
的 解决 办 法 是 明确 地 在 记录 项 中 用 其 理想 的 类 型 注释 不 变 的 字段 。 这 样 可 以 有 效 地 将 在 
上 面 两 个 类 型 之 间 做 出 选择 的 权力 交 给 程序 员 。 


32.9.1 解答 ; 


MyCounterM = 
AR，{fget: R~Nat，set:R~Nat-R，inc:R 一 R，accesses:R 一 Nat， 
backup:R- 一 R，reset:R 一 R} ; 


MyCounterR = {#XxX:Nat,#cCount:Nat,#ol1d:Natlyi 


myCounterC1ass = 
AR< :MyCounterR ， 


Ase]lf: Unit~MyCounterM R. 
A_:Unit.， 
]et Super = instrCounterClass [R] setf unit in 
{get = 5uper ,get， 
set = Super ,Set， 
inc = Super.inc， 
acCes5ses = Super.acCesses， 
reset = 人 AS:R，5 一 Xe=Ss,.0]d， 
backup = AS:R。S 一 01de<s.xj} 
as MyCounterM R; 
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mc = {*MyCounterR ， 
{State = {#Xs0 ,#COunte0 ,#o1d=0] ， 
methods = fix (myCounterCl1ass [MyCounterR]) unitl}} 
as 0bject MyCounterM; 


sendget {MyCounterM] 
(Sendreset [MyCounterM] (sendinc [MyCounterM] mc)) ， 


“我 亲爱 的 Watson ， 自 己 试 着 做 一 些 分 析 , "他 说 ,有 一 些 不 耐烦 。 “你 知道 我 的 方法 。 
应 用 它们 ,对 比较 结果 是 会 有 帮助 的 。 
一 一 A 人 .Conan Doyle, 四 签名 (1890) 


如 何 完善 它 可 以 作为 练习 留 给 读者 。 这 里 我 在 做 一 件 自己 喜爱 的 工作 ,同时 让 数 
学 家 们 少 费 点 口舌 。 
一 一 W.v.0.Quine (1987) 
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B.1 元 变量 名 

文本 中 在 ML 编码 中 用 法 

p,q,r,s,tU st 项 

X，y，2 了 项 变量 

V，W V，W 值 

my mv 数值 

1 1 记录 / 变 式 字段 

store 存储 

M,N,P,O,S,T, DY tyS, DT 类 型 

A,B,C tyA,tyB 基础 类 型 

习 存储 类 型 化 

X,Y,Z BX,tyY 类 型 变量 

和 , 工 kK ,kL 分 类 

9 代 换 

工 ,A ctx 上 下 文 

了 任意 语句 

人 类 型 化 导出 

C 子 类 型 化 导出 
下 文件 位 置信 息 

守 了 7 数字 下 标 

B.2 规则 命名 约定 

前 缉 用 法 

B- 大 步 求 值 

CT- 约束 类 型 化 

忆 - 求 值 

K- 类 型 化 

M- 匹配 

P- 模式 类 型 化 

人 类 型 等 价 

QR- 类 型 的 并 行 归 约 

S- 子 类 型 化 

SA- 算法 子 类 型 化 

工 类 型 化 

TA- 算法 类 型 化 

XA- 揭示 





世人 








gf 
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B.3 命名 和 下 标的 约定 


全 书 中 对 元 变量 ,数字 下 标 和 前 提 的 选择 基于 以 下 原则 : 

. 在 语法 定义 中 ,元 变量 1 用 于 表示 所 有 的 项 ,T 表 示 类 型 ,v 表示 值 ,等 等 。 

2. 在 类 型 化 规则 中 ,主要 的 项 (其 类 型 正在 被 计算 的 项 ) 通 常 被 称 为 t, 且 它 的 子 项 被 命名 
为 6 ,等 等 [偶尔 地 , (例如 ,在 归 约 规则 中 ) 需 要 子 项 的 子 项 的 名 称 ; 对 此 我 们 使 用 
tn ,to ,等 等 ]。 

3, 在 求 值 规则 中 ,整个 正在 被 归 约 的 项 被 称 为 t, 它 被 归 约 到 的 项 被 称 为 T。 

4. 项 t 的 类 型 被 称 为 T( 同 样 , 子 项 b 的 类 型 为 卫 ,等 等 )。 

5. 在 撒 述 和 证 明定 理 时 也 使 用 同样 的 约定 ,除非 4 有 时 被 替换 为 s( 且 T 被 替换 为 $ 或 玉 ， 
等 等 ) 来 避免 在 定义 和 定理 之 间 的 命名 冲突 。 


存在 这 些 规 则 不 能 同时 满足 的 情况 。 在 这 样 的 情况 中 ,最 早 的 那个 被 赋予 优先 权 ( 例 如 ， 
在 图 11.5 中 ,规则 TPmjl 中 的 规则 4 没有 完全 遵守 子 项 的 类 型 是 灿 x 开 )。 在 极 少数 的 情 
况 下 ,如果 采用 了 某 些 规则 会 产生 无 法 接受 的 可 怕 的 或 不 可 读 的 结果 , 则 这 些 规 则 可 完全 忽略 
《例如 图 11.7 中 的 记录 投影 规则 T-Proj)。 


一 
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